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 <[email protected]>
>
> 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
