Excel VBA'da Sadece Tarih Girilmesini Sağlamak

[esnekplastik]

Excel vba'da sadece nasıl tarih girmelerini sağlayabilirim istediğim gibi?

Örnek istediğim tarih: 12.05.2018 gibi ve sadece tarih başka bir şey eklendiğinde hata versin istiyorum.

 

[Orion1]

Kırmızı satırlara bakınız.

If SonSatir = 5 Then
    
        Worksheets("Elektrikçiler").Cells(SonSatir, 1) = 1
        Worksheets("Elektrikçiler").Cells(SonSatir, 2) = FirmaAdiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 3) = CinsiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 4) = BirimMiktarYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 5) = BirimFiyatYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 7) = CDate(TarihYaz.Value)
    
    Else
    
        Worksheets("Elektrikçiler").Cells(SonSatir, 1) = Worksheets("Elektrikçiler").Cells(SonSatir - 1, 1) + 1
        Worksheets("Elektrikçiler").Cells(SonSatir, 2) = FirmaAdiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 3) = CinsiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 4) = BirimMiktarYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 5) = BirimFiyatYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 7) = CDate(TarihYaz.Value)
        
    End If

 

[esnekplastik]

Kırmızı satırlara bakınız.

If SonSatir = 5 Then
   
        Worksheets("Elektrikçiler").Cells(SonSatir, 1) = 1
        Worksheets("Elektrikçiler").Cells(SonSatir, 2) = FirmaAdiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 3) = CinsiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 4) = BirimMiktarYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 5) = BirimFiyatYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 7) = CDate(TarihYaz.Value)
   
    Else
   
        Worksheets("Elektrikçiler").Cells(SonSatir, 1) = Worksheets("Elektrikçiler").Cells(SonSatir - 1, 1) + 1
        Worksheets("Elektrikçiler").Cells(SonSatir, 2) = FirmaAdiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 3) = CinsiYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 4) = BirimMiktarYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 5) = BirimFiyatYaz.Value
        Worksheets("Elektrikçiler").Cells(SonSatir, 7) = CDate(TarihYaz.Value)
       
    End If

Bu php'den bile kolaymış.