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,ASLTo: [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. Cara buat pivot table consolidation range di xl2007 ke atas bisa dilihat dalam file yang ada disini. 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 #yiv3753120973 #yiv3753120973 -- #yiv3753120973ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3753120973 #yiv3753120973ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3753120973 #yiv3753120973ygrp-mkp #yiv3753120973hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3753120973 #yiv3753120973ygrp-mkp #yiv3753120973ads {margin-bottom:10px;}#yiv3753120973 #yiv3753120973ygrp-mkp .yiv3753120973ad {padding:0 0;}#yiv3753120973 #yiv3753120973ygrp-mkp .yiv3753120973ad p {margin:0;}#yiv3753120973 #yiv3753120973ygrp-mkp .yiv3753120973ad a {color:#0000ff;text-decoration:none;}#yiv3753120973 #yiv3753120973ygrp-sponsor #yiv3753120973ygrp-lc {font-family:Arial;}#yiv3753120973 #yiv3753120973ygrp-sponsor #yiv3753120973ygrp-lc #yiv3753120973hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3753120973 #yiv3753120973ygrp-sponsor #yiv3753120973ygrp-lc .yiv3753120973ad {margin-bottom:10px;padding:0 0;}#yiv3753120973 #yiv3753120973actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3753120973 #yiv3753120973activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3753120973 #yiv3753120973activity span {font-weight:700;}#yiv3753120973 #yiv3753120973activity span:first-child {text-transform:uppercase;}#yiv3753120973 #yiv3753120973activity span a {color:#5085b6;text-decoration:none;}#yiv3753120973 #yiv3753120973activity span span {color:#ff7900;}#yiv3753120973 #yiv3753120973activity span .yiv3753120973underline {text-decoration:underline;}#yiv3753120973 .yiv3753120973attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3753120973 .yiv3753120973attach div a {text-decoration:none;}#yiv3753120973 .yiv3753120973attach img {border:none;padding-right:5px;}#yiv3753120973 .yiv3753120973attach label {display:block;margin-bottom:5px;}#yiv3753120973 .yiv3753120973attach label a {text-decoration:none;}#yiv3753120973 blockquote {margin:0 0 0 4px;}#yiv3753120973 .yiv3753120973bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3753120973 .yiv3753120973bold a {text-decoration:none;}#yiv3753120973 dd.yiv3753120973last p a {font-family:Verdana;font-weight:700;}#yiv3753120973 dd.yiv3753120973last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3753120973 dd.yiv3753120973last p span.yiv3753120973yshortcuts {margin-right:0;}#yiv3753120973 div.yiv3753120973attach-table div div a {text-decoration:none;}#yiv3753120973 div.yiv3753120973attach-table {width:400px;}#yiv3753120973 div.yiv3753120973file-title a, #yiv3753120973 div.yiv3753120973file-title a:active, #yiv3753120973 div.yiv3753120973file-title a:hover, #yiv3753120973 div.yiv3753120973file-title a:visited {text-decoration:none;}#yiv3753120973 div.yiv3753120973photo-title a, #yiv3753120973 div.yiv3753120973photo-title a:active, #yiv3753120973 div.yiv3753120973photo-title a:hover, #yiv3753120973 div.yiv3753120973photo-title a:visited {text-decoration:none;}#yiv3753120973 div#yiv3753120973ygrp-mlmsg #yiv3753120973ygrp-msg p a span.yiv3753120973yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3753120973 .yiv3753120973green {color:#628c2a;}#yiv3753120973 .yiv3753120973MsoNormal {margin:0 0 0 0;}#yiv3753120973 o {font-size:0;}#yiv3753120973 #yiv3753120973photos div {float:left;width:72px;}#yiv3753120973 #yiv3753120973photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3753120973 #yiv3753120973photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3753120973 #yiv3753120973reco-category {font-size:77%;}#yiv3753120973 #yiv3753120973reco-desc {font-size:77%;}#yiv3753120973 .yiv3753120973replbq {margin:4px;}#yiv3753120973 #yiv3753120973ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3753120973 #yiv3753120973ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3753120973 #yiv3753120973ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3753120973 #yiv3753120973ygrp-mlmsg select, #yiv3753120973 input, #yiv3753120973 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3753120973 #yiv3753120973ygrp-mlmsg pre, #yiv3753120973 code {font:115% monospace;}#yiv3753120973 #yiv3753120973ygrp-mlmsg * {line-height:1.22em;}#yiv3753120973 #yiv3753120973ygrp-mlmsg #yiv3753120973logo {padding-bottom:10px;}#yiv3753120973 #yiv3753120973ygrp-msg p a {font-family:Verdana;}#yiv3753120973 #yiv3753120973ygrp-msg p#yiv3753120973attach-count span {color:#1E66AE;font-weight:700;}#yiv3753120973 #yiv3753120973ygrp-reco #yiv3753120973reco-head {color:#ff7900;font-weight:700;}#yiv3753120973 #yiv3753120973ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3753120973 #yiv3753120973ygrp-sponsor #yiv3753120973ov li a {font-size:130%;text-decoration:none;}#yiv3753120973 #yiv3753120973ygrp-sponsor #yiv3753120973ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3753120973 #yiv3753120973ygrp-sponsor #yiv3753120973ov ul {margin:0;padding:0 0 0 8px;}#yiv3753120973 #yiv3753120973ygrp-text {font-family:Georgia;}#yiv3753120973 #yiv3753120973ygrp-text p {margin:0 0 1em 0;}#yiv3753120973 #yiv3753120973ygrp-text tt {font-size:120%;}#yiv3753120973 #yiv3753120973ygrp-vital ul li:last-child {border-right:none !important;}#yiv3753120973
Gz_find and select (macro-aneh).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
