(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.
