Ya pak betul, harapannya, sekalipun di merge tetap bisa mencari gitu pak
On Wednesday, August 27, 2014 11:43 AM, "Lazuardi Biru [email protected] [belajar-excel]" <[email protected]> wrote: pak haris sepertinya G dan H di marge cell pak. Pada Rabu, 27 Agustus 2014 11:37, "ris ha [email protected] [belajar-excel]" <[email protected]> menulis: 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
