Farklı sayfalarda aynı hücre adını arama

[bilsis29]

rkadaşlar ben bir excel kitabında olan dosyaların A1 hücrelerine tarih ekledim.Şimdi o sayfalarda tarih gelince bana uyarı versin.


Sub auto_open()
If Date >= Sheets("Sayfa1").Range("A1").Value Then
MsgBox "[ " & Sheets("Sayfa1").Range("A1").Value _
& " ] Tarihine geldiniz veya geçtiniz.", vbCritical, "E V R E N"
End If
End Sub

bu kodda sadece Sayfa1 in A3 hüresinde aryor ve uyarıyı veriyor.Bana kaç sayfa varsa hepsini arayacak ve A3 hücrelerine yazılacak tarihleri tarayıp onu verecek program lazım.

Yardımlarınız için teşekkürle arkadaşlar.Lütfen yardım edin acil yarına yetişmesi lazım arkadaşlar.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub Auto_Open()
    Dim Sayfa As Worksheet, Mesaj As String
    
    For Each Sayfa In Worksheets
        If Date >= Sayfa.Range("A1").Value Then
            If Mesaj = "" Then
                Mesaj = Sayfa.Range("A1").Value
            Else
                Mesaj = Mesaj & Chr(10) & Sayfa.Range("A1").Value
            End If
        End If
    Next
    
    If Mesaj <> "" Then MsgBox Mesaj, vbCritical, "DİKKAT !"
End Sub

 

[bilsis29]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub Auto_Open()
    Dim Sayfa As Worksheet, Mesaj As String
    
    For Each Sayfa In Worksheets
        If Date >= Sayfa.Range("A1").Value Then
            If Mesaj = "" Then
                Mesaj = Sayfa.Range("A1").Value
            Else
                Mesaj = Mesaj & Chr(10) & Sayfa.Range("A1").Value
            End If
        End If
    Next
    
    If Mesaj <> "" Then MsgBox Mesaj, vbCritical, "DİKKAT !"
End Sub

Usta çok sağol evet sorunsuz çalışıyor.Yanlız bi sıkıntı şurda.Kodları fazla anlayamadığımdan çözemedim.Yoksa değişiklikle çıkabilir belki.Burda mesaj kısmında ordaki tarihler yazıyo.Mesaj kısmında tarihler değilde sayfa adları yazsın istiyorum.O nasıl olabilir.Çalışmlarında başarılar.Tekrardan teşekkür ederim.Bir an umudu kesmiştim.