15 New Messages
Digest #2782
1a
Bls: [belajar-excel] menemukan baris terakhir di kolom tertentu by "achmad adi" didon13@ymail.com
5a
Mohon bantuan bagaimana caranya menggunakan formula if di vba by "Fahri.S" fahri_litbang@ymail.com
5c
Re: Mohon bantuan bagaimana caranya menggunakan formula if di vba by "Fahri.S" fahri_litbang@ymail.com
Messages
Wed Feb 12, 2014 5:19 am (PST) . Posted by:
"achmad adi" didon13@ymail.com
mohon maap,,,unutk mR.kid,,,apabila krusor yang dimaksd hanya kolom C tanpa melihat posisi terakhir kolom B ,,,,terimakasih sebelumnya,,,ini saya lampirkan file nya
Pada Selasa, 28 Januari 2014 20:21, Mr. Kid <mr.nmkid@gmail.com> menulis:
Coba :
Public Sub NextData(Optional bState As Boolean = False)
With Sheet1.Shapes(Application.Caller).TopLeftCell.Offset(1).CurrentRegion
Cells(.Resize(1, 1).Offset(.Rows.Count, 1).Row, 3).Activate
End With
End Sub
Wassalam,
Kid.
2014-01-28 achmad adi <didon13@ymail.com>
>
>terimakasih banyak Mr. Jam Raisin
>kalo Next Data nya ada di Banyak tabel bagaimana?
>saya lampirkan file nya...
>terimakasih sebelumnya..
>
>
>
>
>
>
>Pada Selasa, 28 Januari 2014 16:10, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
>
>coba 3 baris script ini ditulis pada sebuah modul
>
>
>Sub NextData()
> Cells(Rows.Count, 3).End(xlUp).Offset(1).Select
>End Sub
>
>
>lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
>file terlampir
>
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 28 Januari 2014 15.44, achmad adi <didon13@ymail.com> menulis:
>
>
>>
>>Dear master,,,
>>mohon bantuanya,,,untuk menemukan baris terakhir pada kolom tertentu,,,dengan bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada data msuk.,,,gak bisa ke baris terakhir,,
>>
>>saya lampirkan file contoh,,,
>>
>>
>>sebelumnya saya ucapkan terimakasih..
>
>
Pada Selasa, 28 Januari 2014 20:21, Mr. Kid <mr.nmkid@gmail.
Coba :
Public Sub NextData(Optional bState As Boolean = False)
With Sheet1.Shapes(
Cells(.Resize(
End With
End Sub
Wassalam,
Kid.
2014-01-28 achmad adi <didon13@ymail.
>
>terimakasih banyak Mr. Jam Raisin
>kalo Next Data nya ada di Banyak tabel bagaimana?
>saya lampirkan file nya...
>terimakasih sebelumnya..
>
>
>
>
>
>
>Pada Selasa, 28 Januari 2014 16:10, Jan Raisin <miss.jan.raisin@
>
>
>coba 3 baris script ini ditulis pada sebuah modul
>
>
>Sub NextData()
> Cells(Rows.Count, 3).End(xlUp)
>End Sub
>
>
>lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
>file terlampir
>
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 28 Januari 2014 15.44, achmad adi <didon13@ymail.
>
>
>>
>>Dear master,,,
>>mohon bantuanya,,,
>>
>>saya lampirkan file contoh,,,
>>
>>
>>sebelumnya saya ucapkan terimakasih.
>
>
Wed Feb 12, 2014 5:23 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Tambahkan .End(xlUp) sebelum .Activate
Wassalam,
Kid.
2014-02-12 13:27 GMT+07:00 achmad adi <didon13@ymail.com>:
>
>
> mohon maap,,,unutk mR.kid,,,apabila krusor yang dimaksd hanya kolom C
> tanpa melihat posisi terakhir kolom B ,,,,terimakasih sebelumnya,,,ini saya
> lampirkan file nya
>
>
>
> Pada Selasa, 28 Januari 2014 20:21, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Coba :
> Public Sub NextData(Optional bState As Boolean = False)
> With
> Sheet1.Shapes(Application.Caller).TopLeftCell.Offset(1).CurrentRegion
> Cells(.Resize(1, 1).Offset(.Rows.Count, 1).Row, 3).Activate
> End With
> End Sub
>
> Wassalam,
> Kid.
>
>
>
> 2014-01-28 achmad adi <didon13@ymail.com>
>
>
> terimakasih banyak Mr. Jam Raisin
> kalo Next Data nya ada di Banyak tabel bagaimana?
> saya lampirkan file nya...
> terimakasih sebelumnya..
>
>
>
> Pada Selasa, 28 Januari 2014 16:10, Jan Raisin <
> miss.jan.raisin@gmail.com> menulis:
>
> coba 3 baris script ini ditulis pada sebuah modul
>
> Sub NextData()
> Cells(Rows.Count, 3).End(xlUp).Offset(1).Select
> End Sub
>
> lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
> file terlampir
>
>
> -Miss Jan Raisin-
>
>
> Pada 28 Januari 2014 15.44, achmad adi <didon13@ymail.com> menulis:
>
>
> Dear master,,,
> mohon bantuanya,,,untuk menemukan baris terakhir pada kolom
> tertentu,,,dengan bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada
> data msuk.,,,gak bisa ke baris terakhir,,
> saya lampirkan file contoh,,,
>
> sebelumnya saya ucapkan terimakasih..
>
>
>
>
>
>
>
>
Wassalam,
Kid.
2014-02-12 13:27 GMT+07:00 achmad adi <didon13@ymail.
>
>
> mohon maap,,,unutk mR.kid,,,apabila krusor yang dimaksd hanya kolom C
> tanpa melihat posisi terakhir kolom B ,,,,terimakasih sebelumnya,,
> lampirkan file nya
>
>
>
> Pada Selasa, 28 Januari 2014 20:21, Mr. Kid <mr.nmkid@gmail.
> menulis:
>
> Coba :
> Public Sub NextData(Optional bState As Boolean = False)
> With
> Sheet1.Shapes(
> Cells(.Resize(
> End With
> End Sub
>
> Wassalam,
> Kid.
>
>
>
> 2014-01-28 achmad adi <didon13@ymail.
>
>
> terimakasih banyak Mr. Jam Raisin
> kalo Next Data nya ada di Banyak tabel bagaimana?
> saya lampirkan file nya...
> terimakasih sebelumnya..
>
>
>
> Pada Selasa, 28 Januari 2014 16:10, Jan Raisin <
> miss.jan.raisin@
>
> coba 3 baris script ini ditulis pada sebuah modul
>
> Sub NextData()
> Cells(Rows.Count, 3).End(xlUp)
> End Sub
>
> lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
> file terlampir
>
>
> -Miss Jan Raisin-
>
>
> Pada 28 Januari 2014 15.44, achmad adi <didon13@ymail.
>
>
> Dear master,,,
> mohon bantuanya,,,
> tertentu,,,dengan bantuan sell tertentu,,,kalo pake hyperlink,,,
> data msuk.,,,gak bisa ke baris terakhir,,
> saya lampirkan file contoh,,,
>
> sebelumnya saya ucapkan terimakasih.
>
>
>
>
>
>
>
>
Wed Feb 12, 2014 5:19 am (PST) . Posted by:
"jackie yunianto" tanfidzularus
dear teman semua,
mohn bantuannya untuk case yg saya hadapi berikut, karena selalu muncul hasilnya menjadi 0,
thx
Wed Feb 12, 2014 5:52 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Yunianto,
*** lain kali ndak usah pakai cc, bcc, atau to ke selain akun milis ya...
cell M3 diberi formula :
=SUMPRODUCT(ISNUMBER(FIND(TRIM(LOWER($H$3:$H$8)),LOWER(L3)))*$I$3:$I$8)-SUMPRODUCT(ISNUMBER(MATCH($E$4:$E$34,INDEX(ISNUMBER(FIND(TRIM(LOWER($H$11:$H$16)),LOWER(L3)))*$I$11:$I$16,0),0)*FIND(TRIM(LOWER($C$4:$C$34)),LOWER(L3)))*$D$4:$D$34)
Wassalam,
Kid.
2014-02-12 13:35 GMT+07:00 jackie yunianto <tanfidzularus@yahoo.co.id>:
>
>
>
> dear teman semua,
> mohn bantuannya untuk case yg saya hadapi berikut, karena selalu muncul
> hasilnya menjadi 0,
>
> thx
>
>
*** lain kali ndak usah pakai cc, bcc, atau to ke selain akun milis ya...
cell M3 diberi formula :
=SUMPRODUCT(
Wassalam,
Kid.
2014-02-12 13:35 GMT+07:00 jackie yunianto <tanfidzularus@
>
>
>
> dear teman semua,
> mohn bantuannya untuk case yg saya hadapi berikut, karena selalu muncul
> hasilnya menjadi 0,
>
> thx
>
>
Wed Feb 12, 2014 11:59 am (PST) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon rekan-rekan BeExceller dapat memberi pencerahan akan pertanyaan saya.
Terima kasih atas pencerahan rekan-rekan sekalian.
Regards,
Harry
Pada Selasa, 11 Februari 2014 4:02, Harry <hariansyahptk@yahoo.com> menulis:
Dear Hendrik
Terima kasih atas lampirannya.
Tapi menurut saya yang sesuai dengan Workbook yang saya buat adalah sebagaimana lampiran yang saya sertakan.
Mohon kiranya dapat pemcerahan dari teman-teman BeExceller.
Regards,
Harry
Pada Senin, 10 Februari 2014 17:16, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
Hai Harry,
Kalau yang dimaksud adalah cari kata atau bagian dari kata dalam range tertentu atau dalam satu sheet maka warisan si mbah (terlampir) barangkali bisa jadi panutan.
Salam,
HK
On Monday, 10 February 2014, 16:49, Harry <hariansyahptk@yahoo.com> wrote:
Dear BeExleller,
Mengikuti tentang pembahasan ini, saya bermaksud untuk lebih menanyakan secara detail tentang bagaimana caranya jika membuat Search Engine dengan jumlah colom yang banyak.
Saya sudah mencoba untuk merealisaasikan dengan workbook yang saya buat tetapi saya masih mengalami kendala (Error).
Oleh sebab itu, kiranya teman-teman BeExeller dapat menginoformasikan caranya.
Terlampir Workbook yang saya buat.
Terima kasih,
Harry
--- Mods ---
File lampiran yang lebih dari 250KB dilepas dari email.
Silakan penanya melampirkan kembali file yang <=250KB dengan me-reply email ini.
-------------
Pada Selasa, 30 Juli 2013 9:41, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
Maaf baru dibalas, karena harus bed rest selama beberapa hari.
coba script seperti ini:
Option Explicit
' =================================== '
' cari data dari sheet lain '
' script by: Miss Jan Raisin '
' Biak, 11 Juli 2013 '
' untuk belajar-excel@yahoogroups.com '
' revisi, Batu, Malang, 30 Juli 2013 '
' =================================== '
' awal dari prosedur
Sub Cari()
' deklarasikan semua variabel yang dibutuhkan
' sCol>> digunakan untuk menyimpan nama header kolom
' yang akan dicari, tipe datanya String
Dim sCol As String
' rgFind>> digunakan untuk menyimpan range pencarian sCol
' dari sini akan diketahui header data terletak pada kolom berapa
Dim rgFind As Range
' rgData>> digunakan untuk menyimpan range data berdasarkan
' letak kolom yang diketahui
' posisinya mulai 1 baris setelah header
' sampai data yang paling bawah
Dim rgData As Range
' rgCelladalah setiap range atau cell di dalam rgData
Dim rgCell As Range
' iCol>> digunakan untuk menyimpan nomor kolom rgFind
Dim iCol As Integer
' lRow>> digunakan untuk untuk menyimpan nomor baris akhir data
Dim lRow As Long
' vCrit>> digunakan untuk menyimpan kriteria
' berhubung kriteria bisa diisi dengan
' huruf, angka, atau kombinasi keduanya
' maka tipe data menggunakan variant
Dim vCrit As Variant
' lakukan proteksi pada sheet cari >> Sheets("cari").Protect
' tentukan passwordnya untuk protect/unprotect >> Password:="12345"
' proteksi hanya untuk user saja, sedangkan vba tetap boleh bekerja
' >> userinterfaceonly:=True
Sheets("cari").Protect Password:="12345", userinterfaceonly:=True
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("data").Visible = xlSheetVisible
' hapus hasil pencarian sebelumnya >> .ClearContents
' mulai cell B8 >> Range("b8")
' sampai dengan data paling kanan >> .End(xlToRight)
' setara dengan menekan tombol CTRL panah_kanan
' lalu sampai data yang paling bawah >> .End(xlDown)
' setara dengan menekan tombol CTRL panah_bawah
Range(Range("b8"), Range("b8").End(xlToRight).End(xlDown)).ClearContents
' atau bisa juga dengan select seluruh data di sekitar cell B8
' >> Range("b8").CurrentRegion
' karena header di baris 7 juga ikut terpilih
' maka selectionnya harus turun 1 baris ke bawah >> .Offset(1)
' setelah itu hapus data yang ada >> .ClearContents
' Range("b8").CurrentRegion.Offset(1).ClearContents
' masukkan header kolom pencarian ke dalam variabel sCol
' asalnya dari nilai di cell C3 >> Range("c3").Value
sCol = Range("c3").Value
' masukkan kriteria pencarian ke dalam variabel vCrit
' asalnya dari nilai di cell C5 >> Range("c5").Value
vCrit = Range("c5").Value
' bekerja dengan sheet data
With Sheets("data")
' setiap object yang didahului titik berarti milik sheet data
' setiap object yang TIDAK didahului titik berarti milik sheet cari
' set lokasi rgFind
' berasal dari pencarian di sheet data cell A2 s/d J2 >> .Range("a2:j2").Find
' yang dicari adalah sColyaitu nilai dari cell C3 di sheet cari >> sCol
' pencarian terhadap seluruh isi cell >> lookat:=xlWhole
' case sensitif >> MatchCase:=True
Set rgFind = .Range("a2:j2").Find(sCol, lookat:=xlWhole, MatchCase:=True)
' setelah ditemukan, ambil nilai kolomnya >> rgFind.Column
' dan simpan ke dalam variabel iCol
iCol = rgFind.Column
' cari nilai baris data yang paling akhir >> .Range("a2").CurrentRegion.Rows.Count
' dan simpan dalam variabel lRow
lRow = .Range("a2").CurrentRegion.Rows.Count
' atau bisa juga menggunakan script berikut
'lRow = .Cells(.Rows.Count, iCol).End(xlUp).Row
' set range data yang akan diuji nilainya >> Set rgData
' terletak pada sheet data
' mulai dari baris 3 dan kolom iCol >> .Cells(3, iCol)
' sampai dengan baris data terakhir pada kolom iCol >> .Cells(lRow, iCol)
Set rgData = .Range(.Cells(3, iCol), .Cells(lRow, iCol))
' untuk setiap cel di dalam rgData
For Each rgCell In rgData
' cari di vCritdi setiap cell >> rgCell.Find(vCrit
' pencariannya boleh per bagian, tidak harus utuh >> lookat:=xlPart
' boleh huruf besar atau kecil >> MatchCase:=False
Set rgFind = rgCell.Find(vCrit, lookat:=xlPart, MatchCase:=False)
' uji apakah datanya ada atau tidak
' jika rgFind TIDAK x TIDAK ADA, maka
' atau jika ADA hasil yang sesuai, maka
' negatif x negatif = positif
' Not x Is Nothing = There is something
' Tidak x Tidak Ada = ADA
If Not rgFind Is Nothing Then
' jika datanya ada maka masuk ke proses ini
' pada area di sheet data >> .Range
' pada baris tersebut kolom 1 >> .Cells(rgCell.Row, 1)
' sampai baris tersebut kolom 10 >> .Cells(rgCell.Row, 10
' dilakukan proses copy >> .Copy
.Range(.Cells(rgCell.Row, 1), .Cells(rgCell.Row, 10)).Copy
' cari lokasi baris penulisan data yang baru di sheet cari dengan cara
' dari baris data yang paling bawah di kolom 2 >> Cells(Rows.Count, 2)
' pergi ke data di atasnya >> .End(xlUp)
' setara dengan menekan tombol CTRL panah_atas
' lalu turun 1 baris ke bawah >> .Offset(1)
' setara dengan menekan tombol panah_bawah
' lakukan paste special nilai dan format angkanya
' >> .PasteSpecial xlPasteValuesAndNumberFormats
Cells(Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
' non-aktifkan proses copasnya
Application.CutCopyMode = False
' akhir dari pengujian
End If
' pindah ke cel berikutnya
Next rgCell
' akhir bekerja dengan sheet data
End With
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("data").Visible = xlSheetVeryHidden
' biar kelihatan bagus, letakan cel aktif di C5
Range("c5").Select
' akhir dari prosedur
End Sub
file terlampir
ÙˆَسَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member milis;
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juli 2013 13.05, merau23 <merau23@yahoo.com> menulis:
>
>Dear Miss Jan Raisin,
>
>Mau tanya kalau misal databasenya di ada di sheet lain, itu bagaimana ya utk code VBAnya? Maaf saya tidak mengerti sama sekali dengan kode VBA. Tapi mau belajar :)
>
>Terimakasih
>Regards
>
Mohon rekan-rekan BeExceller dapat memberi pencerahan akan pertanyaan saya.
Terima kasih atas pencerahan rekan-rekan sekalian.
Regards,
Harry
Pada Selasa, 11 Februari 2014 4:02, Harry <hariansyahptk@
Dear Hendrik
Terima kasih atas lampirannya.
Tapi menurut saya yang sesuai dengan Workbook yang saya buat adalah sebagaimana lampiran yang saya sertakan.
Mohon kiranya dapat pemcerahan dari teman-teman BeExceller.
Regards,
Harry
Pada Senin, 10 Februari 2014 17:16, hendrik karnadi <hendrikkarnadi@
Hai Harry,
Kalau yang dimaksud adalah cari kata atau bagian dari kata dalam range tertentu atau dalam satu sheet maka warisan si mbah (terlampir) barangkali bisa jadi panutan.
Salam,
HK
On Monday, 10 February 2014, 16:49, Harry <hariansyahptk@
Dear BeExleller,
Mengikuti tentang pembahasan ini, saya bermaksud untuk lebih menanyakan secara detail tentang bagaimana caranya jika membuat Search Engine dengan jumlah colom yang banyak.
Saya sudah mencoba untuk merealisaasikan dengan workbook yang saya buat tetapi saya masih mengalami kendala (Error).
Oleh sebab itu, kiranya teman-teman BeExeller dapat menginoformasikan caranya.
Terlampir Workbook yang saya buat.
Terima kasih,
Harry
--- Mods ---
File lampiran yang lebih dari 250KB dilepas dari email.
Silakan penanya melampirkan kembali file yang <=250KB dengan me-reply email ini.
------------
Pada Selasa, 30 Juli 2013 9:41, Jan Raisin <miss.jan.raisin@
Maaf baru dibalas, karena harus bed rest selama beberapa hari.
coba script seperti ini:
Option Explicit
' ============
' cari data dari sheet lain '
' script by: Miss Jan Raisin '
' Biak, 11 Juli 2013 '
' untuk belajar-excel@
' revisi, Batu, Malang, 30 Juli 2013 '
' ============
' awal dari prosedur
Sub Cari()
' deklarasikan semua variabel yang dibutuhkan
' sCol>> digunakan untuk menyimpan nama header kolom
' yang akan dicari, tipe datanya String
Dim sCol As String
' rgFind>> digunakan untuk menyimpan range pencarian sCol
' dari sini akan diketahui header data terletak pada kolom berapa
Dim rgFind As Range
' rgData>> digunakan untuk menyimpan range data berdasarkan
' letak kolom yang diketahui
' posisinya mulai 1 baris setelah header
' sampai data yang paling bawah
Dim rgData As Range
' rgCelladalah setiap range atau cell di dalam rgData
Dim rgCell As Range
' iCol>> digunakan untuk menyimpan nomor kolom rgFind
Dim iCol As Integer
' lRow>> digunakan untuk untuk menyimpan nomor baris akhir data
Dim lRow As Long
' vCrit>> digunakan untuk menyimpan kriteria
' berhubung kriteria bisa diisi dengan
' huruf, angka, atau kombinasi keduanya
' maka tipe data menggunakan variant
Dim vCrit As Variant
' lakukan proteksi pada sheet cari >> Sheets("
' tentukan passwordnya untuk protect/unprotect >> Password:="
' proteksi hanya untuk user saja, sedangkan vba tetap boleh bekerja
' >> userinterfaceonly:
Sheets("
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("
' hapus hasil pencarian sebelumnya >> .ClearContents
' mulai cell B8 >> Range("
' sampai dengan data paling kanan >> .End(xlToRight)
' setara dengan menekan tombol CTRL panah_kanan
' lalu sampai data yang paling bawah >> .End(xlDown)
' setara dengan menekan tombol CTRL panah_bawah
Range(Range(
' atau bisa juga dengan select seluruh data di sekitar cell B8
' >> Range("
' karena header di baris 7 juga ikut terpilih
' maka selectionnya harus turun 1 baris ke bawah >> .Offset(1)
' setelah itu hapus data yang ada >> .ClearContents
' Range("
' masukkan header kolom pencarian ke dalam variabel sCol
' asalnya dari nilai di cell C3 >> Range(
sCol = Range("
' masukkan kriteria pencarian ke dalam variabel vCrit
' asalnya dari nilai di cell C5 >> Range(
vCrit = Range("
' bekerja dengan sheet data
With Sheets("
' setiap object yang didahului titik berarti milik sheet data
' setiap object yang TIDAK didahului titik berarti milik sheet cari
' set lokasi rgFind
' berasal dari pencarian di sheet data cell A2 s/d J2 >> .Range("
' yang dicari adalah sColyaitu nilai dari cell C3 di sheet cari >> sCol
' pencarian terhadap seluruh isi cell >> lookat:=xlWhole
' case sensitif >> MatchCase:=True
Set rgFind = .Range("
' setelah ditemukan, ambil nilai kolomnya >> rgFind.
' dan simpan ke dalam variabel iCol
iCol = rgFind.Column
' cari nilai baris data yang paling akhir >> .Range(
' dan simpan dalam variabel lRow
lRow = .Range("
' atau bisa juga menggunakan script berikut
'lRow = .Cells(.Rows.
' set range data yang akan diuji nilainya >> Set rgData
' terletak pada sheet data
' mulai dari baris 3 dan kolom iCol >> .Cells(3, iCol)
' sampai dengan baris data terakhir pada kolom iCol >> .Cells(lRow, iCol)
Set rgData = .Range(.Cells(
' untuk setiap cel di dalam rgData
For Each rgCell In rgData
' cari di vCritdi setiap cell >> rgCell.Find(
' pencariannya boleh per bagian, tidak harus utuh >> lookat:=xlPart
' boleh huruf besar atau kecil >> MatchCase:=False
Set rgFind = rgCell.Find(
' uji apakah datanya ada atau tidak
' jika rgFind TIDAK x TIDAK ADA, maka
' atau jika ADA hasil yang sesuai, maka
' negatif x negatif = positif
' Not x Is Nothing = There is something
' Tidak x Tidak Ada = ADA
If Not rgFind Is Nothing Then
' jika datanya ada maka masuk ke proses ini
' pada area di sheet data >> .Range
' pada baris tersebut kolom 1 >> .Cells(rgCell.
' sampai baris tersebut kolom 10 >> .Cells(rgCell.
' dilakukan proses copy >> .Copy
.Range(.Cells(
' cari lokasi baris penulisan data yang baru di sheet cari dengan cara
' dari baris data yang paling bawah di kolom 2 >> Cells(Rows.Count, 2)
' pergi ke data di atasnya >> .End(xlUp)
' setara dengan menekan tombol CTRL panah_atas
' lalu turun 1 baris ke bawah >> .Offset(1)
' setara dengan menekan tombol panah_bawah
' lakukan paste special nilai dan format angkanya
' >> .PasteSpecial xlPasteValuesAndNum
Cells(Rows.Count, 2).End(xlUp)
' non-aktifkan proses copasnya
Application.
' akhir dari pengujian
End If
' pindah ke cel berikutnya
Next rgCell
' akhir bekerja dengan sheet data
End With
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("
' biar kelihatan bagus, letakan cel aktif di C5
Range("
' akhir dari prosedur
End Sub
file terlampir
ÙˆَسَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juli 2013 13.05, merau23 <merau23@yahoo.
>
>Dear Miss Jan Raisin,
>
>Mau tanya kalau misal databasenya di ada di sheet lain, itu bagaimana ya utk code VBAnya? Maaf saya tidak mengerti sama sekali dengan kode VBA. Tapi mau belajar :)
>
>Terimakasih
>Regards
>
Wed Feb 12, 2014 5:28 pm (PST) . Posted by:
"Jan Raisin"
pak Harry,
silakan dipelajari langkah-langkahnya berdasarkan email Jan yang anda quote
untuk pertanyaan ini, atau berdasarkan file dari mbak Siti yang telah
dikirimkan oleh pak Hendrik.
Jika dirasa kurang jelas, mungkin anda bisa mulai dari link
ini<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>
Belajar sedikit-sedikit dari yang sederhana akan lebih bermanfaat
dibandingkan ingin langsung menguasai semuanya tetapi tidak memiliki dasar
yang kuat.
Salam,
-MJR-
Pada 12 Februari 2014 22.57, Harry <hariansyahptk@yahoo.com> menulis:
>
>
> Dear BeExceller,
>
> Mohon rekan-rekan BeExceller dapat memberi pencerahan akan pertanyaan saya.
> Terima kasih atas pencerahan rekan-rekan sekalian.
>
> Regards,
>
>
> Harry
>
>
> Pada Selasa, 11 Februari 2014 4:02, Harry <hariansyahptk@yahoo.com>
> menulis:
>
> Dear Hendrik
>
> Terima kasih atas lampirannya.
> Tapi menurut saya yang sesuai dengan Workbook yang saya buat adalah
> sebagaimana lampiran yang saya sertakan.
> Mohon kiranya dapat pemcerahan dari teman-teman BeExceller.
>
> Regards,
>
>
> Harry
>
>
>
> Pada Senin, 10 Februari 2014 17:16, hendrik karnadi <
> hendrikkarnadi@yahoo.com> menulis:
>
> Hai Harry,
> Kalau yang dimaksud adalah cari kata atau bagian dari kata dalam range
> tertentu atau dalam satu sheet maka warisan si mbah (terlampir) barangkali
> bisa jadi panutan.
>
> Salam,
> HK
>
>
> On Monday, 10 February 2014, 16:49, Harry <hariansyahptk@yahoo.com>
> wrote:
>
> Dear BeExleller,
>
> Mengikuti tentang pembahasan ini, saya bermaksud untuk lebih menanyakan
> secara detail tentang bagaimana caranya jika membuat Search Engine dengan
> jumlah colom yang banyak.
>
> Saya sudah mencoba untuk merealisaasikan dengan workbook yang saya buat
> tetapi saya masih mengalami kendala (Error).
>
> Oleh sebab itu, kiranya teman-teman BeExeller dapat menginoformasikan
> caranya.
>
> Terlampir Workbook yang saya buat.
>
> Terima kasih,
>
>
> Harry
>
> --- Mods ---
> File lampiran yang lebih dari 250KB dilepas dari email.
> Silakan penanya melampirkan kembali file yang <=250KB dengan me-reply
> email ini.
> -------------
>
> Pada Selasa, 30 Juli 2013 9:41, Jan Raisin <miss.jan.raisin@gmail.com>
> menulis:
>
> Maaf baru dibalas, karena harus bed rest selama beberapa hari.
>
> coba script seperti ini:
>
> Option Explicit
> ' =================================== '
> ' cari data dari sheet lain '
> ' script by: Miss Jan Raisin '
> ' Biak, 11 Juli 2013 '
> ' untuk belajar-excel@yahoogroups.com '
> ' revisi, Batu, Malang, 30 Juli 2013 '
> ' =================================== '
>
> ' awal dari prosedur
> Sub Cari()
> ' deklarasikan semua variabel yang dibutuhkan
> ' sCol >> digunakan untuk menyimpan nama header kolom
> ' yang akan dicari, tipe datanya String
> Dim sCol As String
>
> ' rgFind >> digunakan untuk menyimpan range pencarian sCol
> ' dari sini akan diketahui header data terletak pada kolom
> berapa
> Dim rgFind As Range
>
> ' rgData >> digunakan untuk menyimpan range data berdasarkan
> ' letak kolom yang diketahui
> ' posisinya mulai 1 baris setelah header
> ' sampai data yang paling bawah
> Dim rgData As Range
>
> ' rgCell adalah setiap range atau cell di dalam rgData
> Dim rgCell As Range
>
> ' iCol >> digunakan untuk menyimpan nomor kolom rgFind
> Dim iCol As Integer
>
> ' lRow >> digunakan untuk untuk menyimpan nomor baris akhir data
> Dim lRow As Long
>
> ' vCrit >> digunakan untuk menyimpan kriteria
> ' berhubung kriteria bisa diisi dengan
> ' huruf, angka, atau kombinasi keduanya
> ' maka tipe data menggunakan variant
> Dim vCrit As Variant
>
> ' lakukan proteksi pada sheet cari >> Sheets("cari").Protect
> ' tentukan passwordnya untuk protect/unprotect >> Password:="12345"
> ' proteksi hanya untuk user saja, sedangkan vba tetap boleh bekerja
> ' >> userinterfaceonly:=True
> Sheets("cari").Protect Password:="12345", userinterfaceonly:=True
>
> ' tampilkan sheet data karena nanti akan dilakukan proses
> ' pencarian pada sheet ini
> Sheets("data").Visible = xlSheetVisible
>
> ' hapus hasil pencarian sebelumnya >> .ClearContents
> ' mulai cell B8 >> Range("b8")
> ' sampai dengan data paling kanan >> .End(xlToRight)
> ' setara dengan menekan tombol CTRL panah_kanan
> ' lalu sampai data yang paling bawah >> .End(xlDown)
> ' setara dengan menekan tombol CTRL panah_bawah
> Range(Range("b8"),
> Range("b8").End(xlToRight).End(xlDown)).ClearContents
>
> ' atau bisa juga dengan select seluruh data di sekitar cell B8
> ' >> Range("b8").CurrentRegion
> ' karena header di baris 7 juga ikut terpilih
> ' maka selectionnya harus turun 1 baris ke bawah >> .Offset(1)
> ' setelah itu hapus data yang ada >> .ClearContents
> ' Range("b8").CurrentRegion.Offset(1).ClearContents
>
> ' masukkan header kolom pencarian ke dalam variabel sCol
> ' asalnya dari nilai di cell C3 >> Range("c3").Value
> sCol = Range("c3").Value
>
> ' masukkan kriteria pencarian ke dalam variabel vCrit
> ' asalnya dari nilai di cell C5 >> Range("c5").Value
> vCrit = Range("c5").Value
>
> ' bekerja dengan sheet data
> With Sheets("data")
>
> ' setiap object yang didahului titik berarti milik sheet data
> ' setiap object yang TIDAK didahului titik berarti milik sheet cari
> ' set lokasi rgFind
> ' berasal dari pencarian di sheet data cell A2 s/d J2 >>
> .Range("a2:j2").Find
> ' yang dicari adalah sCol yaitu nilai dari cell C3 di sheet cari
> >> sCol
> ' pencarian terhadap seluruh isi cell >> lookat:=xlWhole
> ' case sensitif >> MatchCase:=True
> Set rgFind = .Range("a2:j2").Find(sCol, lookat:=xlWhole,
> MatchCase:=True)
>
> ' setelah ditemukan, ambil nilai kolomnya >> rgFind.Column
> ' dan simpan ke dalam variabel iCol
> iCol = rgFind.Column
>
> ' cari nilai baris data yang paling akhir >>
> .Range("a2").CurrentRegion.Rows.Count
> ' dan simpan dalam variabel lRow
> lRow = .Range("a2").CurrentRegion.Rows.Count
>
> ' atau bisa juga menggunakan script berikut
> 'lRow = .Cells(.Rows.Count, iCol).End(xlUp).Row
>
> ' set range data yang akan diuji nilainya >> Set rgData
> ' terletak pada sheet data
> ' mulai dari baris 3 dan kolom iCol >> .Cells(3, iCol)
> ' sampai dengan baris data terakhir pada kolom iCol >> .Cells(lRow,
> iCol)
> Set rgData = .Range(.Cells(3, iCol), .Cells(lRow, iCol))
>
> ' untuk setiap cel di dalam rgData
> For Each rgCell In rgData
>
> ' cari di vCrit di setiap cell >> rgCell.Find(vCrit
> ' pencariannya boleh per bagian, tidak harus utuh >>
> lookat:=xlPart
> ' boleh huruf besar atau kecil >> MatchCase:=False
> Set rgFind = rgCell.Find(vCrit, lookat:=xlPart,
> MatchCase:=False)
>
> ' uji apakah datanya ada atau tidak
> ' jika rgFind TIDAK x TIDAK ADA, maka
> ' atau jika ADA hasil yang sesuai, maka
> ' negatif x negatif = positif
> ' Not x Is Nothing = There is something
> ' Tidak x Tidak Ada = ADA
> If Not rgFind Is Nothing Then
>
> ' jika datanya ada maka masuk ke proses ini
> ' pada area di sheet data >> .Range
> ' pada baris tersebut kolom 1 >> .Cells(rgCell.Row, 1)
> ' sampai baris tersebut kolom 10 >> .Cells(rgCell.Row, 10
> ' dilakukan proses copy >> .Copy
> .Range(.Cells(rgCell.Row, 1), .Cells(rgCell.Row, 10)).Copy
>
> ' cari lokasi baris penulisan data yang baru di sheet cari
> dengan cara
> ' dari baris data yang paling bawah di kolom 2 >> Cells(Rows.Count,
> 2)
> ' pergi ke data di atasnya >> .End(xlUp)
> ' setara dengan menekan tombol CTRL panah_atas
> ' lalu turun 1 baris ke bawah >> .Offset(1)
> ' setara dengan menekan tombol panah_bawah
> ' lakukan paste special nilai dan format angkanya
> ' >> .PasteSpecial xlPasteValuesAndNumberFormats
> Cells(Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial
> xlPasteValuesAndNumberFormats
>
> ' non-aktifkan proses copasnya
> Application.CutCopyMode = False
>
> ' akhir dari pengujian
> End If
>
> ' pindah ke cel berikutnya
> Next rgCell
>
> ' akhir bekerja dengan sheet data
> End With
>
> ' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
> ' supaya tidak bisa dimunculkan dengam klik kanan
> ' maka pilih opsi very hidden
> Sheets("data").Visible = xlSheetVeryHidden
>
> ' biar kelihatan bagus, letakan cel aktif di C5
> Range("c5").Select
>
> ' akhir dari prosedur
> End Sub
>
> file terlampir
>
> ÙˆَسَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
>
> -Miss Jan Raisin-
>
silakan dipelajari langkah-langkahnya berdasarkan email Jan yang anda quote
untuk pertanyaan ini, atau berdasarkan file dari mbak Siti yang telah
dikirimkan oleh pak Hendrik.
Jika dirasa kurang jelas, mungkin anda bisa mulai dari link
ini<http://b-excel.
Belajar sedikit-sedikit dari yang sederhana akan lebih bermanfaat
dibandingkan ingin langsung menguasai semuanya tetapi tidak memiliki dasar
yang kuat.
Salam,
-MJR-
Pada 12 Februari 2014 22.57, Harry <hariansyahptk@
>
>
> Dear BeExceller,
>
> Mohon rekan-rekan BeExceller dapat memberi pencerahan akan pertanyaan saya.
> Terima kasih atas pencerahan rekan-rekan sekalian.
>
> Regards,
>
>
> Harry
>
>
> Pada Selasa, 11 Februari 2014 4:02, Harry <hariansyahptk@
> menulis:
>
> Dear Hendrik
>
> Terima kasih atas lampirannya.
> Tapi menurut saya yang sesuai dengan Workbook yang saya buat adalah
> sebagaimana lampiran yang saya sertakan.
> Mohon kiranya dapat pemcerahan dari teman-teman BeExceller.
>
> Regards,
>
>
> Harry
>
>
>
> Pada Senin, 10 Februari 2014 17:16, hendrik karnadi <
> hendrikkarnadi@
>
> Hai Harry,
> Kalau yang dimaksud adalah cari kata atau bagian dari kata dalam range
> tertentu atau dalam satu sheet maka warisan si mbah (terlampir) barangkali
> bisa jadi panutan.
>
> Salam,
> HK
>
>
> On Monday, 10 February 2014, 16:49, Harry <hariansyahptk@
> wrote:
>
> Dear BeExleller,
>
> Mengikuti tentang pembahasan ini, saya bermaksud untuk lebih menanyakan
> secara detail tentang bagaimana caranya jika membuat Search Engine dengan
> jumlah colom yang banyak.
>
> Saya sudah mencoba untuk merealisaasikan dengan workbook yang saya buat
> tetapi saya masih mengalami kendala (Error).
>
> Oleh sebab itu, kiranya teman-teman BeExeller dapat menginoformasikan
> caranya.
>
> Terlampir Workbook yang saya buat.
>
> Terima kasih,
>
>
> Harry
>
> --- Mods ---
> File lampiran yang lebih dari 250KB dilepas dari email.
> Silakan penanya melampirkan kembali file yang <=250KB dengan me-reply
> email ini.
> ------------
>
> Pada Selasa, 30 Juli 2013 9:41, Jan Raisin <miss.jan.raisin@
> menulis:
>
> Maaf baru dibalas, karena harus bed rest selama beberapa hari.
>
> coba script seperti ini:
>
> Option Explicit
> ' ============
> ' cari data dari sheet lain '
> ' script by: Miss Jan Raisin '
> ' Biak, 11 Juli 2013 '
> ' untuk belajar-excel@
> ' revisi, Batu, Malang, 30 Juli 2013 '
> ' ============
>
> ' awal dari prosedur
> Sub Cari()
> ' deklarasikan semua variabel yang dibutuhkan
> ' sCol >> digunakan untuk menyimpan nama header kolom
> ' yang akan dicari, tipe datanya String
> Dim sCol As String
>
> ' rgFind >> digunakan untuk menyimpan range pencarian sCol
> ' dari sini akan diketahui header data terletak pada kolom
> berapa
> Dim rgFind As Range
>
> ' rgData >> digunakan untuk menyimpan range data berdasarkan
> ' letak kolom yang diketahui
> ' posisinya mulai 1 baris setelah header
> ' sampai data yang paling bawah
> Dim rgData As Range
>
> ' rgCell adalah setiap range atau cell di dalam rgData
> Dim rgCell As Range
>
> ' iCol >> digunakan untuk menyimpan nomor kolom rgFind
> Dim iCol As Integer
>
> ' lRow >> digunakan untuk untuk menyimpan nomor baris akhir data
> Dim lRow As Long
>
> ' vCrit >> digunakan untuk menyimpan kriteria
> ' berhubung kriteria bisa diisi dengan
> ' huruf, angka, atau kombinasi keduanya
> ' maka tipe data menggunakan variant
> Dim vCrit As Variant
>
> ' lakukan proteksi pada sheet cari >> Sheets("
> ' tentukan passwordnya untuk protect/unprotect >> Password:="
> ' proteksi hanya untuk user saja, sedangkan vba tetap boleh bekerja
> ' >> userinterfaceonly:
> Sheets("
>
> ' tampilkan sheet data karena nanti akan dilakukan proses
> ' pencarian pada sheet ini
> Sheets("
>
> ' hapus hasil pencarian sebelumnya >> .ClearContents
> ' mulai cell B8 >> Range("
> ' sampai dengan data paling kanan >> .End(xlToRight)
> ' setara dengan menekan tombol CTRL panah_kanan
> ' lalu sampai data yang paling bawah >> .End(xlDown)
> ' setara dengan menekan tombol CTRL panah_bawah
> Range(Range(
> Range("
>
> ' atau bisa juga dengan select seluruh data di sekitar cell B8
> ' >> Range("
> ' karena header di baris 7 juga ikut terpilih
> ' maka selectionnya harus turun 1 baris ke bawah >> .Offset(1)
> ' setelah itu hapus data yang ada >> .ClearContents
> ' Range("
>
> ' masukkan header kolom pencarian ke dalam variabel sCol
> ' asalnya dari nilai di cell C3 >> Range("
> sCol = Range("
>
> ' masukkan kriteria pencarian ke dalam variabel vCrit
> ' asalnya dari nilai di cell C5 >> Range("
> vCrit = Range("
>
> ' bekerja dengan sheet data
> With Sheets("
>
> ' setiap object yang didahului titik berarti milik sheet data
> ' setiap object yang TIDAK didahului titik berarti milik sheet cari
> ' set lokasi rgFind
> ' berasal dari pencarian di sheet data cell A2 s/d J2 >>
> .Range("
> ' yang dicari adalah sCol yaitu nilai dari cell C3 di sheet cari
> >> sCol
> ' pencarian terhadap seluruh isi cell >> lookat:=xlWhole
> ' case sensitif >> MatchCase:=True
> Set rgFind = .Range("
> MatchCase:=True)
>
> ' setelah ditemukan, ambil nilai kolomnya >> rgFind.Column
> ' dan simpan ke dalam variabel iCol
> iCol = rgFind.Column
>
> ' cari nilai baris data yang paling akhir >>
> .Range("
> ' dan simpan dalam variabel lRow
> lRow = .Range("
>
> ' atau bisa juga menggunakan script berikut
> 'lRow = .Cells(.Rows.
>
> ' set range data yang akan diuji nilainya >> Set rgData
> ' terletak pada sheet data
> ' mulai dari baris 3 dan kolom iCol >> .Cells(3, iCol)
> ' sampai dengan baris data terakhir pada kolom iCol >> .Cells(lRow,
> iCol)
> Set rgData = .Range(.Cells(
>
> ' untuk setiap cel di dalam rgData
> For Each rgCell In rgData
>
> ' cari di vCrit di setiap cell >> rgCell.Find(
> ' pencariannya boleh per bagian, tidak harus utuh >>
> lookat:=xlPart
> ' boleh huruf besar atau kecil >> MatchCase:=False
> Set rgFind = rgCell.Find(
> MatchCase:=False)
>
> ' uji apakah datanya ada atau tidak
> ' jika rgFind TIDAK x TIDAK ADA, maka
> ' atau jika ADA hasil yang sesuai, maka
> ' negatif x negatif = positif
> ' Not x Is Nothing = There is something
> ' Tidak x Tidak Ada = ADA
> If Not rgFind Is Nothing Then
>
> ' jika datanya ada maka masuk ke proses ini
> ' pada area di sheet data >> .Range
> ' pada baris tersebut kolom 1 >> .Cells(rgCell.
> ' sampai baris tersebut kolom 10 >> .Cells(rgCell.
> ' dilakukan proses copy >> .Copy
> .Range(.Cells(
>
> ' cari lokasi baris penulisan data yang baru di sheet cari
> dengan cara
> ' dari baris data yang paling bawah di kolom 2 >> Cells(Rows.Count,
> 2)
> ' pergi ke data di atasnya >> .End(xlUp)
> ' setara dengan menekan tombol CTRL panah_atas
> ' lalu turun 1 baris ke bawah >> .Offset(1)
> ' setara dengan menekan tombol panah_bawah
> ' lakukan paste special nilai dan format angkanya
> ' >> .PasteSpecial xlPasteValuesAndNum
> Cells(Rows.Count, 2).End(xlUp)
> xlPasteValuesAndNum
>
> ' non-aktifkan proses copasnya
> Application.
>
> ' akhir dari pengujian
> End If
>
> ' pindah ke cel berikutnya
> Next rgCell
>
> ' akhir bekerja dengan sheet data
> End With
>
> ' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
> ' supaya tidak bisa dimunculkan dengam klik kanan
> ' maka pilih opsi very hidden
> Sheets("
>
> ' biar kelihatan bagus, letakan cel aktif di C5
> Range("
>
> ' akhir dari prosedur
> End Sub
>
> file terlampir
>
> ÙˆَسَّلاَÙ…ُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
>
> -Miss Jan Raisin-
>
Wed Feb 12, 2014 8:46 pm (PST) . Posted by:
"Dedi Komarudin" dedikom81
Mohon ijin, maaf ikut menyimak, menarik sekali apa yang di sampaikan Miss jan, bolehkah saya mendapatkan lampiran seperti yang di sampaikan Miss jan, saya susah menemukan lampirannya untuk bahan pembelajaran.
Terima kasih.
Salam
Dedi Komarudin
----- Mods -----
Mungkin file yang dari bisa didownload melalui link :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Cara-Membuat-Search-Engine-td5719606.html http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Cara-Membuat-Search-Engine-td5719606.html
Nama filenya: MJR-Search Engine_v2.xlsb
____________
Pada Kamis, 13 Februari 2014 8:28, Jan Raisin menulis:
pak Harry,
silakan dipelajari langkah-langkahnya berdasarkan email Jan yang anda quote untuk pertanyaan ini, atau berdasarkan file dari mbak Siti yang telah dikirimkan oleh pak Hendrik.
Jika dirasa kurang jelas, mungkin anda bisa mulai dari link ini http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html
Belajar sedikit-sedikit dari yang sederhana akan lebih bermanfaat dibandingkan ingin langsung menguasai semuanya tetapi tidak memiliki dasar yang kuat.
Salam,
-MJR-
Terima kasih.
Salam
Dedi Komarudin
----- Mods -----
Mungkin file yang dari bisa didownload melalui link :
http://milis-
Nama filenya: MJR-Search Engine_v2.xlsb
____________
Pada Kamis, 13 Februari 2014 8:28, Jan Raisin menulis:
pak Harry,
silakan dipelajari langkah-langkahnya berdasarkan email Jan yang anda quote untuk pertanyaan ini, atau berdasarkan file dari mbak Siti yang telah dikirimkan oleh pak Hendrik.
Jika dirasa kurang jelas, mungkin anda bisa mulai dari link ini http://b-excel.
Belajar sedikit-sedikit dari yang sederhana akan lebih bermanfaat dibandingkan ingin langsung menguasai semuanya tetapi tidak memiliki dasar yang kuat.
Salam,
-MJR-
Wed Feb 12, 2014 5:13 pm (PST) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
pak Mulki, sudah coba fitur Pivot Chart?
langkah-labgkahnya sama dengan pembuatan Pivot Table, hanya saja hasil yang
ditampilkan sudah dalam bentuk grafik.
silakan dibaca teknis pembuatannya dari blognya mr. Kid (di milis ini yang
punya blog cuma mr Kid ya?)
jika nanti ada kesulitan, silakan ditanyakan kembali ke sini.
Wassalam,
-MJR-
Pada 12 Februari 2014 11.45, Mulki <mulki@aop.component.astra.co.id>menulis:
>
>
> Assalamu'alaikum Wr. Wb. Mohon bantuan rekan dan guru2
> B-Xlers Saya memiliki data seperti dlm lampiran yg ingin
> ditampilkan dlm sebuah grafic dg ketentuan sbb : 1. Menampilkan Qty
> Pesan (Kolom H) & Qty Terkirim (Kolom I) berdasarkan Tgl Actual Stuffing
> (Kolom K) 2. Selain Qty tersbt jg ingin ditampilkan Nama Customer
> (Kolom C) & Brandnya (Kolom F) dg ketentuan, jika ada lebih dari 1 customer
> yg memiliki Tgl Actual Stuffing yg sama maka Qty Pesan & Qty Terkirim akan
> di Totalkan pada tanggal Stuffing yg sama trsbt. Terimakasih atas
> pencerahan dari rekan2 & guru2 B-Xlers. Wassalam,
>
>
>
pak Mulki, sudah coba fitur Pivot Chart?
langkah-labgkahnya sama dengan pembuatan Pivot Table, hanya saja hasil yang
ditampilkan sudah dalam bentuk grafik.
silakan dibaca teknis pembuatannya dari blognya mr. Kid (di milis ini yang
punya blog cuma mr Kid ya?)
jika nanti ada kesulitan, silakan ditanyakan kembali ke sini.
Wassalam,
-MJR-
Pada 12 Februari 2014 11.45, Mulki <mulki@aop.component
>
>
> Assalamu'
> B-Xlers Saya memiliki data seperti dlm lampiran yg ingin
> ditampilkan dlm sebuah grafic dg ketentuan sbb : 1. Menampilkan Qty
> Pesan (Kolom H) & Qty Terkirim (Kolom I) berdasarkan Tgl Actual Stuffing
> (Kolom K) 2. Selain Qty tersbt jg ingin ditampilkan Nama Customer
> (Kolom C) & Brandnya (Kolom F) dg ketentuan, jika ada lebih dari 1 customer
> yg memiliki Tgl Actual Stuffing yg sama maka Qty Pesan & Qty Terkirim akan
> di Totalkan pada tanggal Stuffing yg sama trsbt. Terimakasih atas
> pencerahan dari rekan2 & guru2 B-Xlers. Wassalam,
>
>
>
Wed Feb 12, 2014 7:29 pm (PST) . Posted by:
"Fahri.S" fahri_litbang@ymail.com
Mohon bantuannya,... bagaimana caranya menggantikan formula if ke dalam vba
ini adalah contoh filenya Belajar_membuat_data.xlsm
<http://milis-belajar-excel.1048464.n5.nabble.com/file/n5723691/Belajar_membuat_BKU.xlsm>
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Mohon-bantuan-bagaimana-caranya-menggunakan-formula-if-di-vba-tp5723691.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
ini adalah contoh filenya Belajar_membuat_
<http://milis-
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Wed Feb 12, 2014 8:29 pm (PST) . Posted by:
"Jan Raisin"
Hai Facry,
ternyata threadnya adalah bagaimana menyingkat If bertingkat yang panjang
banget sepanjang kereta api babaranjang di pulau sumatera..
sebagai awalan, mungkin link
ini<http://excel-mr-kid.blogspot.com/2013/09/menyingkat-if-yang-puanjuaaaang-buanget.html>bisa
memberikan sedikit pencerahan... formula biasa bukan vba
Salam,
-MJR-
Pada 13 Februari 2014 10.24, Fahri.S <fahri_litbang@ymail.com> menulis:
>
>
> Mohon bantuannya,... bagaimana caranya menggantikan formula if ke dalam
> vba ini adalah contoh filenya Belajar_membuat_data.xlsm<http://milis-belajar-excel.1048464.n5.nabble.com/file/n5723691/Belajar_membuat_BKU.xlsm>
> ------------------------------
> View this message in context: Mohon bantuan bagaimana caranya menggunakan
> formula if di vba<http://milis-belajar-excel.1048464.n5.nabble.com/Mohon-bantuan-bagaimana-caranya-menggunakan-formula-if-di-vba-tp5723691.html>
> Sent from the Milis Belajar Excel mailing list archive<http://milis-belajar-excel.1048464.n5.nabble.com/>at Nabble.com.
>
>
>
ternyata threadnya adalah bagaimana menyingkat If bertingkat yang panjang
banget sepanjang kereta api babaranjang di pulau sumatera..
sebagai awalan, mungkin link
ini<http://excel-
memberikan sedikit pencerahan..
Salam,
-MJR-
Pada 13 Februari 2014 10.24, Fahri.S <fahri_litbang@
>
>
> Mohon bantuannya,.
> vba ini adalah contoh filenya Belajar_membuat_
> ------------
> View this message in context: Mohon bantuan bagaimana caranya menggunakan
> formula if di vba<http://milis-
> Sent from the Milis Belajar Excel mailing list archive<http://milis-
>
>
>
Wed Feb 12, 2014 9:00 pm (PST) . Posted by:
"Fahri.S" fahri_litbang@ymail.com
makasi sebelumnya karna udh mau respon,... maksudnya gini,... pada sheet IBKU
adalah entry data, antara jumlah kolom IBKU dan ISPPD itu adalah sama
banyak. maksudnya bisa dak formula pada "No BKU" di ISPPD
*=IF(OR(IBKU!E8="Pengembalian Panjar",IBKU!E8="Pengembalian S P 2
D",IBKU!E8="Panjar",IBKU!E8="Tanpa
Panjar"),"",IF(OR(IBKU!H8="5.2.2.15.001",IBKU!H8="5.2.2.15.002"),IBKU!A8,""))*,
dirubah ke macro vba klu dia diautofilterkan dia akan terpaste spesial.
karna kalau dipakai copy formula dari atas ke bawah pada No BKU di sheet
ISPPD nya. filenya akan membengkak jadi puluhan MegaBite. nah,... dari
merujuk ke MB ni lah, bisa dak filenya jadi Kilobite.
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Mohon-bantuan-bagaimana-caranya-menggunakan-formula-if-di-vba-tp5723691p5723694.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
adalah entry data, antara jumlah kolom IBKU dan ISPPD itu adalah sama
banyak. maksudnya bisa dak formula pada "No BKU" di ISPPD
*=IF(OR(IBKU!
D",IBKU!
Panjar"
dirubah ke macro vba klu dia diautofilterkan dia akan terpaste spesial.
karna kalau dipakai copy formula dari atas ke bawah pada No BKU di sheet
ISPPD nya. filenya akan membengkak jadi puluhan MegaBite. nah,... dari
merujuk ke MB ni lah, bisa dak filenya jadi Kilobite.
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Wed Feb 12, 2014 7:35 pm (PST) . Posted by:
"ChordJR" indra_gustian
Assalamualaikum Wr. Wb.
Minta bantuan dari pada master untuk coding macro yang sudah ada sebelum
saya bekerja,karena ilmu saya yang masih awam mohon di berikan coding
yang tepat...karena saya mencoba untuk membuat file baru dengan bagan
yang sama tapi tidak bisa bekerja...saya rasa mungkin ada kekurangan
pada macro ini...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 4 Then
'calculate criteria cell in case calculation mode is manual
Sheets("DATA").Range("Criteria").Calculate
Worksheets("DATA").Range("database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("DATA").Range("criteria"), _
CopyToRange:=Range("A8:Ay8"), Unique:=False
End If
End Sub
*Untuk Name Range pada sheet Data :
criteria=DATA!$B$1:$B$2
database=DATA!$B$4:$DJ$30000
Saya rasa dengan penjelasan singkat ini dapat di mengerti oleh para
master...karena untuk mengupload file terlalu besar sizenya...
Wassalam,
Indra
----- Mods -----
Sample data dengan ukuran <= 250 KB akan lebih memudahkan calon penanggap
silakan kirim sample workbook, tidak harus data asli, jumlah data tidak perlu banyak
yang penting mewakili kasus yang ditanyakan.
Berikan juga keterangan, apa2 saja yang diinginkan termasuk contoh hasil manual
____________
Minta bantuan dari pada master untuk coding macro yang sudah ada sebelum
saya bekerja,karena ilmu saya yang masih awam mohon di berikan coding
yang tepat...karena saya mencoba untuk membuat file baru dengan bagan
yang sama tapi tidak bisa bekerja...saya rasa mungkin ada kekurangan
pada macro ini...
Option Explicit
Private Sub Worksheet_Change(
If Target.Row = 2 And Target.Column = 4 Then
'calculate criteria cell in case calculation mode is manual
Sheets("
Worksheets("
.AdvancedFilter Action:=xlFilterCop
CriteriaRange:
CopyToRange:
End If
End Sub
*Untuk Name Range pada sheet Data :
criteria=DATA!
database=DATA!
Saya rasa dengan penjelasan singkat ini dapat di mengerti oleh para
master...karena untuk mengupload file terlalu besar sizenya...
Wassalam,
Indra
----- Mods -----
Sample data dengan ukuran <= 250 KB akan lebih memudahkan calon penanggap
silakan kirim sample workbook, tidak harus data asli, jumlah data tidak perlu banyak
yang penting mewakili kasus yang ditanyakan.
Berikan juga keterangan, apa2 saja yang diinginkan termasuk contoh hasil manual
____________
Wed Feb 12, 2014 8:48 pm (PST) . Posted by:
agung_tzt
Dear All Master
Mohon bantuannya untuk memecahkan masalah ini
Thanks, B'Regard
Mohon bantuannya untuk memecahkan masalah ini
Thanks, B'Regard
Wed Feb 12, 2014 9:50 pm (PST) . Posted by:
"David Kurnia" david.kurnia1979
Dear Master Excel,
Mohon bantuannya.
Saya ingin membuat laporan dengan kondisi sbb:
- Data terlampir ini ingin disebarkan ke dalam sheet laporan sesuai dengan kota keberadaannya dimana data tahun dan produksi juga sekaligus mengikutinya.
- Dan juga nomor yang muncul pada sheet laporan sesuai jumlah data yang terdeteksi pada tabel masing-masing
Terima kasih.
David
Mohon bantuannya.
Saya ingin membuat laporan dengan kondisi sbb:
- Data terlampir ini ingin disebarkan ke dalam sheet laporan sesuai dengan kota keberadaannya dimana data tahun dan produksi juga sekaligus mengikutinya.
- Dan juga nomor yang muncul pada sheet laporan sesuai jumlah data yang terdeteksi pada tabel masing-masing
Terima kasih.
David
Wed Feb 12, 2014 11:03 pm (PST) . Posted by:
"Jan Raisin"
Hai David,
coba susun data sehingga berkaidah database yang baik, bahan bacaannya bisa
dilihat di sini<http://excel-mr-kid.blogspot.com/2011/02/susun-data-sebagai-tabel-yang-baik.html>
setelah disusun sebagai tabel yang baik, maka coba manfaatkan fitur Pivot
table, bahan bacaannya bisa dimulai dari
sini<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>
sampai
dengan bagian yang ketiga
setelah itu lakukan filter sesuai dengan lokasi,
Pivot yang tadi bisa dicopas ke sheet lain lalu ubah lokasinya melalui
filter
jika ada perubahan data, cukup lakukan refresh pada pivot table pertama,
secara otomatis pivot table yang lain juga akan berubah sesuai dengan data
yang baru.
File terlampir sebagai awalan.. belum difilter, silakan difilter dan
dicopas sendiri ke sheet yang lain sesuai dengan keinginan
salam,
-Miss Jan Raisin-
Pada 13 Februari 2014 12.31, David Kurnia <david.kurnia1979@yahoo.com>menulis:
>
>
> Dear Master Excel,
>
> Mohon bantuannya.
> Saya ingin membuat laporan dengan kondisi sbb:
> - Data terlampir ini ingin disebarkan ke dalam sheet laporan sesuai dengan
> kota keberadaannya dimana data tahun dan produksi juga sekaligus
> mengikutinya.
> - Dan juga nomor yang muncul pada sheet laporan sesuai jumlah data yang
> terdeteksi pada tabel masing-masing
>
> Terima kasih.
> David
> __._,_._
>
coba susun data sehingga berkaidah database yang baik, bahan bacaannya bisa
dilihat di sini<http://excel-
setelah disusun sebagai tabel yang baik, maka coba manfaatkan fitur Pivot
table, bahan bacaannya bisa dimulai dari
sini<http://excel-
sampai
dengan bagian yang ketiga
setelah itu lakukan filter sesuai dengan lokasi,
Pivot yang tadi bisa dicopas ke sheet lain lalu ubah lokasinya melalui
filter
jika ada perubahan data, cukup lakukan refresh pada pivot table pertama,
secara otomatis pivot table yang lain juga akan berubah sesuai dengan data
yang baru.
File terlampir sebagai awalan.. belum difilter, silakan difilter dan
dicopas sendiri ke sheet yang lain sesuai dengan keinginan
salam,
-Miss Jan Raisin-
Pada 13 Februari 2014 12.31, David Kurnia <david.kurnia1979@
>
>
> Dear Master Excel,
>
> Mohon bantuannya.
> Saya ingin membuat laporan dengan kondisi sbb:
> - Data terlampir ini ingin disebarkan ke dalam sheet laporan sesuai dengan
> kota keberadaannya dimana data tahun dan produksi juga sekaligus
> mengikutinya.
> - Dan juga nomor yang muncul pada sheet laporan sesuai jumlah data yang
> terdeteksi pada tabel masing-masing
>
> Terima kasih.
> David
> __._,_._
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar