Excel VBA Yardım

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Excel VBA Yardım

09/Ağu/17 13:59 Kısayol Şikayet Özel Mesaj
Ekerci

Kayıt Tarihi: 14/Ocak/2010
Merhabalar,

Excelde sırayla dizilmiş tarihler ve isimler var. asağıda görü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 göndermek istiyorum.
```
Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim dateRange, nameRange As Range
Dim findString As String

Set OutApp = CreateObject("Outlook.Application")
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 böyle birşey yapabildim. cell.address kısmından o günün tarihi olan hücreyi buluyor fakat daha sonrasında tarihe göre o kolondaki r bulunan kişiyi nasıl bulacağımı anlayamadım.

Konu ID: 112846 Konuyu Acan : Ekerci Konu Başlığı : Tahribatın en sevdiği adam ? Silinme Sebebi : 3 sayfadır takip ediyorum beni seven kimse çıkmadı. alacağınız olsun müridler
Alıntı yap
09/Ağu/17 15:05 Kısayol Şikayet Özel Mesaj

Tayga

Kayıt Tarihi: 21/Haziran/2015

AA = Range(cell.Address).Column

BB = Range(cell.Address).Row

For Each xy In Range(cell.Address)

If xy <> "" And xy = "r" Then MsgBox xy.Address

Next

Alıntı yap

Toplam Hit: 1934 Toplam Mesaj: 2
excel vba

Cevapla