Thanks a lot Mbak atas quick responnya, semoga Allah swt membalas kebaikan anda berlipat ganda,.. amin :)
--- On Mon, 9/7/09, siti Vi <[email protected]> wrote: From: siti Vi <[email protected]> Subject: Re: [belajar-excel] perangkap untuk gagal dalam pencarian To: [email protected] Date: Monday, September 7, 2009, 1:16 AM ini tidak menjawab tapi memberi cara lain; daripada pakai methods FIND yg ribet apa ndak lebih enak dicari sendiri spt ini Sub Cari() Dim x As String, cel As Range, Found As Boolean x = "kamu" Range("C3:D13").Select For Each cel In Selection If InStr(1, cel, x) > 0 Then cel.Select Found = True Exit Sub End If Next If Not found Then MsgBox "ndak ada '" & x & "' di range tsb" End Sub 2009/9/7 wahyu71 <wahy...@yahoo. com> > > Assalamualaikum wr wb > Salam kenal > Maaf kalau postingan kemarin melanggar aturan milis, maklum new comer. ;).. > Saya punya problem baru, bagaimana cara memerangkap bila pencarian tidak > sesuai kriteria. > contoh: > > Range("C3:D3").Select > Cells.Find(What: =x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ > xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase:=False _ > , searchformat: =False).Activate > > bila variable x tidak terdapat dalam file akan muncul error,... bagaimanakah > cara memerangkapnya? dan mengeluarkan message untuk hal tersebut,.. > > Atas bantuannya sebelumnya saya ucapkan terimakasih. > Wasalam > wahyu
