Re: [belajar-excel] Cara Membuat Search Engine

Thu, 11 Jul 2013 23:05:56 -0700 

Salam.. 

Btw numpang tnya jika sheet d proteksi macronya tidak jalan. Ada tulisan 
runtime errOr '1004'...

Terima kasih

Agam 
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: [email protected]
Sender: [email protected]
Date: Thu, 11 Jul 2013 12:16:00 
To: <[email protected]>
Reply-To: [email protected]
Subject: Re: [belajar-excel] Cara Membuat Search Engine

Maaf, mksdny Miss Jan Raisin.. 
Oh, y btw sekalian nanya bagaimana kl ada 2 keyword atau 2 kriteria yg di cari 
pd dua kolom yg berbeda..? 

Terima ksh

Salam... 
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
>
>   __
>

Kirim email ke