Sub auto_open ile açılışta hata

[tamer42]

Merhabalar;

Excel ilk açılırken 2. sheet' in otomatik gelmesi için;

Sub auto_open()
Sheets(2).Select
End Sub

şeklinde bir kod yazdım,

Run-time error '1004':
Method 'Sheets' of object'_Global' failed

hatasını veriyor, neden kaynaklanabilir.

İyi Çalışmalar....

 

[danersin]

Seçmeye yapmaya çalıştığınız sayfa muhtemelen hidden (gizli)
Sayfa indisini kontrol edin yada ismi değişmiyorsa /sabitse sayfanızın

Sheets("Sayfaismi").Select

şeklinde deneyin.

 

[xxrt]

Kodlarını şu şekilde değiştir.

Sub auto_open()
Sheets("Sayfa2").Select
End Sub

Edit:Pardon Sayın danersin,mesajı post ettikten sonra gördüm..

 

[tamer42]

Selamlar;

Sub auto_open()
Sheets("Sayfa2").Select
End Sub

bu şekilde de denedim, aynı hatayı veriyor.


Bu arada uğraşırken tespit ettiğim durum şu; eğer açılan dosya üzerinde bir işlem yapmak istediğimde bu hatayı veriyor,

Sub auto_open()
msgbox "Merhaba"
End Sub

bu kodda herhangi bir hata vermiyor, normal çalışıyor.

Teşekkürler, İyi Akşamlar...

 

[danersin]

Kodlarda bir hata yok.
Seçmeye çalıştığınız sayfa özelliklerinde bir şey var. Benim bildiğim sayfa gizli iken bu hatayı verir. Başka hangi sebepten dolayı seçemiyor olabilir birşey gelmiyor aklıma. Yeni bir dosyada herhangi bir sayfanın properties'i ile sizin seçmeye çalıştığınız sayfanın propertieslerini bir karşılaştırın.

 

[cako]

Sayfa ismini değişken olarak tanımlamış olmayın diğer kodlarınızın herhangi bir yerinde

 

[tamer42]

Teşekkürler....

Ben kodları bütün dosyalarda kullanabilmek için eklenti içerisine yazmıştım, burada hatayı veriyor.

Kodları sadece dosyanın modulüne yazınca sorun kalmadı.


"Sub auto_open" ile başlayan kodları genelleştirmek (bütün dosyalarda kullanmak) mümkünmüdür,


İyi Çalışmalar dilerim...