hücreye yazılan tarihte mesaj oluşturma

[drmbatur]

Herkese iyi günler,
Ben foruma yeni üye oldum.
Aşağı yukarı bütün mesajları inceledim ancak sorunuma çare bulamadım.

Sorunum;
excelde bir tabloda; tarih, ödeme yapılacak yer ve ödeme yapılacak miktar sütunlarım var. Ben bilgisayarımı açtığımda bir mesaj kutusu içinde o gün ödeme yapılacak yerleri ve toplam ödeme miktarını görmek istiyorum. Ancak başaramadım.
Yardımcı olabilirseniz sevinirim.
Saygılarımla.

 

[N.Ziya Hiçdurmaz]

Yanıt

Örnek dosyanız olmadığından kendime göre bir örnek hazırladım inceleyiniz.

Sub AUTO_OPEN()
Range("A2:C50").Font.ColorIndex = 0
For SUT = 1 To [A65536].End(3).Row
If Range("A" & SUT) = Date Then
KIM = Range("A" & SUT).Offset(0, 1).Value
TUTAR = Range("A" & SUT).Offset(0, 2).Value
Range("A" & SUT).Offset(0, 2).Font.ColorIndex = 3
MsgBox KIM & " " & TUTAR & " YTL"
End If
Next
End Sub