Zamanı Gelince Mesajla Uyarsın

[alpay1]

Değerli Arkadaşlar.
Ben gönderdiğim örnekte kullandığım kodları kendime uyarlamakta sorun yaşadım.Eğer yardımcı olursanız sevinirim.
D sütununda hatırlatma tarihi var.Eğer o tarih bugüne eşitse yada günü geçmişse beni uyarıyor.Ama uyarılacak herhangi birşey yoksa hiçbirşey yapmasın istiyorum.Yani "Exit Sub" olsun.Fakat bir çok denemeler yapmama rağmen başaramadım.Programı açtığınızda düğmeye tıklarsanız göreceksiniz.Mutlaka mesaj çıkıyor.
Eğer uyarılacak birşy yoksa exit yapması için yardımlarınızı bekliyorum.
Teşekkürler.

 

[hamzacan]

MsgBox "TARİHİ DOLAN YOKTUR"

bölümünü silerek yerine ;

Exit Sub

yazınız.

 

[alpay1]

Sayın hamzacan,
Teşekkür ederim.Fakat ilginçtir daha önce bunu denediğimde ikinci mesaj
MsgBox Metin & Chr(10) & "Unutmayınız...", , "Hatırlatma"
Unutmayınız mesajıyla açılıyordu.Ama şimdi oldu.Demekki eklediğim diğer kodlardan kaynaklandı.
Eğer sayfada hiç kayıt yoksa hata veriyordu bunu önlemek için "Eğer A1 hücresi boşsa "go to son" eklentisi yapmıştım.Sanırım onda kaynaklanmış.
Size teşekkür ederim.

 

[shocaoglu]

ZIPLI OLANINI ALABİLİRMİYİM..

 

[ersin bombatepe]

BENDE GÖREBİLİRMİYİM
:yardim: :hihoho:

 

[udentr2002]

arkadaşlar

Dosya nerde banada lazım böyle bir şey o dosyayı tekrar ekleyebilrmisiniz??

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Dosyayı her açtığınızda B sütunundaki ödeme tarihleri kontrol edilir. Eğer içinde bulunduğunuz güne uyan ödemeleriniz varsa size MSGBOX ile size uyarı verir. Umarım faydası olur.

 

[baydeniro]

Sayın Cost Control, paylaşım için çok teşekkürler. Dosyada küçük bir durum var. Eğer aynı günde 1 den fazla ödeme var ise kod çalışmıyor. Sadece 1 ödemede çalışıyor. Ödeme sayısını n sayıda yapmak mümkün mü ?

 

[Korhan Ayhan]

Selamlar,

Eklediğim örnek dosyadaki bütün ödemelerin tarihi 30-03-2007 dosyayı açtığımda otomatik olarak bugünün tarihi ile kıyaslayıp uyanları MSGBOX ta listeliyor. Yani örnek dosyadaki bütün ödemeleri listeliyor. Siz nasıl uyguladınız.

 

[baydeniro]

Teşekkürler Cost Control, şimdi tamam. İngilizce - Türkçe farkından kaynaklanıyormuş. Kodları revize edince düzeldi.

 

[osoz7]

emeğinize sağlık olsun üstadLaR

 

[magonmago]

ben bu dosyaları neden açamıyorum

ben dosyaları neden açamıyorum bana bu konuda yardımcı olur musunuz?

 

[Rulemaster]

Sayın Cost_Control elinize sağlık çok güzel olmuş, fakat kodun

TOPLAM = Format(TOPLAM + Cells(X, 3), "#,##0.00 YTL")

satırında hata veriyor. Bu satırı sildiğimiz zamanda, günü gelen fatura ücretlerinin toplamını vermiyor hali ile.

Acaba nasıl bir revizyon yapmak lazım...

 

[abdi]

Sayın Cost_Control üstadın izniyle kodları aşağıdaki şekilde revize ediniz.

Private Sub Workbook_Open()
    Dim SAY As Long
    Set S1 = Sheets("Sayfa1")
    SAY = WorksheetFunction.CountIf(S1.[B2:B65536], Date)
    If SAY = 0 Then GoTo SON
    For X = 2 To S1.[B65536].End(3).Row
    If Cells(X, 2) = Date Then
    ÖDEMELER = ÖDEMELER & Cells(X, 1) & " - " & Cells(X, 2) & " - " & Format(Cells(X, 3), "#,##0.00 YTL") & vbCrLf

 toplam = (toplam) + Cells(X, 3)
   
    End If
    Next
    MsgBox ÖDEMELER & vbCrLf & "BUGÜN ÖDEMENİZ GEREKEN TUTAR : " & Format(toplam, "#,##0.00 YTL"), vbCritical, "GÜNÜ GELEN ÖDEMELERİNİZ"
    Exit Sub
SON: MsgBox "BUGÜN ÖDEMENİZ BULUNMAMAKTADIR.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Eklemiş olduğum dosyadamı bu hatayı alıyorsunuz yoksa kendi dosyanıza uyarladığınızdamı?

 

[Rulemaster]

Henüz kendi dosyama uyarlamadım Hocam,
Ekteki dosyayı açınca;
Run-Time error '13': Type mismatch uyarısı geliyor.
Debug dediğimizde de bahsettiğim satır görünüyor.

 

[abdi]

kodları yukardaki verdiğim kodla revize edip tekrar deneyiniz.

 

[Rulemaster]

Sn abdi,
Sizin verdiğiniz kodu örnek dosyanın kod sayfasına yapıştırdım.
Şimdi çalışıyor. Bir kaç tane de tarihleri değiştirerek deneme yaptım.
Sorun yok. Teşekkür ederim ilginizden dolayı.

 

[abdi]

Rica eder, çalışmalarınızda Başarılar dilerim.
saygılar selamlar

 

[ANTALYA 01]

F

Merhabalar

Bu çalışma çok güzel hoş fakat Birkaç ekleme yaparak daha detaylı olsa örnek çalışmada tarihin yanında saat hanesi olsa saatide girsek tarih ve saat geldiğinde sesli bir uyarı verse müzik çalabilir.3 Defa Bip sesi gibi falan süper olur.