Asumsi :
- variabel kode berisi 3 karakter terakhir yang dicari
Baris :
lcari = Sheets("data").Columns("B:B").Find( *"*" &* kode *,
matchcase:=true*).Row
Wassalam,
Kid.
2012/10/16 sapicumi <[email protected]>
> **
>
>
> selamat malam sekaliaaan malam hari ini saya ada kasus dalam pencarian
> berdasarkan kode yg bersyarat sbb:
> -pencarian hanya dilakukan dengan menggunan 3 digit paling belakang
> -kl memungkinan menggunakan juga case sensitifiti
> -saya pernah menggunakan code UCase tp sprti tidak berpengaruh
> mohon kiranya master2 mau membantu memecahkan masalah ini
> selama ini saya menggunakan sistem pencarian yg sederhana contoh begini
>
> Sub cari()
> 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
> 'Jika pencarian gagal maka nilai variabel lCari akan tetap nol
> If lcari = 0 Then
> MsgBox "Kode Warga " & kode & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> Range("E7").Value = ""
> Range("E7").Select
> Exit Sub
> End If
> With Sheets("data")
> Range("C5").Value = .Range("B" & lcari).Value
> Range("C6").Value = .Range("C" & lcari).Value
> Range("C7").Value = .Range("D" & lcari).Value
> Range("C8").Value = .Range("E" & lcari).Value
> End With
> End Sub
>
> nah dalam kasus ini saya ingin pencarian dilakukan menggunakan 3 digit
> paling belakang untuk keterangan lebih lanjut bisa langsung dicoba pada
> file
> terlampir terimakasih
>
> search.xlsm
> <
> http://milis-belajar-excel.1048464.n5.nabble.com/file/n5712605/search.xlsm>
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605.html
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
