Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
    Dim cl As Range
    Dim t As Range
    Set ws = Worksheets("RENTER")
    

    With Me.ListBox1
       
        .RowSource = ""
        
        For Each cl In Oat5.Range("A2:A" & _
            Oat5.Range("A65536").End(xlUp).Row)
            .AddItem cl.Value
        Next cl
    End With
    
       For Each t In ws.Range("Name")
    With Me.ComboBox1
            .AddItem t.Value
            .List(.ListCount - 1, 1) = t.Offset(0, 1).Value
    End With
    Next t  

    Me.TextBox6.Value = Format(Calendar1, "Medium Date")


End Sub

Code: Select all

Dim t As Range
    Set ws = Worksheets("RENTER")

 For Each t In ws.Range("Name")
    With Me.ComboBox1
            .AddItem t.Value
            .List(.ListCount - 1, 1) = t.Offset(0, 1).Value
    End With
    Next t  

Code: Select all

Private Sub UserForm_Initialize()
    Dim cl As Range
    Dim t As Range
    Dim Name As Range
    Set ws = Worksheets("RENTER")
    Set Name = ws.Range("A2", ws.Range("A" & Rows.Count).End(xlUp))

    With Me.ListBox1
       
        .RowSource = ""
        
        For Each cl In Oat5.Range("A2:A" & _
            Oat5.Range("A65536").End(xlUp).Row)
            .AddItem cl.Value
        Next cl
    End With
    
    For Each t In Name
    With Me.ComboBox1
            .AddItem t.Value
            .List(.ListCount - 1, 1) = t.Offset(0, 1).Value
    End With
    Next t

    Me.TextBox6.Value = Format(Calendar1, "Medium Date")

End Sub

Code: Select all

dim i as integer
for i = 0 to listbox1.listcount - 1
   if listbox1.selected(i) then
       msgbox listbox1.list(i)
   end if
next i

Code: Select all

for i = 0 to listbox1.listcount - 1

Code: Select all

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) Then
        Oat5.Cells(final, 6) = UserForm2.ListBox2.List(a)
   End If
Next a

Code: Select all

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) = True Then
    Oat5.Range("A65536").End(xlUp)(2, 6) = UserForm2.ListBox2.list(a)
    UserForm2.ListBox2.Selected(a) = False
   End If
Next