Alhamdulillah.. Mr. Jan Raisin terima kasih.. Telah membantu.. Ini sesuai dgn apa yg saya inginkan.. ilmu ini sgt bermanfaat buat saya.. Terima kasih
Salam Agam Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -----Original Message----- From: Jan Raisin <[email protected]> Sender: [email protected] Date: Thu, 11 Jul 2013 17:32:14 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Cara Membuat Search Engine Kasus ini masih mungkin diselesaikan dengan formula.. tapi... karena formulanya panjang buanget, Jan bantu solusi dengan VBA saja ya codenya seperti ini: Option Explicit ' =================================== ' ' script by: Miss Jan Raisin ' ' Biak, 11 Juli 2013 ' ' untuk [email protected] ' ' =================================== ' Sub Cari() Dim sCol As String Dim rgFind As Range, rgData As Range, rgCell As Range Dim iCol As Integer Dim lRow As Long Dim vCrit As Variant Range(Range("m8"), Range("m8").End(xlToRight).End(xlDown)).ClearContents sCol = Range("n3").Value Set rgFind = Range("a2:j2").Find(sCol, lookat:=xlWhole, MatchCase:=True) iCol = rgFind.Column lRow = Range("a2").CurrentRegion.Rows.Count vCrit = Range("n5").Value Set rgData = Range(Cells(3, iCol), Cells(lRow, iCol)) For Each rgCell In rgData Set rgFind = rgCell.Find(vCrit, lookat:=xlPart, MatchCase:=False) If Not rgFind Is Nothing Then Range(Cells(rgCell.Row, 1), Cells(rgCell.Row, 10)).Copy Cells(Rows.Count, 13).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats Application.CutCopyMode = False End If Next rgCell Range("n5").Select End Sub lalu dijalnkan dengan cara menekan shape yang sudah di-assign script di atas. file terlampir Salam, -Miss Jan Raisin- - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke [email protected] 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 11 Juli 2013 15.42, <[email protected]> menulis: > ** > > > ** Oh, maaf td saya kurang menjelaskan, Yg paling pnting untuk di cari > adalah tgl, No Polisi, Nama, Asal, No Do.. > > Maka hasil pencarian pd keyword yg d inginkan akan tampil pd tabel d > samping database sesuai dgn urutan2nya.. > > Mhn Bantuannya.. > > Terima kasih > Sent from my BlackBerry® > powered by Sinyal Kuat INDOSAT > ------------------------------ > *From: * "Heri Pamungkas ( Gmail )" <[email protected]> > *Sender: * [email protected] > *Date: *Thu, 11 Jul 2013 15:11:51 +0700 > *To: *<[email protected]> > *ReplyTo: * [email protected] > *Subject: *Re: [belajar-excel] Cara Membuat Search Engine > > > > ** Semangat pagi, > > Mohon maaf, > > Setahu saya kalo search engine itu ada kriteria apa yang dicari ,.. > Lalu dimana kata yang dicari di file yang bapak lampirkan, > > Kemudian Kalau itu Keyword ,.. Merujuk kemana kata yang dicari, > Kolom NO POL kah ??,. NO DO kah ?? atau yang lain ?? > > Bila ada data dan keterangan jelas mungkin akan bisa membantu calon > penjawab,.. > > # sampaikan masalah yang sering anda temui saat menggunakan Excel pada > http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3 > > Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat > berharga untuk Be-Exceler yang lain > > Salam Excell-ent > > > On 11/07/2013 14:54, [email protected] wrote: > > > > Dear, Master n Sahabat Belajar Excel > > Mohon bantuannya bagaimana cara membuat search engine dgn menggunakan data > yg ada pd lampiran saya.. > > Untuk bantuan dan masukannya saya ucapkan terima ksh sebelumnya.. > > Salam > > Agam > Sent from my BlackBerry® > powered by Sinyal Kuat INDOSAT > > __ >
