mesaj verdirme

[yuxexes]

merhaba arkadaşlar;
ben hücrelere tanımladığım tarihler geldiğinde bir mesaj vermesini istiyorum.
ekli dosyadada açıklama yaptım. yardımlarınızı rica ediyorum.

şimdiden teşekkürler.

 

[leumruk]

Merhaba,

Sub Auto_Open()
For x = 1 To [a65536].End(3).Row
If Format(Now, "dd.mm.yyyy") = Format(Cells(x, "a"), "dd.mm.yyyy") Then
MsgBox "Belirtilen tarih geldi."
End If
Next
End Sub

 

[baydeniro]

Sayın leumruk, çok teşekkürler

 

[yuxexes]

teşekkür

merhaba;

teşekkür ederim işlem mükemmel tam istediğim gibi.
birşey daha sormak istiyorum aynı işlemi dosyada kaydetme işlemi yapıldığındada bu mesajı verdirebilirmiyiz.

teşekkürler.

 

[Necdet]

Merhaba,

Bir örnek te benden, sanırım bu kod daha hızlı çalışır.
Aşağıdaki kodun ThisWorkbook'un sayfasında olmalı.

Private Sub Workbook_Open()
    Set s1 = Sheets("Sayfa1")
    Set c = s1.Range("A:A").Find(Date, LookIn:=xlValues)
    If Not c Is Nothing Then MsgBox "Sistem Tarihi A" & c.Row & " Hücresiyle Uyuştu...."
End Sub

 

[leumruk]

Merhaba,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For x = 1 To [a65536].End(3).Row
If Format(Now, "dd.mm.yyyy") = Format(Cells(x, "a"), "dd.mm.yyyy") Then
MsgBox "Belirtilen tarih geldi."
End If
Next
End Sub

Eğer, gireceğiniz sayı çok fazla ise Necdet Bey'in de belirttiği gibi find kodunu kullanmanız daha hızlı sonuç verecektir.
Bu kodu Thisworkbook bölümüne kaydettiğinizde, kayıt ettiğinizde de mesaj alırsınız.

 

[leumruk]

Sayın leumruk, çok teşekkürler

Rica ederim.

 

[yuxexes]

çalıştıramadım

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For x = 1 To [a65536].End(3).Row
If Format(Now, "dd.mm.yyyy") = Format(Cells(x, "a"), "dd.mm.yyyy") Then
MsgBox "Belirtilen tarih geldi."
End If
Next
End Sub

merhaba
kodu nereye ekliyeceğim tarif edermisiniz lütfen.

tşk.

 

[leumruk]

Araçlar>Makro>VisualBasic Düzenleyicisi (Ya da kısaca Alt F11)
Açılan ekranda sol kısımda Thisworkbook isminde bir bölüm göreceksiniz. O bölüme çift tıklayıp açılan boş sayfaya verdiğim kodu yapıştırın.

 

[yuxexes]

teşekür

sayın lemruk;

çok teşekkür ederim. tam istediğim gibi oldu.

 

[leumruk]

sayın lemruk;

çok teşekkür ederim. tam istediğim gibi oldu.

Rica ederim.