Alhamdulillah berhasil juga..
Makasih Miss Jan Raisin
From: Jan Raisin miss.jan.rai...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wednesday, April 2, 2014 1:34 PM
Subject: Re: [belajar-excel] TextBox otomatis
Wa'alaikumsalam wr. wb.,
thread ini
Assalamu'alaikum semuanya.
Para master mohon dibantu.
Saya punya kasus misal saya isi TextBox1 dengan kode barang kemudian TextBox2
dan TextBox3 akan otomatis keluar nama beserta harga,Database misal di ambil di
sheet2 sedangkan isian user form di isi di sheet1.
Terimakasih sebelumnya.
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
)
bunyinya begini :
2. nilai data yang dicari
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
msgboxData tidak ditemukan...
exit sub
endif
Set rgFind = Range(b:b).Find(sKey, lookat:=xlWhole)
وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
script yang diubah adalah yang berwarna biru
sKey = TextBox1.Text
TextBox2.Text = vbNullString
TextBox3.Text = vbNullString
if len(sKey) 4 then
exit sub
end if
Set rgFind = Range(b:b).Find(sKey,
Alhamduliullah hirobbil'alamiin
Terimakasih Mis. Jan Raisin, hasilnya sudah seperti yang saya maksud.
Semoga MIlis ini semakain ramai pengunjung membernya, serta tetep
terpelihara karena sangat berguna terutama bagi yang awam excel seperti saya.
Sekali lagi terimaksih Mis. Jan Raisin
Hai Haris,
pada textbox 1 dikasih event change, lalu diberi script seperti ini:
Dim sKey As String
Dim rgFind As Range
sKey = TextBox1.Text ' simpan nilai textbox 1 ke dalam
variabel
TextBox2.Text = vbNullString ' hapus isi textbox 2
TextBox3.Text =
Pinjam script-nya ya miss...
mo nambahin dikit... sapa tahu ada gunanya...
Dugaan :
1. bisa jadi nanti akan menjadikan userform sebagai alat edit juga.
baris deklarasi variabel range diubah agar ber-scope module dengan
memindahkan dan mengubah scope baris berbunyi :
Dim rgFind As Range 'yang
Terimakasih Mis Jan Raisin, sudah saya coba dan hasilnya sesuai yang saya
maksud.
Betul apa yang disampaikan Mr. Kid, coding tersebut memang saya aplikasikan
dalam userform. Dan terimaksih banyak juga buat Mr. Kid atas tambahan
masukannya.
Saya harap tidak bosen jika saya akan banyak
Salam BeExceler.
Mohon arahanya ne agan-agan.
Saya punya 3 textbox, saya pengin Textbox2 Textbox3 terisi secara otomatis
setelah Textbox1 selesai diinput secara manual. Isi Textbox2 Textbox3 sesuai
dengan data dalam Database mengikuti keypoint yang diinput dalam Textbox1.
Untuk lebih
10 matches
Mail list logo