Tarih ve saat fonksiyonu

[muratozmenler]

Iyi akşamlar....
C sütunu çıkış saati d sütunu çıkış tarihi istediğim userformda listele dediğimiz zaman ilk olarak d sütununda tarihi kontrol edecek günün tarihine eşit ve küçük olanları bulacak ve bu kayıtların c sütununu saatini kontrol edecek saatide günün saatinden ufak ise a ve b sütununda denk gelen veriyi listeleyecek

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim X As Long, Günün_Saati As Date, Satır As Long
    
    Günün_Saati = Time
    
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, "D") <= Date Then
            If Cells(X, "C") < Günün_Saati Then
                ListBox1.AddItem
                ListBox1.List(Satır, 0) = Format(Cells(X, "A"), "hh:mm")
                ListBox1.List(Satır, 1) = Format(Cells(X, "B"), "dd.mm.yyyy")
                Satır = Satır + 1
            End If
        End If
    Next
End Sub

 

[muratozmenler]

çok sağolun teşekkür ederim ....