Terima kasih Mr. Kid. Masalah telah terpecahkan. Sukses selalu
Salam Haris On Thursday, August 28, 2014 6:13 PM, "'Mr. Kid' [email protected] [belajar-excel]" <[email protected]> wrote: 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 > > > > > >
