hehehehe... bener-bener macro yang aneh.... sudah capek-capek memfilter kok ya meng-copy nya gak milih yang ok menurut proses filternya.
;) 2014-11-16 22:46 GMT+11:00 hendrik karnadi [email protected] [belajar-excel] <[email protected]>: > > > Pak Ahmad, > > Dari Macro di bawah ini, > > Sub FindText() > Dim ws As Worksheet > Dim LastRow As Integer > Dim TotalRows As Integer > Sheets("Search").Range("A7", > Sheets("Search").Range("A7").End(xlDown)).Resize(, 7).ClearContents > For Each ws In ThisWorkbook.Worksheets > If ws.Name <> "Search" Then > If ws.FilterMode Then > ws.ShowAllData > End If > LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row > ws.Range("$B$5:$G" & LastRow).AutoFilter 3, *"=*" & > Sheets("Search").Range("D4").Value & "*"* > ws.Range("$B$7:$G" & LastRow).Copy Sheets("Search").Range("B" > & Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row) > TotalRows = TotalRows + LastRow - 6 > End If > Next ws > Range("D1").Value = TotalRows > Range("D2").Formula = "=COUNT(B7:B" & TotalRows + 6 & ")" > Range("G7:G" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = > "=SUM(R6C5:RC[-2])-SUM(R6C6:RC[-1])" > Range("A7:A" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = > "=IF(RC[1]="""","""",N(R[-1]C)+1)" > End Sub > > Kunci pencarian ada pada warna merah (sheet Search range D4), artinya > apapun yang kita ketik, mis "bensin" maka kriteria pencarian adalah semua > yang mengandung kata "bensin" pada kolom Keterangan. > > Tapi hasilnya pada sheet "Search" (*file terlampir*) memang sungguh aneh, > Maaf saya belum menemukan jawabannya. > Semoga ada Be-Exceller lainnya yang bisa memecahkam masalah ini. > > Salam, > HK > > ------------------------------ > *From:* "Ahmad Syaifullah Lubis [email protected] [belajar-excel]" < > [email protected]> > *To:* [email protected] > *Sent:* Saturday, 15 November 2014, 11:09 > *Subject:* RE: [belajar-excel] fungsi find and select > > > Mr HK, > maaf sekali lagi, hasilnya masih ada yang salah. saat saya ketik wagura , > meterai bisa ditampikan dengan baik, tetapi saat saya ketikkan "bensin" > hasilnya tidak seusai. > terima kasih, > ASL > > > > ------------------------------ > To: [email protected] > From: [email protected] > Date: Fri, 14 Nov 2014 15:15:45 +0000 > > Subject: Fw: [belajar-excel] fungsi find and select [1 Attachment] > > > > Setelah saya cek ulang filenya ternyata ada kesalahan format pada kolom > No, seharusnya format number > > ----- Forwarded Message ----- > *From:* "hendrik karnadi [email protected] [belajar-excel]" < > [email protected]> > *To:* "[email protected]" <[email protected]> > *Sent:* Friday, 14 November 2014, 14:48 > *Subject:* Fw: [belajar-excel] fungsi find and select [1 Attachment] > > > Pak Ahmad, > Ini File yang telah direvisi. > > Salam, > HK > > > > ----- Forwarded Message ----- > *From:* "Ahmad Syaifullah Lubis [email protected] [belajar-excel]" < > [email protected]> > *To:* [email protected] > *Sent:* Friday, 14 November 2014, 13:40 > *Subject:* RE: [belajar-excel] fungsi find and select > > > Mr HK, > kenapa saat saya ketik keyword yang dicari, memang ditemukan, tetapi data > lamanya tidak diclear ya, sehingga data yang baru saja dicari, akan ditaruh > dibaris setelah data lama. apa ada aturan cara pakainya. > terima kasih, > > ASL > > > > ------------------------------ > To: [email protected] > From: [email protected] > Date: Thu, 13 Nov 2014 08:36:13 +0000 > Subject: Fw: [belajar-excel] fungsi find and select [1 Attachment] > > > > Walaupun telah seminggu berlalu, namun tidak ada salahnya share jawaban > pake macro.... > > Mungkin bisa menjadi bahan rujukan untuk kasus2 lainya. > > Semoga bermanfaat. > > Salam, > HK > > > ----- Forwarded Message ----- > *From:* "Ahmad Syaifullah Lubis [email protected] [belajar-excel]" < > [email protected]> > *To:* [email protected] > *Sent:* Thursday, 6 November 2014, 13:00 > *Subject:* RE: [belajar-excel] fungsi find and select > > > > Mr Kid, > terima kasih atas bantuannya. > sangat membantu. > ASL. > > > ------------------------------ > To: [email protected] > From: [email protected] > Date: Thu, 6 Nov 2014 16:45:53 +1100 > Subject: Re: [belajar-excel] fungsi find and select > > > > Hai Ahmad, > > File tempo lalu untuk Excel 2007 ke atas. > > Coba : > 0. jika belum pernah refresh, lakukan refresh > > ribbon Data -> group Connections -> refresh all > 1. filter data > > ke sheet output -> lihat kolom K -> klik tanda autofilter di cell K2 > -> pilih Label filter -> pilih Contains > -> muncul dialog window -> tulis bunyi teks yang dicari di textbox > sisi kanan -> OK > > Andai sempat jalan-jalan, silakan mampir ke coretan angkring tentang sort > dan filter dalam pivot table disini > <http://excel-mr-kid.blogspot.com/2014/10/pivot-table-4-sorts-filters.html> > . > Cara buat pivot table consolidation range di xl2007 ke atas bisa dilihat > dalam file yang ada disini > <http://milis-belajar-excel.1048464.n5.nabble.com/attachment/5712880/0/re-Summary%20movement.xlsx> > . > > Wassalam, > Kid. > > > 2014-11-06 16:24 GMT+11:00 Ahmad Syaifullah Lubis [email protected] > [belajar-excel] <[email protected]>: > > > > Mr Kid, > bagaimana cara mengetikkan word yang akan dicari? contoh saya ingin > mencari semua word "wagura"? > terima kasih, > ASL > > ------------------------------ > To: [email protected] > From: [email protected] > Date: Thu, 6 Nov 2014 14:02:12 +1100 > Subject: Re: [belajar-excel] fungsi find and select [1 Attachment] > > > > Hai Ahmad, > > File terlampir mungkin ndak terlalu canggih karena ndak pakai array > formula apalgi VBA. > Meski demikian, harapannya bisa sesuai dengan yang dibutuhkan. > > Wassalam, > Kid. > > > > > 2014-11-05 1:22 GMT+11:00 Ahmad Syaifullah Lubis [email protected] > [belajar-excel] <[email protected]>: > > > > dear be exceller, > berikut saya attachmentkan data dimaksud. > contoh kasus 1 file excel yang memiliki 4 sheets. target yang dicari word > "wagura". maka kita ambil menu find dan ketik wagura di find what. > optionnya within adalah woorkbook. nah setelah diklik find all akan > muncullah 10 cell (found). > yang saya inginkan bagaimana 10 cell tsb dapat kita copy pastekan ke > tempat lain/lembaran kerja kita. mungkin kalau data yang ditemukan sedikit > tidak merepotkan, tetapi apabila data yang ditemukan 100an data tentu akan > merepotkan kita. > terima kasih, mudah2an ada pakar yang dapat membantu. > > salam, > ASL > > ------------------------------ > To: [email protected] > From: [email protected] > Date: Sat, 1 Nov 2014 11:28:08 +0700 > Subject: Re: [belajar-excel] fungsi find and select > > > > Mungkin bisa di sort, atau difilter atau pakai pivoat atau pakai formula, > dan pasti bisa pakai macro (VBA) untuk mencari yang dibutuhkan. kalau sudah > dikelompokkan baru di kopi, > lebih bagus kalau ada data dummi yang bisa mewakili permasalahan, > sekiranya data rahasia dapat dibuatkan data padanannya. > > Wasalam > > > 2014-11-01 11:00 GMT+07:00 Ahmad Syaifullah Lubis [email protected] > [belajar-excel] <[email protected]>: > > > > Dears be-Exceller, > > saya ada masalah dengan data2 keuangan proyek. > setiap bulan ada 1 file yang isinya lebih dari 4 sheets. > bila memakai fungsi dari excel "find and select" akan memakan tempo yang > lama untuk mengambil data tsb, karena harus satu per satu dicopy dan > pastekan ke lokasi sheet lainya. > apakah ada rekan2 yang bisa membantu bagaimana caranya agar setelah kita > ke menu "find and select" teruskan kita ketik keyword yang akan kita cari, > dan mengambil "find all". setelah muncul data2 tsb bagaimana caranya agar > kita bisa mengcopy data2 tsb (bisa jadi lebih dari 20 cell yang ditemukan. > > demikian, semoga ada beexceller yang membantu. > > terima kasih, > > ASL > > > > > > > > > > > > > > > > > > > > > > > >
