açılışta makro otomatik çalışsın

[2008model]

değerli üstadlarımın yardımına ihtiyacım var.excell i açtığımda kaydettiğim makro otomatik olarak çalışmasını nasıl sağlayabilirim.şayet excell makro güvenliği kapalıysa açsınve yazdığım makroyu çalıştırsın.böyle bir koda ihtiyacım var yardımcı olursanız çok memnun olurum.şimdiden herkese teşekkürler.(makroyu ben kendim ekleyeceğim.)

ekleyeceğim kod:

Sub gizle()
Dim sat As Long
Application.ScreenUpdating = False
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "b") = "" And Cells(sat, "c") = "" And Cells(sat, "d") = "" _
And Cells(sat, "e") = "" And Cells(sat, "f") = "" And Cells(sat, "g") = "" _
And Cells(sat, "h") = "" And Cells(sat, "ı") = "" Then
Cells(sat, "b").EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

 

[Ömer]

Merhaba,

Sub Gizle() olan başlangıç satırını

Sub Autpen()

olarak değiştiriniz. Ayrıca güvenlik ayarını manuel değiştirmek zorundasınız. Bununla ilgili bir kod yok diye biliyorum.

.

 

[2008model]

üstadımçok teşekkürler sağol

 

[2008model]

hocam Sub Gizle() olan başlangıç satırını

Sub Autpen()

olarak değiştirdim ancak açtığımda makro devreye girmiyor.manuel olarak devreye soktum ancak.

 

[Ömer]

Kodların çalıştığı sayfa gidersek çözülür sanırım,

Sub Autpen()
Sheet("Sayfa Adı").Select
..
..
End Sub

Şeklinde deneyin. Makronun çalışmasını istediğiniz sayfanın adını ilgili bölüme yazınız.

 

[2008model]

hocam sağol sizin siteden aldığım kodu nasıl çalıştırabilirim açılışta otomatik kodunuzu bu makroya eklerseniz daha iyi olur.sorun kolay çözülür sanırım

 

[uzmanamele]

merhaba
syn 2008model, butür kodları pek kullanmayız...

 

[alakova]

Option Explicit
Public Kontrol As Boolean

Sub SAAT_AKTİF()
If Kontrol = True Then Exit Sub
DoEvents
Sheets("Sayfa1").Range("A1") = Time
Application.OnTime Now + TimeValue("00:00:01"), "SAAT_AKTİF"
End Sub

Sub SAAT_PASİF()
Kontrol = True
End Sub

Sub BAŞLA()
Kontrol = False
SAAT_AKTİF
End Sub
arkadaşlar excell i açtığımda kaydettiğim makro otomatik olarak çalışmasını nasıl sağlayabilirim.