• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Zamanı Gelince Mesajla Uyarsın

A

alpay1

Katılım
22 Ekim 2004
Mesajlar
178
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.
 
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.
 
arkadaşlar

Dosya nerde banada lazım böyle bir şey o dosyayı tekrar ekleyebilrmisiniz??
 
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.
 
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ü ?
 
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.
 
Teşekkürler Cost Control, şimdi tamam. İngilizce - Türkçe farkından kaynaklanıyormuş. Kodları revize edince düzeldi.
 
ben bu dosyaları neden açamıyorum

ben dosyaları neden açamıyorum bana bu konuda yardımcı olur musunuz?
 
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...
 
Sayın Cost_Control üstadın izniyle kodları aşağıdaki şekilde revize ediniz.
Kod: 
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
 
Son düzenleme:
Selamlar,

Eklemiş olduğum dosyadamı bu hatayı alıyorsunuz yoksa kendi dosyanıza uyarladığınızdamı?
 
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.
 
kodları yukardaki verdiğim kodla revize edip tekrar deneyiniz.
 
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ı.
 
Rica eder, çalışmalarınızda Başarılar dilerim.
saygılar selamlar
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst