Aktif sayfa degil belirtilen sayfada makro çalistirma

[byvolkan]

Iyi gunler
Kullanmis oldugum makro klasor acildiginda hangi sayfa açiksa o sayfada calisiyor.
Benim istedim bu makronun sadece "LISTE" sayfasi için calismasi yardimci olabilirseniz sevinirim.

Sub envoimail()

Dim messagerie As Object
Dim email As Object
Dim cel As Range
Dim delai As Integer
Dim deger As String

Set messagerie = CreateObject("Outlook.Application")

delai = 15 'jours

For Each cel In Range(" A4:A" & Range("A4").End(xlDown).Row)
    If cel.Offset(, 9).Value <> "" Then
        If cel.Offset(, 9).Value - Now < delai Then
  
            deger = deger & vbLf & cel.Offset(, 0)
  
        End If
    End If
Next cel
If deger = "" Then
    Set messagerie = Nothing
    Exit Sub

 

[Korhan Ayhan]

Range ifadesinin başına sayfa adını eklemeniz yeterli olacaktır.

Örnek;

Sheets("LISTE").Range("A1:A100")

 

[byvolkan]

Cok tesekkur ederim sorun halloldu