Alıntı: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
...
...
...
End Sub
ifadenize yönelik olarak;
fikir vermesi ya da alternatif bir kullanım olması adına,ilgili uygulamanızda,Çalışma Kitabı'nın (Workbook) AÇILDIĞINDA olay yordamı içerisine
Kod:
Private Sub Workbook_Open()
Application.Run ("Sayfa1.CommandButton1_Click")
End Sub
son olarak;
konu takibiniz açısından,hatırlatma anlamında konunuz ile ilgili son gelişme ne durumdadır.bilginize...iyi çalışmalar,saygılar.