Ubah bagian :
Dim kode As String
Dim lcari As Long
kode = UCase(Trim(Range("E3").Value))
lcari = 0
lcari = Sheets("data").Columns("B:B").Find(kode).Row
menjadi :
Dim kode As String
Dim lcari As Long
on error resume next
kode = right$(UCase(Trim$(Range("E3").Value)),3)
lcari = 0
lcari = Sheets("data").Columns("B:B").Find( "*" & kode).Row
msgbox "ditemukan pada baris Excel ke : " & lcari , vbinformation , "Find"
exit sub
Wassalam,
Kid.
2012/10/17 sapicumi <[email protected]>
> **
>
>
> trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji
> dengan
> mengganti format "E3" dengan format text namun ttp saja tidak bisa maksut
> saya tidak bisa disini tidak sesuai dengan apa yang saya inginkan mungkin
> saya ulangi saja maksut saya sbb
>
> WR-004-001 >>kode
> -ketika saya mengetikan 001 di kolom E3 dia akan menemukan data
> -jika saya mengetikan WR atau WR-004 dia tidak akan pernah menemukan apapun
> -dengan kata lain saya hanya ingin 3 digit dibelakang yang bisa dicari
> dengan menghiraukan abjad didepanya
> jadi mungkin gini ya alurnya
> -ketika saya memasukan "001" maka akan ada misal msgbox data anda ada
> -ketika saya memasukan "WR" atau "WR-004" misal msgbox data anda tidak ada
>
> untuk lampiran bisa diambil dari lampiran saya di awal post
>
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712620.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
