Hücrede yazan tarihi bulamama

[zeynelhug]

Arkadaşlar bir userform tasarladım.

bul = TextBox19.Value
satir = ss5.Range("A:A").Find(bul).Row

Bu kod ile textbox 19 da yazan verinin satırını buluyorum. Fakat hücrede ki tarih formatı ile uyuşmuyor sanırsam. İşlem yapmıyor.

'Not: textbox'a 9/6/2019 yazarsam işlem yapıyor. ama ben 6/09/2019 şeklinde işlem yapmasını istiyorum.

 

[hamitcan]

Böyle deneyin.

satir = ss5.Range("A:A").Find(Format(bul, "dd.mm.yyyy")).Row

 

[zeynelhug]

Böyle deneyin.

satir = ss5.Range("A:A").Find(Format(bul, "dd.mm.yyyy")).Row

ne yazık ki olumsuz.

 

[Orion1]

Buyurun.

Private Sub CommandButton3_Click()
Dim ss5 As Worksheet, sat As Range, satir As Long
'On Error Resume Next

Set ss5 = Worksheets("Günlük")

bul = CDate(TextBox19.Value)
Set sat = ss5.Range("A3:A" & Rows.Count).Find(bul)
If sat Is Nothing Then
   MsgBox "[ " & bul & " ]  bulunamadı.", vbCritical, "UYARI"
   Exit Sub
End If
satir = sat.Row
TextBox1.Value = ss5.Cells(satir, 2)

 

[hamitcan]

Tarihi değiştirip denediniz mi ?

 

[zeynelhug]

Buyurun.

Private Sub CommandButton3_Click()
Dim ss5 As Worksheet, sat As Range, satir As Long
'On Error Resume Next

Set ss5 = Worksheets("Günlük")

bul = CDate(TextBox19.Value)
Set sat = ss5.Range("A3:A" & Rows.Count).Find(bul)
If sat Is Nothing Then
   MsgBox "[ " & bul & " ]  bulunamadı.", vbCritical, "UYARI"
   Exit Sub
End If
satir = sat.Row
TextBox1.Value = ss5.Cells(satir, 2)

Teşekkür ederim. Orion1 hocam cdate(textbox19.value) işe yaradı.