Bugüne ait tarihin bulunduğu satırın Listboxa aktarılması

[Feylosof]

Merhabalar,
Excel sayfası G sütununda bulunan tarih bugüne eşitse o satırın tümünü listboxa alacak, diğer verileri aktarmayacak. bunun için nasıl kod yazmalıyım?
Veriler A:J arasındadır.
Yardımlarınız için teşekkürler.

 

[Ömer]

Merhaba,
Bu şekilde deneyin.

Private Sub UserForm_Initialize()
    
    Dim trh As Byte, son As Long

    trh = WorksheetFunction.Match(CLng(Date), [A1:J1], 0)
    son = Cells(Rows.Count, trh).End(xlUp).Row
    
    With ListBox1
        .RowSource = Range(Cells(2, trh), Cells(son, trh)).Address
        .ColumnCount = 1
        .ColumnWidths = 100
    End With
    
End Sub

 

[Feylosof]

Sayın Hocam ilginiz için teşekkür ederim. Ancak kod malesef hata verdi.
"Worksheet Function sınıfının Match özelliği alınamıyor" Hatası...

 

[Feylosof]

Çözüm lütfen

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim i As Long, sonsat As Long, x As Long
ListBox1.ColumnCount = 7
sonsat = Cells(Rows.Count, "G").End(xlUp).Row
For i = 2 To sonsat
    If CDate(Cells(i, "G").Value) = Date Then
        ListBox1.AddItem
        ListBox1.List(x, 0) = Cells(i, "A").Value
        ListBox1.List(x, 1) = Cells(i, "B").Value
        ListBox1.List(x, 2) = Cells(i, "C").Value
        ListBox1.List(x, 3) = Cells(i, "D").Value
        ListBox1.List(x, 4) = Cells(i, "E").Value
        ListBox1.List(x, 5) = Cells(i, "F").Value
        ListBox1.List(x, 6) = Format(Cells(i, "G").Value, "dd.mm.yyyy")
        x = x + 1
    End If
Next
End Sub

 

[Feylosof]

Evren Hocam;
Yine HIZIR gibi yetiştiniz. Çok teşekkür ediyorum iyi ki varsınız.