Popup Mesaj Tarih Formatı

[tipitipim]

Merhaba Arkadaşlar;

Sub Test()
Worksheets("Garanti Takibi").OnEntry = "Test"
Kacgun = Sheets("Garanti Takibi").Range("z2").Value
If Range("Z1").Value < 90 Then

MsgBox "Garanti Süresi " & Kacgun & " sonunda bitiyor aşağıdaki garanti uzatma bilgilendirmesini uygulayınız." 

End If
End Sub

Yukarıdaki kodda Kacgun kısmını hücreden gün ay yıl formatında geliyor. Hücre içerisinde Haziran 2012 olarak görünmesine rağmen popup mesajda gün ay yıl formatında görüyorum. Ay ve Yıl formatında nasıl gösteririm?

İyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Bahsettiğiniz değişkene ait satırı aşağıdaki gibi değiştirip deneyin.

Kacgun = Sheets("Garanti Takibi").Range("z2").Text

 

[tipitipim]

Korhan bey teşekkürler sorunsuz olarak çalıştı.