ComboBox starts from last row

[ShackerS]

Greetings ,,

with this code, how can I make my combobox1 starts with the last record ??

Private Sub UserForm_Initialize()Dim cell As RangeWith Worksheets("Sheet1")For Each cell In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)If Not IsEmpty(cell) Then ComboBox1.AddItem cell.ValueNext cellEnd With </pre>[COLOR=#333333]
[/COLOR]

 

[nuked]

Option Explicit
Private Sub UserForm_Initialize()
Dim l As Long
Dim rng As Range
With Worksheets("Sheet1")
    Set rng = .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)
    
    For l = rng.Rows.Count To 1 Step -1
    
        If Not IsEmpty(rng.Cells(l, 1)) Then ComboBox1.AddItem rng.Cells(l, 1)
    
    Next l
End With
End Sub

Something like this? (untested)

 

[Rick Rothstein]

With this code, how can I make my combobox1 starts with the last record ??

Private Sub UserForm_Initialize()
  Dim Cell As Range
  With Worksheets("Sheet1")
    For Each Cell In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)
      If Not IsEmpty(Cell) Then ComboBox1.AddItem Cell.Value
    Next Cell
  End With
  [B][COLOR=#a52a2a]ComboBox1.ListIndex = ComboBox1.ListCount - 1[/COLOR][/B]
  ....
  ....
End Sub

Add the line I show in red above.

 

[ShackerS]

thank you so much ...
Appreciated