Coding VBA Macro Pencarian Data Dalam Worksheet

Untuk pencarian data dalam fungsi macro visual basic for application excel menggunakan fungsi "find"

Contohnya sebagai berikut :
Di bawah ini adalah contoh pencarian pada worksheet "Kartu_Stok" dengan kata kunci "tepung", sedangkan range yang di cari pada semua cell worksheet dari cell A1 sampai XFD1000

Dim WS As Worksheet
Set WS = Worksheets("Kartu_Stok")

With WS.Range("A1:XFD1000")
Set c = .Find("tepung", LookIn:=xlValues)

If Not c Is Nothing Then
     Baris = c.Row
End If

Keterangan
WS adalah worksheet dimana data yang akan dicari
If Not c is nothing adalah apa yang akan dilakukan jika data ketemu, untuk mengantisipasi jika terjadi error data tidak ada, bisa juga mengguanakan on error resume next di bawah sub()