Coba ubah isi event change cbonama dengan :
Dim r As Long
If Cbonama.Text <> UCase$(Cbonama.Text) Then
Cbonama.Text = UCase$(Cbonama.Text)
Exit Sub
End If
Err.Clear
On Error Resume Next
r = Application.WorksheetFunction.Match(Cbonama.Text,
MemMaster.Resize(, 1).Offset(0, 1), 0)
If Err.Number <> 0 Then
Err.Clear
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
lNoRec = r
txtALAMAT.Value = MemMaster(r, 3)
txtJURUSAN.Value = MemMaster(r, 4)
txtTGLDAFTAR.Value = MemMaster(r, 5)
txtTGLTES.Value = MemMaster(r, 6)
txtPETUGASINPUT.Value = MemMaster(r, 7)
txtTANGGALINPUT.Value = MemMaster(r, 8)
Wassalam,
Kid.
2012/12/29 Harry <[email protected]>
> **
>
>
> Dear BeExceller,
> Pak Slamat,
>
> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
> Mohon dapat ditanggapi.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
> ------------------------------
> *Dari:* Slamet <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Jumat, 28 Desember 2012 21:34
> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>
>
> 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
>
>
>
