Yalnız Mesajı Göster
Eski 22-12-2017, 16:37  
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 5), "Ay"
End Sub

Private Function Ay()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then GoTo HATA

On Error GoTo HATA

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

saydir = WorksheetFunction.CountIf(Range("d:d"), "<>") + 1
DinamikAlan = "d2:" & "k" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = "Otomatik maildir lütfen cevap vermeyiniz!.. ...... tarafından Tasarlanmıştır"
With .Item
.To = Cells(2, 2)
.CC = Cells(3, 2)
.Subject = Cells(1, 2)
.bcc = ""
.Send
End With

End With

daralan.Select
End With

Sayfa.Select

HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Function
kduman Çevrimdışı   Alıntı Yaparak Cevapla