Pak Haris,
biasanya,
area search nya di range yang di merge, misal range("g:j")
lookin pakai xlformulas dan lookat pakai xlwhole
Wassalam,
Kid.
2014-08-27 14:50 GMT+10:00 ris ha [email protected] [belajar-excel] <
[email protected]>:
>
>
> 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
>
>
>
>
>
>
