Snasui Excel Forum

Code: Select all

Private Sub ListBox1_Click()
Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
End Sub

Code: Select all

Private Sub ListBox1_Click() 
  With Worksheets("IN").ListBox1
        .AddItem "Date"
        .AddItem "Box"
        .AddItem "Around"
        .AddItem "Factory"
        .AddItem "Barcode"
        .AddItem "Stlye"
        .AddItem "Size"
        .AddItem "Colors"
        .AddItem "No"
        .TopIndex = .ListCount - 1
    End With
End Sub

Code: Select all

Private Sub ListBox1_Click()
 With Me.ListBox1
        .AddItem "A3:I1048576"
        .TopIndex = .ListCount - 1
    End With
End Sub

Code: Select all

Private Sub UserForm_Initialize()
  ListBox1.RowSource = Sheets("IN").Range("A3:I1048576").Address(external:=True)
End Sub

Code: Select all

Private Sub UserForm_Initialize()
 ListBox1.RowSource = Sheets("IN").Range("A3:I1048576").Address(external:=True)
With ListBox1
.ListIndex = .ListCount - 1
.Selected(.ListCount - 1) = True
End With
End Sub

Code: Select all

'Other code
    Dim lsRow As Long
    With Sheets("IN")
        lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
     ListBox1.RowSource = Sheets("IN").Range("A3:I" & lsRow).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
'Other code

Code: Select all

Private Sub UserForm_Initialize()
Dim lsRow As Long
With Sheets("IN")
lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
End With
ListBox1.RowSource = Sheets("IN").Range("A3:I1048576").Address(external:=True)
With ListBox1
.ListIndex = .ListCount - 1
.Selected(.ListCount - 1) = True
End With
End Sub

Code: Select all

Private Sub UserForm_Initialize()
    Dim lsRow As Long
    With Sheets("IN")
        lsRow = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
     ListBox1.RowSource = Sheets("IN").Range("A3:I" & lsRow).Address(external:=True)
    With ListBox1
        .ListIndex = .ListCount - 1
        .Selected(.ListCount - 1) = True
    End With
End Sub