Değişken mesaj kutusu

[müteşair]

Merhabalar,

Ek'teki dosyanın "TARİH" sekmesindeki kalan işgünü sayısını belirten hücrenin (D2), program açılışında otomatik çıkacak mesaj kutusunda her gün değişecek şekilde yer almasını nasıl sağlayabiliriz?

Mesaj kutusu örneği:

Başlık: Kalan gün sayısı

Metin: Yıl sonuna 32 (D2) gün kaldı



teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Boş bir modül ekleyip aşağıdaki kodları içerisine yapıştırın.
Daha sonra dosyanızı makro içerebilen formatlarda kaydedip, kapatın.
(.xlsm .xls)

Sub AUTO_OPEN()

MsgBox "Yıl Sonuna " & Sheets("TARİH").Range("D2") & " Gün Kaldı.", vbInformation, " Kalan gün sayısı "

End Sub

. . .

 

[müteşair]

Çok teşekkür ederim...