Coba file terlampir
Wassalam,
Kid.
2012/10/17 sapicumi
> **
>
>
> terimakasih pak kid dan pak aji mumpung telah membantu saya memecahkan
> masalah ini namun dari file terlampir dari pak aji ini saya sudah coba dan
> kenapa setelah saya masukan WR dia akan ttp menemukan record pertama yang
> ber
masih salah ya..
coba yang ini.. mudah2an udah sesuai keinginan
wassalam,
-aji mumpung-
>>
>> 2012/10/17 sapicumi
>>
>>> **
>>>
>>>
>>> trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji
>>> dengan
>>> mengganti format "E3" dengan format text namun ttp saja tidak bisa mak
terimakasih pak kid dan pak aji mumpung telah membantu saya memecahkan
masalah ini namun dari file terlampir dari pak aji ini saya sudah coba dan
kenapa setelah saya masukan WR dia akan ttp menemukan record pertama yang
berisi "WR"/"WR-004-001" maksut saya kl mengetikan WR saja seharusnya dia
tidak
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 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("da
oke.. saya sudah menangkap point-nya.. dan sudah kepikiran caranya..
tetapi berhubung lagi agak sibuk..
belum semua kambing dan sapi saya kasih makan.. maukah bersabar menunggu
sampai nanti bada magrib..
setelah saya selesai nyari rumput dan angon (menggembalakan) kambing dan
sapi2 saya
^_^
was
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 mengetik
coba range e3 di format dengan format text
wassalam,
-aji mumpung-
Pada 17 Oktober 2012 09:22, sapicumi menulis:
> **
>
>
> mungkin bisa diterangkan lebih rinci pak kid saya sudah mencoba memasukan
> script sprti diatas namun masih saja char"*" tidak dikenali oleh VBA ato
> mungkin ada solusi
mungkin bisa diterangkan lebih rinci pak kid saya sudah mencoba memasukan
script sprti diatas namun masih saja char"*" tidak dikenali oleh VBA ato
mungkin ada solusi lain dengan menggunakan RIGHT ato MID pada pendeklarasian
kode contoh sbb:
kode = right(Range("E3").Value,3) >>saya coba juga belum b
Mungkin tidak menemukan nilai yang diakhiri dengan teks dalam variabel kode
coba sebelum baris
lcari = bla bla
diberi script berikut :
msgbox "teks dalam variabel kode adalah : " & kode & vbcrlf & _
"teks yang dicari adalah yang pattern-nya : " & "*" & kode , vbinformation
, "cek isi tanpa debug.pr
terimakasih pak kid
sudah saya coba memasukan coding sbb:
lcari = Sheets("data").Columns("B:B").Find( *"*" &* kode *,
matchcase:=true*).Row
namun keluar eror bertuliskan "expected expression" dengan coding diblok
merah
terimakasih
jojo
--
View this message in context:
http://milis-belajar-ex
kode saya sebagai contoh seperti ini "WR-004-*002*" bagian bold saja yang
dicari string depanya di hiraukan
>> Asumsi :
- *variabel kode* berisi 3 karakter terakhir yang dicari
berarti *variabel kode* sudah berisi 002. Kalau belum, maka diproses dulu
supaya isinya 002 (3 karakter terakhir yang
terimakasih tanggapanya pak kid
-namun apakah char "*" tsb dikenali di vba?
kode saya sebagai contoh seperti ini "WR-004-*002*" bagian bold saja yang
dicari string depanya di hiraukan
trimakasih
jojo
--
View this message in context:
http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-
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
> **
>
>
> selamat malam sekaliaaan malam hari ini saya ada kasus dalam pencarian
> berdasarkan kode yg b
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 kira
15 matches
Mail list logo