Assalamu'alaikum para master Excel, maaf mau tanya lagi.
Bagaimana caranya agar hasil pencarian dari script macro dibawah ini menjadi
seperti pada gambar terlampir yaitu tampilan kolom excel tidak berubah, jadi
hanya rownya saja yang berubah. Mohon bantuannya. Terima kasih
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Masukkan Data Yang Akan Dicari")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("G:H", "J:K")
Set Rng = .Find(What:=FindString, _
After:=.Cells(1), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Data Tidak Ada"
End If
End With
End If
