Assalamu'alaikum.
Mohon
bantuannya para Master Excel...
Mengapa
Tombol Cari Data 1 berfungsi sementara Tombol Cari Data 2 tidak berfungsi
mencari data? Padahal script macro sama, hanya diganti Range ("A:A")pada
tombol 1 dan Range("G:G") pada tombol 2. berikut saya lampirkan contoh filenya
Script macro
Sub Cari_Data1()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Masukkan Data Yang Akan Dicari")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("A:A") >>>>>>>>>>>>>>>>>>> Pada Tombol
Cari Data 2 Range("G:G")
Set Rng = .Find(What:=FindString, _
After:=.Cells(1), _
LookIn:=xlValues, _
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
End Sub
Terima kasih
macro mencari data.xls
Description: MS-Excel spreadsheet
