Merhabalar, Excelde sırayla dizilmiş tarihler ve isimler var. asağıda grüldüğü gibi. Şimdi yapmam gereken günü geldiği zaman isimlerde r olanlara mail atmam gerekiyor. Mesela 8/10/2017 günü geldiğinde r yazan yerde isim6 var. isim6 olan kullanıcıya mail gndermek istiyorum. Sub SendEmail Dim OutApp As Object Dim OutMail As Object Dim dateRange, nameRange As Range Dim findString As String Set OutApp = CreateObject Set OutMail = OutApp. CreateItem(0) Dim date1, date2 As Integer date1 = Date Set cell = Cells. Find(What:=date1, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) MsgBox cell. Address findString = "r" End Sub şimdilik byle birşey yapabildim. cell. address kısmından o günün tarihi olan hücreyi buluyor fakat daha sonrasında tarihe gre o kolondaki r bulunan kişiyi nasıl bulacağımı anlayamadım.

AA = Range . Column BB = Range . Row For Each xy In Range If xy <> "" And xy = "r" Then MsgBox xy. Address Next