Bildirim Userform

[asdek]

Merhaba arkadaşlar,

Ben bir tablo hazırladım ve bu tablo içerisinde ödeme tarihi kolonu yer almaktadır. Bugünden itibaren 10 gün içerisindeki ödemeleri bana hatırlatma yapabilir mi?

Örneğin; Userform ile bana şu şu kişilerin üstteki başlıklarıda yer alan bir bildirim penceresi ile gösterebilir mi ? Ayrıca bu kişileri yazdır butonuda ekleyebilir miyiz ?

Saygılarımla.

 

[askm]

Aşağıdaki kod ile msgbox şeklinde kişi isimleri listeleniyor. Yazdır butonundan kastınız nedir. Yazdırma sayfası olup oraya bu kişileri aktarmasını mı istiyorsunuz? Biraz daha açıklarsanız.

Sub ASKM_Ödeme_Tarihi_Uyari()
Dim SonSatir As Long
SonSatir = Cells(Rows.Count, "E").End(xlUp).Row
tarih = VBA.Date + 10
For i = 4 To SonSatir
   If CDate(Cells(i, 5).Value) <= tarih Then  'If CDate(Cells(1, "E").Value) > CDate(Now) - 10 Then
        deger = deger & vbLf & Cells(i, "D").Value
    End If
Next
MsgBox deger, vbInformation, "ASKM"
End Sub