Msgbox tarih görünümü sorunu

[cuneight1]

Merhaba...

Sayfa1 de bulunan D3 hücresiki tarihi msgbox ile bilgi amaçlı ekrana getirtmeye çalışıyorum. Ancak tarhi Gün/Ay/Yıl (01.01.2018) olarak vermekte oysaki ben D3 hücresinde olduğu gibi Ay/Yıl (Ocak 2018) olarak vermesini istiyorum yardımlarınız için teşekkürler

Sub auto_open()
If Date >= Sheets("Sayfa1 ").Range("D3").Value Then
MsgBox "[ " & Sheets("Sayfa1 ").Range("D3").Value _
& " ] Dönemine İşlem Yapmaktasınız.", vbInformation, "TURHAN"
End If
End Sub

 

[askm]

Sub auto_open()
If Date >= Sheets("Sayfa1").Range("D3").Value Then
MsgBox "[ " & Sheets("Sayfa1").Range("D3").Value _
& " ] Dönemine İşlem Yapmaktasınız.", vbInformation, "TURHAN"
End If
End Sub

 

[ASMET67]

Aşağıdaki şekkilde denermiisiniz
Sub auto_open()
If Date >= Sheets("Sayfa1").Range("D3").Value Then
AY = Format(Sheets("Sayfa1").Range("D3").Value, "mmmm yyyy")
MsgBox AY & " Dönemine İşlem Yapmaktasınız.", vbInformation, "TURHAN"
End If

End Sub