hatırlatma

[bitmez13]

Private Sub UserForm_Activate()
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
If tarih = Format(Cells(i, 1), "dd.mm") Then
mesaj = "Doğum günü olanlar : " & vbCr
msj = msj & Cells(i, 2) & vbCr

End If
Next i
MsgBox mesaj & vbCr & msj & msj1
End Sub

yukardaki makroda a sütununda tariler yazılı b sütununda ise isimler yazılı tarih geldiginde dogum günü olanın ismi mesaj box da çıkıyor ben ekleme yapmaya çalıştım ama olmadı c sütununada soy isimlerini yazsam mesajda hem isim yanındada soyisim nasıl çıkartabiliriz

 

[asi_kral]

Private Sub UserForm_Activate()
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
If tarih = Format(Cells(i, 1), "dd.mm") Then
mesaj = "Doğum günü olanlar : " & vbCr
msj = msj & Cells(i, 2) & vbCr

End If
Next i
MsgBox mesaj & vbCr & msj & msj1
End Sub

yukardaki makroda a sütununda tariler yazılı b sütununda ise isimler yazılı tarih geldiginde dogum günü olanın ismi mesaj box da çıkıyor ben ekleme yapmaya çalıştım ama olmadı c sütununada soy isimlerini yazsam mesajda hem isim yanındada soyisim nasıl çıkartabiliriz

Merhaba
Bu şekilde dener misiniz ?

Private Sub UserForm_Activate()
   tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
If tarih = Format(Sheets("Sayfa1").Cells(i, 1), "dd.mm") Then
mesaj = "Doğum günü olanlar : " & vbCr
msj = msj & Sheets("Sayfa1").Cells(i, 2) & " " & Sheets("Sayfa1").Cells(i, 3) & vbCr
End If
Next i
MsgBox mesaj & vbCr & msj & msj1
End Sub