Dear Mas Anwar,
Cara paling mudah adalah dengan membuat Combo box nya menjadi multi
kolom, gimana caranya ? yaitu dengan membuat sebuah defined name yang
juga multi kolom, di file sampeyan sudah ada kok, namanya "dbCSiswa",
nah gunakan defined name itu menjadi Row Source nya si Combo, baru
kemudian tinggal kita atur saja pada event on change nya si combo
sub namacombo_change()
txnama.value = cmbnama.list(cmbnama.listindex, 2)
end sub
kenapa 2, karena 2 adalah tempatnya si kolom nama bertengger, dihitung
mulai dari kiri, dimana kolom pertama nilainya Nol
Kemudian untuk penyimpanannya, mas tinggal cari aja posisinya angka
dimaksud pada cmbNo ada pada baris ke berapa menggunakan fungsi terpisah
untuk mencarinya biar lebih terstruktur
misal:
Function RowNum(ByVal No As Variant) As Integer
Dim i As Range
For Each i In Sheet7.Range("B7:B5000")
If i.Value2 = No Or i.Value2 = "" Then
RowNum = i.Row
Exit Function
End If
Next
End Function
setelah fungsi jadi, tinggal kita panggil panggil saja dari routine
penyimpanan yang sudah ada,
isi = *RowNum(CmbNo.List(CmbNo.ListIndex, 0))*
ws.Cells(isi, 3).Value = TxNama.Value
ws.Cells(isi, 4).Value = TxJln.Value
ws.Cells(isi, 5).Value = TxRtRw.Value
dst....
Demikian terima kasih, semoga mudheng, hehe
Rgds,
[dp]
On 25/06/2013 11:12, Misbahul Anwar wrote:
Mohon Bantuan...!
Kepada para master mohon bantuan pemecahan...
Kode VBA untuk txNama bagaimana, Supaya muncul sesuai nomor urut
data input masuk ke sheet Alamat, seperti pada gambar dan file yg saya
lampirkan.
Terima kasih.