Merhaba,
D2= 16.01.2023
E2 = Kış
Textboxta 16.01.2023 tarihi geldiğinde diğer textboxda kış gelsin istiyorum fakat tarih formatında hata alıyorum.
Sayılarda çalıştırırken tarih formatında hata alıyorum maalesef kullandığım kod aşağıdaki gibidir.
With Sheets("PANEL")
sat = .Cells(Rows.Count, "D").End(xlUp).Row
Set k = .Range("D2
" & sat).Find(girisgunu, , xlValues, xlWhole)
If Not k Is Nothing Then
haftalikgrup.Value = k.Offset(0, 2).Value
Else
MsgBox "Mevsim Bulunamadı."
End If
End With
Set k = Nothing
D2= 16.01.2023
E2 = Kış
Textboxta 16.01.2023 tarihi geldiğinde diğer textboxda kış gelsin istiyorum fakat tarih formatında hata alıyorum.
Sayılarda çalıştırırken tarih formatında hata alıyorum maalesef kullandığım kod aşağıdaki gibidir.
With Sheets("PANEL")
sat = .Cells(Rows.Count, "D").End(xlUp).Row
Set k = .Range("D2
" & sat).Find(girisgunu, , xlValues, xlWhole)If Not k Is Nothing Then
haftalikgrup.Value = k.Offset(0, 2).Value
Else
MsgBox "Mevsim Bulunamadı."
End If
End With
Set k = Nothing