Mrtolga14
Altın Üye
- Katılım
- 11 Mayıs 2020
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2013 - TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 19-09-2027
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