Wa'alaikumussalam Wr. Wb. ndak mudeng maksudnya :( coba hilangkan baris Application.goto atau ubah application.goto nya ke beberapa range sebelum range hasil find atau hilangkan opsi true pada parameter scroll
Wassalamu'alaikum wr. wb. Kid. On Thu, Aug 28, 2014 at 1:15 PM, ris ha [email protected] [belajar-excel] <[email protected]> wrote: > > > 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 > > > > >
