Alhamdulillah berhasil juga.. Makasih Miss Jan Raisin
________________________________ From: Jan Raisin <[email protected]> To: [email protected] Sent: Wednesday, April 2, 2014 1:34 PM Subject: Re: [belajar-excel] TextBox otomatis Wa'alaikumsalam wr. wb., thread ini tidak ada yang menanggapi karena tidak ada contoh file yang dilampirkan, sehingga BeExceller yang ingin membantu jadi enggan karena harus kerja bakti dahulu membuat datanya. asumsi berdasarkan isi email anda di milis ini asumsi: txtbox1 = kode_barang txtbox2 = nama_barang txtbox3 = harga_barang database di sheet2 input di sheet1 berasal dari masing-masing txtbox seluruh textbox ada di sebuah userform yang diinginkan: txtbox1 diisi dengan kode, maka txtbox2 akan menampilkan nama_barang, txtbox3 akan menampilkan harga_barang persiapan hal-hal yang akan digunakan (disingkat P dengan point masing-masing): P1: deklarasikan sebuah variabel bertipe string untuk menyompan isi txtbox1 dim nama_variabel as string P2: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris akhir database dim nama_variabel as long P3: deklarasikan sebuah variabel bertipe range untuk menyimpan area database dim nama_variabel as range P4: deklarasikan sebuah variabel bertipe range untuk menyimpan hasil pencarian data dim nama_variabel as range P5: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris hasil pencarian jika data ditemukan dim nama_variabel as long solusi: >> buat sebuah event change pada txtbox1, tujuannya jika terjadi perubahan isi >> pada txtbox1 maka macro akan bekerja >> simpan nilai txtbox1 ke dalam variabel P1, nama_variabel = txtbox1.text >> cari nomer baris terakhir dari database dan simpan ke dalam variabel P2, nama_variabel = sheets("nama_sheet").range("nama_kolom" & rows.count).end(xlup).row >> set lokasi database dan simpan ke dalam variabel P3 set nama_variabel = sheets("nama_sheet").range( range_database ) >> set P4 untuk mencari nilai P1 di dalam P3 set nama_variabel = nama_variabel.find( nama_variabel , lookat:=xlwhole ) >> jika P1 tidak ditemukan dalam P3 maka keluar dari prosedur if nama_variabel is nothing then exit sub >> jika P1 ditemukan dalam P3 maka ambil nilai barisnya lalu simpan ke dalam >> variabel P5 else nama_variabel = nama_variabel.row jika nilai P5 sudah didapat, maka masukkan nama_barang ke txtbox2 dan harga_barang ke txtbox3 berdasarkan nomer baris P5 pada saat yang sama, anda dapat langsung mengisi sheet1 berdasarkan nomer baris yang sudah disimpan dalam variabel P5, atau menyalin isi masing-masing txtbox ke sheet1 logikanya adalah seperti di atas, silakan disesuaikan dengan kondisi real yang ada. semoga solusinya gak salah2 amat ^_^ Wassalam, -Miss Jan Raisin- Pada 28 Maret 2014 16.15, amas solihin <[email protected]> menulis: >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. > >Wassalam.. > >----- Momod ----- >untuk memudahkan BeExceller menanggapi kasus anda >silakan melampirkan sample workbook < 250 KB dengan cara mereply email ini >tidak perlu melampirkan data asli yang penting mewakili kasus yang anda >tanyakan >______________ >
