Ada sedikit tambahan macro dan revisi formulanya
- Menghapus hasil sebelumnya (insert di bawah Dim TotalRows As Integer)
Range("A7", Sheets("Search").Range("A7").End(xlDown)).Resize(, 7).ClearContents
- Merubah formula Pencarian
sebelumnya Range("D2").Formula = "=COUNT(B7:B25)" seharusnya
Range("D2").Formula = "=COUNT(B7:B" & TotalRows + 6 & ")"
Salam,
HK----- Forwarded Message ----- From: hendrik karnadi <[email protected]> To: "[email protected]" <[email protected]> Sent: Thursday, 13 November 2014, 15:36 Subject: Fw: [belajar-excel] fungsi find and select 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 #yiv5534915302 -- #yiv5534915302ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5534915302 #yiv5534915302ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5534915302 #yiv5534915302ygrp-mkp #yiv5534915302hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5534915302 #yiv5534915302ygrp-mkp #yiv5534915302ads {margin-bottom:10px;}#yiv5534915302 #yiv5534915302ygrp-mkp .yiv5534915302ad {padding:0 0;}#yiv5534915302 #yiv5534915302ygrp-mkp .yiv5534915302ad p {margin:0;}#yiv5534915302 #yiv5534915302ygrp-mkp .yiv5534915302ad a {color:#0000ff;text-decoration:none;}#yiv5534915302 #yiv5534915302ygrp-sponsor #yiv5534915302ygrp-lc {font-family:Arial;}#yiv5534915302 #yiv5534915302ygrp-sponsor #yiv5534915302ygrp-lc #yiv5534915302hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5534915302 #yiv5534915302ygrp-sponsor #yiv5534915302ygrp-lc .yiv5534915302ad {margin-bottom:10px;padding:0 0;}#yiv5534915302 #yiv5534915302actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5534915302 #yiv5534915302activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5534915302 #yiv5534915302activity span {font-weight:700;}#yiv5534915302 #yiv5534915302activity span:first-child {text-transform:uppercase;}#yiv5534915302 #yiv5534915302activity span a {color:#5085b6;text-decoration:none;}#yiv5534915302 #yiv5534915302activity span span {color:#ff7900;}#yiv5534915302 #yiv5534915302activity span .yiv5534915302underline {text-decoration:underline;}#yiv5534915302 .yiv5534915302attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5534915302 .yiv5534915302attach div a {text-decoration:none;}#yiv5534915302 .yiv5534915302attach img {border:none;padding-right:5px;}#yiv5534915302 .yiv5534915302attach label {display:block;margin-bottom:5px;}#yiv5534915302 .yiv5534915302attach label a {text-decoration:none;}#yiv5534915302 blockquote {margin:0 0 0 4px;}#yiv5534915302 .yiv5534915302bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5534915302 .yiv5534915302bold a {text-decoration:none;}#yiv5534915302 dd.yiv5534915302last p a {font-family:Verdana;font-weight:700;}#yiv5534915302 dd.yiv5534915302last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5534915302 dd.yiv5534915302last p span.yiv5534915302yshortcuts {margin-right:0;}#yiv5534915302 div.yiv5534915302attach-table div div a {text-decoration:none;}#yiv5534915302 div.yiv5534915302attach-table {width:400px;}#yiv5534915302 div.yiv5534915302file-title a, #yiv5534915302 div.yiv5534915302file-title a:active, #yiv5534915302 div.yiv5534915302file-title a:hover, #yiv5534915302 div.yiv5534915302file-title a:visited {text-decoration:none;}#yiv5534915302 div.yiv5534915302photo-title a, #yiv5534915302 div.yiv5534915302photo-title a:active, #yiv5534915302 div.yiv5534915302photo-title a:hover, #yiv5534915302 div.yiv5534915302photo-title a:visited {text-decoration:none;}#yiv5534915302 div#yiv5534915302ygrp-mlmsg #yiv5534915302ygrp-msg p a span.yiv5534915302yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5534915302 .yiv5534915302green {color:#628c2a;}#yiv5534915302 .yiv5534915302MsoNormal {margin:0 0 0 0;}#yiv5534915302 o {font-size:0;}#yiv5534915302 #yiv5534915302photos div {float:left;width:72px;}#yiv5534915302 #yiv5534915302photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5534915302 #yiv5534915302photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5534915302 #yiv5534915302reco-category {font-size:77%;}#yiv5534915302 #yiv5534915302reco-desc {font-size:77%;}#yiv5534915302 .yiv5534915302replbq {margin:4px;}#yiv5534915302 #yiv5534915302ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5534915302 #yiv5534915302ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5534915302 #yiv5534915302ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5534915302 #yiv5534915302ygrp-mlmsg select, #yiv5534915302 input, #yiv5534915302 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5534915302 #yiv5534915302ygrp-mlmsg pre, #yiv5534915302 code {font:115% monospace;}#yiv5534915302 #yiv5534915302ygrp-mlmsg * {line-height:1.22em;}#yiv5534915302 #yiv5534915302ygrp-mlmsg #yiv5534915302logo {padding-bottom:10px;}#yiv5534915302 #yiv5534915302ygrp-msg p a {font-family:Verdana;}#yiv5534915302 #yiv5534915302ygrp-msg p#yiv5534915302attach-count span {color:#1E66AE;font-weight:700;}#yiv5534915302 #yiv5534915302ygrp-reco #yiv5534915302reco-head {color:#ff7900;font-weight:700;}#yiv5534915302 #yiv5534915302ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5534915302 #yiv5534915302ygrp-sponsor #yiv5534915302ov li a {font-size:130%;text-decoration:none;}#yiv5534915302 #yiv5534915302ygrp-sponsor #yiv5534915302ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5534915302 #yiv5534915302ygrp-sponsor #yiv5534915302ov ul {margin:0;padding:0 0 0 8px;}#yiv5534915302 #yiv5534915302ygrp-text {font-family:Georgia;}#yiv5534915302 #yiv5534915302ygrp-text p {margin:0 0 1em 0;}#yiv5534915302 #yiv5534915302ygrp-text tt {font-size:120%;}#yiv5534915302 #yiv5534915302ygrp-vital ul li:last-child {border-right:none !important;}#yiv5534915302
Gz_find and select (macro).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
