Excel'e tarih beğendiremedim

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Excel'e tarih beğendiremedim. Acaba nerede hata yaptım?

Sub Tarih_Yaz()
    Dim bytTar As Byte
    bytTar = InputBox(Prompt:="ilk tarih")
        If bytTar <> Format(bytTar, "dd.mm.yyyy") Then
            MsgBox Prompt:="hatalı tarih girişi !", _
                Title:="tarihi düzeltin lütfen"
          Else
            [W5] = bytTar
        End If
End Sub

Saygılarımla
Desktop.rar hata mesajlarının resimleridir

 

[Muzaffer Ali]

Merhaba.

Dim bytTar As Byte

buradaki byte "byTar" değişkeninin 0-255 arası bir rakam alabileceğini belirtiyor.
onun yerine

Dim bytTar As Date

yapmalısınız ama inputbox a girilen değerin tarih olup olmadığını kontrol etmediğiniz için.
Dim bytTar As String
yazmalısınız.
bytTar değişkeni bir metin değişkeni yapın, sorun hallolur.

 

[Tevfik_Kursun]

Sayın Dalgalıkur hocam,
İlginize teşekkür ederim.
Saygılarımla