thanks bro, I need this syntax "If Not N Is Nothing Then" good idea
--- On Mon, 9/7/09, Slamet Harto <[email protected]> wrote: From: Slamet Harto <[email protected]> Subject: Re: [belajar-excel] perangkap untuk gagal dalam pencarian To: [email protected] Date: Monday, September 7, 2009, 4:55 PM Haw ebot: Dim C as Range, N As range, Ws as Worksheet set Rng = Range("C3:D13" ).Select For Each C In Rng Set N = Ws.Cells.Find( what:=X.Value, LookIn:=xlValues, lookat:=xlWhole) If Not N Is Nothing Then N.Interior.ColorInd ex = 6 Next Wassalam Pada tanggal 07/09/09, wahyu abdi <wahy...@yahoo. com> menulis: > Thanks a lot Mbak atas quick responnya, semoga Allah swt membalas kebaikan > anda berlipat ganda,.. amin :) > > --- On Mon, 9/7/09, siti Vi <setiyowati.devi@ gmail.com> wrote: > > > From: siti Vi <setiyowati.devi@ gmail.com> > Subject: Re: [belajar-excel] perangkap untuk gagal dalam pencarian > To: belajar-excel@ yahoogroups. com > 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 > > > > > > > > > > > > > > > > > >
