UserForm-Last 2 Fields

josros60

Registered User.
Local time
Yesterday, 22:57
Joined
Mar 10, 2011
Messages
73
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:

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
 

Attachments

  • UserForm.png
    UserForm.png
    12.5 KB · Views: 155

Users who are viewing this thread

Back
Top Bottom