Dear BeExceller, Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian ComboBox dengan format isian lengkap baru kolom dibawahnya 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
