Hi,
I have a user form (Attaching picture of it) the problem I am having is doesnt' show the the record of the last two boxes, is blank even though there's record in excel cell,
Here it's the code for the userform:
Thank you
I have a user form (Attaching picture of it) the problem I am having is doesnt' show the the record of the last two boxes, is blank even though there's record in excel cell,
Here it's the code for the userform:
Code:
Private Sub UserForm_Initialize()
Sheets("ContactsInvoicing").Activate
ContactForm.ColumnWidths = "92;140;110;65;65;35;40;65;65;115;150;65;65;65" 'COLUMN WITH OF LISTBOX
ContactForm.ColumnCount = 14 'COLUMN NUMBER OF LISTBOX
ContactForm.List = Sheets("ContactsInvoicing").Range("A2:l" & [a65536].End(3).Row).Value
'** SEARCH COMBOBOX
ComboBox1.AddItem "Customer"
ComboBox1.AddItem "Contact Name"
ComboBox1.AddItem "City"
ComboBox1.AddItem "A/C Manager"
'**********************************************
TextBox18.Value = ContactForm.ListCount
TextBox15.Value = 0
With lblDone
.Top = lblRemain.Top + 1
.Left = lblRemain.Left + 1
.Height = lblRemain.Height - 2
.Width = 0
End With
lblPct.Visible = False
End Sub
Thank you