Soru Sayfa F sütununda tarih var ise ListBoxa veri al

[sirkülasyon]

Private Sub UserForm_Activate()
On Error Resume Next
Dim Son As Long
Dim i As Long
Set Sayfa = ThisWorkbook.Sheets("Ücretli")
Son = Sayfa.Cells(Sayfa.Rows.Count, "F").End(xlUp).Row
For i = 2 To Son
    If IsDate(Sayfa.Cells(i, "F").Value) Then
        ListBox1.ColumnCount = 5
        ListBox1.ColumnWidths = "0cm;6cm;0cm;0cm;0cm"
        ListBox1.List = Sayfa.Range("B" & i & ":E" & i).Value
    End If
Next i
End Sub

Ücretli sayfası F2:F sütununda tarih var ise B:E sütununu listboxa almak istedim. Sadece bir kişiyi getiriyor.
Rica etsem yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

Private Sub UserForm_Initialize()
    Dim Son As Long
    Dim i As Long
    Dim Sayfa As Worksheet
    Set Sayfa = ThisWorkbook.Sheets("Ücretli")
    Son = Sayfa.Cells(Sayfa.Rows.Count, "F").End(xlUp).Row
    ListBox1.ColumnCount = 5
    ListBox1.ColumnWidths = "0cm;6cm;0cm;0cm;0cm"
    
    For i = 2 To Son
        If IsDate(Sayfa.Cells(i, "F").Value) Then
            
            ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 0) = Sayfa.Cells(i, "B").Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = Sayfa.Cells(i, "C").Value
            ListBox1.List(ListBox1.ListCount - 1, 2) = Sayfa.Cells(i, "D").Value
            ListBox1.List(ListBox1.ListCount - 1, 3) = Sayfa.Cells(i, "E").Value
        End If
    Next i
End Sub

 

[sirkülasyon]

Canın Sağ Olsun. Teşekkür ederim.

 

[Erkan Akayay]

Listbox1.Rowsource = AlanAdresi şeklinde ile bir alanı getirebilirsiniz.
ListBox1.List= DiziAdı gibi bir diziyi getirebilirsiniz.