Ödeme Planı

[iplikci_80]

Arkadaşlar merhabalar. Yapmak istediğim şey EK'te gönderdiğim örnekteki çalışmayı her açtığımda örneğin E sütunundaki ödeme tarihi gelmeden bir gün önce ve ödeme gününde bana uyarı vererek 09.11.2012 tarihinde 5.000,00 ödemen var uyarısını verdirmek istiyorum

 

[asi_kral]

Merhaba
Kitabınızın kod bölümünde bulunan Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_Open()
Dim STR As Long, TRH As Date
Application.ScreenUpdating = False
STR = Range("A" & Rows.Count).End(xlUp).Row
TRH = Date
With WorksheetFunction
Range("A1:F" & STR).AutoFilter field:=5, Criteria1:=TRH
If .Subtotal(3, Range("A2:A" & STR)) > 0 Then
MsgBox TRH & " Ödemeniz : " & .Subtotal(9, Range("F2:F" & STR)) & vbLf
End If
TRH = Date + 1
Range("A1:F" & STR).AutoFilter field:=5, Criteria1:=TRH
If .Subtotal(3, Range("A2:A" & STR)) > 0 Then
MsgBox TRH & " Ödemeniz : " & Format(.Subtotal(9, Range("F2:F" & STR)), "#,##0.00")
End If
Range("A1:F" & STR).AutoFilter
End With
Application.ScreenUpdating = True
End Sub

 

[RONIN1]

Merhaba

Ben kolon açıp formul ile daha basit halletmeyi denedim. Ödemeye kalan gün sayısını da görebiliyorsunuz. ayrıca kalan gün azaldıkça renk kırmızıya dönüyor.

Umarım işinizi görür.

iyi çalışmalar

 

[RONIN1]

Dosya eklemesı

Tekrar merhaba

Dosyayı eklemeyi unutmuşum.

İyi çalışmalar

 

[iplikci_80]

Sayın asi_kral_1967 ve Ronin ayırdığınız zaman ve harcadığınız emek için çok teşekkür ederim.

 

[asi_kral]

Sayın asi_kral_1967 ve Ronin ayırdığınız zaman ve harcadığınız emek için çok teşekkür ederim.

Kolay Gelsin.