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
> ______________
>
>
>
