lho katanya mau MENCARINYA di Kolom A SAJA
kok Object Rangenya = Cells (seluruh cells di wolsot) ???!!
coba prosedur ini dijajal
Sub FindFindFind()
Range("A1:A100").Select
* On Error GoTo Errrrrr*
*Selection*.Find(What:="2", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=True, _
SearchFormat:=False).Activate
Exit Sub
*Errrrrr:*
* MsgBox "ndak ada mas"*
End Sub
'sebaiknya di kolom A (A1:A100) diberi datadatayg tidak mengandung karakter
[2]
' kemudian dijajal lagi dengan A1:A100 mengandung data [2]
2010/9/7 Hendro Supardi <[email protected]>
>
> Bapak/Ibu Pakar Excel,
> Misalkan dalam kolom A akan dicari angka 2 dengan menggunakan perintah
berikut:
>
> Cells.Find(What:="2", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
_
> xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
> True, SearchFormat:=False).Activate
>
> Bila pada kolom A tersebut tidak ada angka 2, maka akan "debug". Bagaimana
caranya agar tidak terjadi debug?
> Terima kasih atas bantuannya.
>
> Wassalam,
> Hendro
