Kali ini Jasa Pembuatan Aplikasi VBA Macro akan menjelaskan bagaimana cara pencarian data di kolom dengan menggunakan fungsi Find, yang berada dikolom B.
Script Kodenya sebagai berikut :
Dim Cell As Range
Columns("B:B").Select
Set cell = Selection.Find(What:="123", _After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If cell Is Nothing Then
'jika tidak ketemu lakukan sesuatu disini
Else
'jika ketemu lakukan sesuatu disini
End If
Mudah mudahan bermanfaat, jika ada pertanyaan silahkan tanyakan di kolom komentar.




