Alhamdulillah sudah terpecahkan, terima kasih atas masukkan dari para master...
On Wednesday, August 27, 2014 12:00 PM, "hendrik karnadi [email protected] [belajar-excel]" <[email protected]> wrote: Datanya di merge... Coba hilangkan mergenya Salam, HK On Wednesday, 27 August 2014, 11:37, "ris ha [email protected] [belajar-excel]" <[email protected]> wrote: 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
