ikutan lagi.. hehehe coba lihat file terlampir.. tes dengan kode = 004, karena setelah WR selalu diikuti dengan 004, tetapi hasil pencarian hanya akan mengambil data 004 yang paling kanan
semoga sesuai dengan harapan wassalam, -aji mumpung- Pada 17 Oktober 2012 14:43, Mr. Kid <[email protected]> menulis: > ** > > > 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. >> >> > >
re-search.xlsm
Description: Binary data
