The below code posted by a fellow user to assist me is suppose to populate a
combobox with ONLY values in Column A in sheet named(InspectionData).

However i do NOT get any values in the combobox dropdownlist.

Do i need to add something to the RowSource ??



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub UserForm_Initialize()

Dim lastcell As Long
Dim myRow As Long

lastcell = Cells(Rows.Count, "A").End(xlUp).Row

With ActiveWorkbook.workSheets("InspectionData")
For myRow = 2 To lastcell
If .Cells(myRow, 1) <> "" Then
If IsNumeric(.Cells(myRow, 1)) = True Then
Me.ComboBox1.AddItem .Cells(myRow, 1)
End If
End If

Next myRow
End With

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Corey....

John,
No i get NO error.
When i click on the list button, i simply GET Nothing listed.
The Sheet(InspectionData) at the moment is completely blank, EXCEPT for a
value of 499 in cell(A2).

So according to the code, i should get a 499 in the combobox1 list, should i
not ?

Corey....

"John Bundy" <(E-Mail Removed) remove X''''''''''''''''s> wrote in
message news5EF619E-D0B3-4249-8F42-(E-Mail Removed)...
> This works for me, are you getting an error?
>
> Private Sub UserForm_Initialize()
>
> Dim lastcell As Long
> Dim myRow As Long
>
> lastcell = Worksheets("inspectiondata").Cells(Rows.Count,
> "A").End(xlUp).Row
>
> With ActiveWorkbook.Worksheets("InspectionData")
> For myRow = 2 To lastcell
> If .Cells(myRow, 1) <> "" Then
> If IsNumeric(.Cells(myRow, 1)) = True Then
> ComboBox1.AddItem Cells(myRow, 1)
> End If
> End If
>
> Next
> End With
>
>
> End Sub
>
> --
> -John Northwest11
> Please rate when your question is answered to help us and others know what
> is helpful.
>
>
> "Corey" wrote:
>
>> The below code posted by a fellow user to assist me is suppose to
>> populate a
>> combobox with ONLY values in Column A in sheet named(InspectionData).
>>
>> However i do NOT get any values in the combobox dropdownlist.
>>
>> Do i need to add something to the RowSource ??
>>
>>
>>
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> Private Sub UserForm_Initialize()
>>
>> Dim lastcell As Long
>> Dim myRow As Long
>>
>> lastcell = Cells(Rows.Count, "A").End(xlUp).Row
>>
>> With ActiveWorkbook.workSheets("InspectionData")
>> For myRow = 2 To lastcell
>> If .Cells(myRow, 1) <> "" Then
>> If IsNumeric(.Cells(myRow, 1)) = True Then
>> Me.ComboBox1.AddItem .Cells(myRow, 1)
>> End If
>> End If
>>
>> Next myRow
>> End With
>>
>> End Sub
>>
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>
>>
>> Corey....
>>
>>
>>