Assalamu'alaikum Mr.Kid
Saya sudah coba seperti yang Mr. Kid sarankan termasuk pada saran Mr. Kid yang
terdahulu.
Berikut script yang saya tuliskan:
if len(skey)<4 then
msgbox"Data tidak ditemukan..."
exit sub
endif
Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
Dengan script tersebut saat dalam textbox1 saya isi baru satu huruf saja
msgbox sudah muncul, kalo tidak salah itu berarti proses sudah berjalan sebelum
textbox1 terisi 4 huruf.
Saya sudah coba dengan memunculkan dari event selanjutnya dan berhasil,
rasanya kurang sreg aja Mr. Kid. Maunya kan event di textbox1 berjalan saat
textbox sudah terisi 4 huruf atau huruf ke-4 selesai di ketikkan.
Mohon maaf kalo saya ga ngerti-ngerti & bertanya terus.
Terimaksih.
Wassalam
Haris
---In [email protected], <mr.nmkid@...> wrote:
Hai Haris,
1. Bagaimana formulasi yang harus saya buat agar sistem baru membaca setelah
data yang saya input penuh 4 karakter.
>> sudah dibahas di email yang lalu kan ya
>> (https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/30083
>>
>> https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/30083)
bunyinya begini :
2. nilai data yang dicari pasti lebih dari 3 karakter (ada penulisan teks 0 di
karakter pertama)
>> diberi kondisi terhadap jumlah karakter inputan yang diletakkan sebelum
>> baris berbunyi :
Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
dengan bunyi script kondisinya adalah :
if len(skey)<4 then
exit sub
endif
2. Bagaimana formulasi yang harus dibuat jika database di file yang berdeda.
>> buka workbook yang berbeda itu, lalu ambil nilai dari workbook berbeda itu
>> dan disimpan dalam variabel sKey. Setelah itu baru baris-baris pemeriksaan
>> seperti nomor 1 lagi. Jangan lupa tutup workbook berbeda tersebut setelah
>> tidak digunakan lagi.
>> script buka workbook lain bisa diperoleh dari record macro (jika suka pakai
>> record macro).
>> methods milik workbook yang digunakan adalah methods open
dim wbkApp as workbook, wbkLain as workbook
set wbkapp=thisworkbook
set wbklain=workbooks.open("nama workbook lain lengkap dengan pathnya")
>> untuk tutup workbook lain menggunakan methods close seperti :
worksbooks("nama workbooknya").close false 'false berarti tanpa di save
kalau ada perubahan nilai data
atau jika workbook berbeda sudah disimpan dalam variabel obejct workbook
bernama wbkLain seperti script di atas tadi, bisa berupa :
wbklain.close false
Wassalam,
Kid.
2014-02-03 <haris.rifai@... mailto:haris.rifai@...>:
Mis Jan Raisin & Mr. Kid
Saya ingin menambahkan msgBox apabila data tidak ditemukan, saya sudah coba
menambahkan/memasangkan "else" dalam formulasi "if" yang Mis & Mr ajarkan,
tetapi yang sistem membacanya perkarakter sedangkan keypoint yang harus dibaca
adalah 4 karakter sehingga keypoint selalu dianggap data yang salah.
Dalam properti textbox1 sudah saya batasi untuk input maksimal 4 karakter.
1. Bagaimana formulasi yang harus saya buat agar sistem baru membaca setelah
data yang saya input penuh 4 karakter.
2. Bagaimana formulasi yang harus dibuat jika database di file yang berdeda.
terimaksih.
Haris
