(19/08/2015, 12:28)C*e*l*o*y*c*e yazdı: Merhaba
istediğin anlaşılmıyor,daha çok açıklayıcı olur musun?

Merhaba;

aşağıdaki kodların belli bir zamanda otomatik çalışmasını istiyorum. ama;

"sub auto_open()" kodu ile beceremedim.

kodlar aşağıdaki gibidir.


Private Sub CommandButton1_Click()
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"), "<>") + 1
DinamikAlan = "D2:" & "j" & 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 = "bukoli nokta sipariş raporu - kerem"

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 Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub



teşekkürler.