Excel farklı sütunlardaki tarihleri hatırlatma

[chasteeer]

Merhaba,

Excelde daha önce hatırlatma makrosu yapmıştım ama tek sütundaki tarihi hatırlatıyordu. Şimdi istediğim 3 veya daha fazla sutunda bulunan tarihleri kontrol edip tarihi geldiğinde uyarı vermesi. Aşağıdaki gibi birşey oluşturdum fakat bir problem var. İlk sütundaki yani 'ı' sütunudaki tarihi kontrol edip istediğim satırdaki açıklamayı getiriyor ama sonraki sütundaki tarihlerde getirdiği açıklama ilgili satırdaki açıklama değilde o sutundaki tum acıklamaları getiriyor. Her for döngüsünden sonra birşey mi yazmam gerekiyor acaba ?

Private Sub workbook_open()

Dim h As Integer
Dim j As Integer
Dim x As Integer

Dim ı As String
Dim k As String
Dim m As String

Dim hucre As String
Dim hucre1 As String
Dim hucre2 As String


For h = 1 To 4000 Step 1

hucre = "ı" + CStr(h)

msj = msj & Cells(h, 5) & vbCr

mes = mes & Cells(h, 6) & vbCr

If VBA.Date = Range(hucre).Value Then

MsgBox mesaj & msj & mes

End If

Next

For j = 1 To 4000 Step 1

hucre1 = "k" + CStr(j)

msj = msj & Cells(j, 5) & vbCr

mes = mes & Cells(j, 6) & vbCr

If VBA.Date = Range(hucre1).Value Then

MsgBox mesaj & msj & mes

End If

Next

For x = 1 To 4000 Step 1

hucre2 = "m" + CStr(x)

msj = msj & Cells(x, 5) & vbCr

mes = mes & Cells(x, 6) & vbCr

If VBA.Date = Range(hucre2).Value Then

MsgBox mesaj & msj & mes

End If
Next
End Sub