Dogum günü hatırlatma

[Acelen]

Sevgili Hocalarım

Artık yaş bir ilerledikçe bazı şeyleri hatırlamaz oluyoruz. Benim yaptığım ve aileleri kayıt ettiğim bir dosyam var. Burada birtakım özel bilgiler var. Yaş günü ve doğum günü detaylarda var. Fakat bunları sürekli kontrol edemiyorum. Bu yüzden bir takım kutlamaları atlıyorum. Bana yaş günü önemli günleri hatırlacak bir mail olabilir veya aynı dosyada ayrı bir sayfada hatırlatıcı satırlar olabilir. Bu çözebilirmiyiz. Benim yaptığım birkaç deneme var fakat doğum günü, bugün ile çakışmadığından başarılı olamadım.

Yardımcı olursanız çok sevineceğim.

Windows 2007 kullanmaktayım.

 

[chngrcn]

Sevgili Hocalarım

Artık yaş bir ilerledikçe bazı şeyleri hatırlamaz oluyoruz. Benim yaptığım ve aileleri kayıt ettiğim bir dosyam var. Burada birtakım özel bilgiler var. Yaş günü ve doğum günü detaylarda var. Fakat bunları sürekli kontrol edemiyorum. Bu yüzden bir takım kutlamaları atlıyorum. Bana yaş günü önemli günleri hatırlacak bir mail olabilir veya aynı dosyada ayrı bir sayfada hatırlatıcı satırlar olabilir. Bu çözebilirmiyiz. Benim yaptığım birkaç deneme var fakat doğum günü, bugün ile çakışmadığından başarılı olamadım.

Yardımcı olursanız çok sevineceğim.

Windows 2007 kullanmaktayım.

çalışma ektedir, inceleyiniz..

'Option Explicit

'Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
() '    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long

    Me.Caption = "BUGÜN DOĞUM GÜNÜ OLANLAR"

    For X = 2 To Range("B65536").End(3).Row
        If Cells(X, 2) = Date Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Cells(X, 1)
                .List(Satır, 1) = Format(Cells(X, 2), "dd.mm.yyyy")
                 Satır = Satır + 1
            End With
        End If
    Next
'    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

 

[pedroleon]

peki doğum gününü 1 hafta önceden bana hatırlatmasını istersem nasıl yapabilirim?

 

[chngrcn]

'Option Explicit

'Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
() '    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long

    Me.Caption = "BUGÜN DOĞUM GÜNÜ OLANLAR"

    For X = 2 To Range("B65536").End(3).Row

a = Cells(X, 2) 'ana tarih
b = Date ' bugünün tarihi
c = a - 7 'ana tarihin birhafta öncesi

 If b = c Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Cells(X, 1)
                .List(Satır, 1) = Format(Cells(X, 2), "dd.mm.yyyy")
                 Satır = Satır + 1
            End With
        End If
    Next
'    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

Bu kodu bir deneyiniz.. İyi çalışmalar..

 

[mkarakas_58]

Bu son kodu nasıl ekleyecez ? Beceremedim