Dear Pak Harry
Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan
contoh tersebut be-exceller lain bisa membantu menjawab dgn melihat
struktur datanya.
Wassalam
On 12/28/2012 3:01 PM, Harry wrote:
Dear BeExceller,
Mohon informasi dari rekan-rekan BeExceller bagaimana caranya
pengisian ComboBox dengan format isian lengkap baru kolom di bawahnya
bisa muncul. Dan ika isian ComboBoxnya tidak lengkap atau salah, maka
kolom dibawahnya tidak muncul.
Rumus yang saya gunakan selama ini adalah sbb:
Private Sub UserForm_Initialize()
Dim I As Long, TbHeigh As Long, TbWidth
Application.EnableEvents = False
With Cbonama
.ColumnCount = 2
.BoundColumn = 1
For I = 1 To TbHeigh
.AddItem
.List(I - 1, 0) = MemMaster(I, 2)
Next I
End With
Application.EnableEvents = True
End Sub
Private Sub Cbonama_Change()
Dim r As Integer
If Cbonama.ListIndex > -1 Then
r = Cbonama.ListIndex + 1
If r > 0 Then
txtalamat.Value = MemMaster(r, 2)
txtkota.Value = MemMaster(r, 3)
End If
End If
End Sub
Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di
bawahnya otomatis muncul isian "ALAMAT" & "KOTA".
Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
"HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika
isian ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
Terima kasih & Wassalam,
Harry
