Auto_Open()

[sensizsoldum]

Merhaba,
Modül1 de auto open kod var modül2 de de var, sayfayı her açtığımda hata alıyorum kodun çalışıp çalışmadığını da bilemiyorum. Ayrı modüller de farklı auto open kodlar olması lazım. Bu sorunu nasıl çözebiliriz. Kodları birleştirmeden farklı modüller de olmak kaydıyla.

 

[bedersu]

Kodların birinde auto_open yerine Private Sub Workbook_Open() kullanırsanız sorun çözülür sanırım.

 

[sensizsoldum]

Merhaba
Öncelikle ilginizden dolayı teşekkür ederim. Sorun çözüldü ama kod işlevini yapmıyor. Excel 2010 kullanıyorum çalışmayı hangi sayfada iken kayıt edip kapatsam da sürekli ana sayfadan başlasın istiyorum. Bu excelin özelliklerinde varsa aşağıdaki kodu kullanmama gerek kalmaz. Ya da bu kodun yapacağı işlemi daha farklı nasıl yazabiliriz.


Sub Autpen()
Sheets("anasayfa").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırı diğer AUTO OPEN makronuzun içine alın. Yani çalışmanızda bir AUTO OPEN prosedürü olsun.

Sheets("anasayfa").Select

 

[sensizsoldum]

Teşekkür ederim Korhan Bey,
Sanırım oldu, ancak diğer kodu ancak akşam deneyebilirim. Umarım bir sıkıntı yoktur. Emeği geçen herkese teşekkür ederim.
Hayırlı ramazanlar.

 

[bedersu]

private sub Kodlarını ThisWorkbook kısmına yerleştirdiğiniz sürece hata vermemesi gerekiyor.Öyle de dener misiniz?

 

[alik.]

arkadaşlar sitenizde bulunan anasayfa açma codlarının tamamını denedim, ama çalışmıyor, son kaydettiğim yerde açılıyor sürekli.

office 2007 TR kullanıyorum.

kullandığım kod lar

Private Sub Workbook_Open()

Sheets("ANASAYFA").Select

End Sub

ve

sub auto_Open()

Sheets("ANASAYFA").Select

End Sub

sizce sorun nerede

 

[dEdE]

Merhaba,
Yukarıdaki kodları nereye yazıyorsunuz? Modüle mi? sayfanın kod bölümüne mi? ThisWorkbook kod bölümüne mi?
Dosyanızı kaydederken Makro etkin çalışma kitabı (.xlsm) olarak kayıt ediyor musunuz? Dosyanızda ANASAYFA olarak isimlendirilmiş sayfa var mı?
Eğer doğru işlem yaparsanız kodların biri yeterli olacaktır.
Olmadı ise örnek dosyanızı ekleyiniz.

 

[alik.]

Merhaba,
Yukarıdaki kodları nereye yazıyorsunuz? Modüle mi? sayfanın kod bölümüne mi? ThisWorkbook kod bölümüne mi?
Dosyanızı kaydederken Makro etkin çalışma kitabı (.xlsm) olarak kayıt ediyor musunuz? Dosyanızda ANASAYFA olarak isimlendirilmiş sayfa var mı?
Eğer doğru işlem yaparsanız kodların biri yeterli olacaktır.
Olmadı ise örnek dosyanızı ekleyiniz.

size de merhaba, ilgilendiğiniz için teşekkürler

-kodkullandığım diğer modüllerin birine yazıyorum.
-excelden çıkarken kaydetmek istemisiniz diye sorduğunda kaydet diyerek çıkıyorum. .xlsm olarak kayıt oluyor.
-dosyamda ANASAYFA diye bir sayfa var.

kodların doğru olduğundan şüphem yokta, muhtemelen yazdığım yerde sorun var. yani dosyada çok fazla cod yazdım ve hepsi çalışıyor, ama açılış makrosunu çalıştıramadım.

forumda dosya ekleme butonu göremedim,

hotfile a yükledim

https://hotfile.com/dl/187424968/ac1215d/PROGRAM_beta_-_Kopya.xlsm.html

 

[dEdE]

Merhaba
Auto_open makronuzu aşağıdaki gibi değiştirin.

Sub Auto_Open()
Sheets("ANASAYFA").Select
ActiveSheet.OnEntry = "Action"
End Sub

Modüldeki aşağıdaki kodları da silin.

Private Sub Workbook_Open()
ThisWorkbook.Worksheets("ANASAYFA").Activate
End Sub

 

[alik.]

teşekkürler sorun çözüldü.