Tarih aralığında veri işleme sorunu

[Feylosof]

İyi çalışmalar diliyorum herkese,

Ekli dosyada belli tarih aralığında isimlere veri girişi yapmak istiyorum. Elimde bir kod var . Ancak aranan değer tarih olunca işlem yapmıyor. Sayı veya harf yazsam çalışıyor. Tarihe duyarlı hale getirmeyi beceremedim. Yardımcı olur musunuz?
Teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Butonun kodlarını aşağıdaki ile değiştirin.

Private Sub CommandButton5_Click()
    Dim satirbul As Range, sutunbul As Range
    Dim sh As Worksheet
    Set sh = Sheets("Sayfa6")
    Set satirbul = sh.Range("B6:B23").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not satirbul Is Nothing Then
        For Each sutunbul In sh.Range("D5:AL5")
            If FormatDateTime(sutunbul.Value) = FormatDateTime(TextBox2.Value, vbShortDate) Then
                sh.Cells(satirbul.Row, sutunbul.Column) = TextBox1.Value
                Exit For
            End If
        Next
    End If
End Sub

 

[Feylosof]

@Muzaffer Ali üstadım çok teşekkür ederim. Emeğinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.