Açılışta istediğim sayfa sabit kalsın

[ersoyalan]

Arkadaşlar merhaba,

7sayfadan oluşan bir çalışma kitabım var...Yapmak istediğim 1.sayfanın her açılışta sabit olarak açılması..diğer sayfalarda kayde işlemi yapıp sayfayı kapatsam dahi istediğim sayfa bir sonraki açılışta hep ana sayfa olarak açılsın...Bunun için buradan bulduğum kodu deniyorum ama olmadı yanlış kodmu kullanıyorum.

Sub Autpen()
Sheets("Tel listesi").Select
End Sub

 

[uzmanamele]

merhaba
dosya açılışında görüntülenecek sayfa adı "Sayfa1" midir "Tel listesi" midir?
başka biryerde mükerrer auto_open makrosu yazılmış olabilir mi?

 

[ersoyalan]

Başka bir yerde bu şekilde kod kullanmadım...Fakat sayfa isimi belirttiğim gibi..

 

[BG]

eğer ana sayfanız hep birinci sayfa olacaksa

Sub Autpen()
Sheets(1).Select
End Sub

olarak deneyin.

 

[uzmanamele]

merhaba
sayfa adının "Tel listesi" olduğuna emin misiniz?
"Tel_listesi" veya "Tel listesi " veya " Tel listesi" olabilir mi mesela?

 

[ersoyalan]

Merhaba Sayfa adı TelListesi en son şu şekilde deneme yaptım..Yeni bir modul yaratıp denedim ve aşağıdaki mesajı aldım..

Run time error(9)
Subsicript out of range

 

[uzmanamele]

merhaba
syn ersoyalan,
5. mesajda sayfa adının doğruluğunu teyit edin demiştim, kontrol etmediniz galiba?

"TelListesi" adında sayfanız varsa kod çalışmaz.
aşağıdaki şekilde değiştiriniz.


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

 

[ersoyalan]

dosya ekledim..

 

[ersoyalan]

Ustam sayfa ismini değiştirerek denemeler yaptım oyüzden yanlış görünüyor..Dosyayı ekledim.Bakarsanız sevinirim..

 

[Necdet]

Merhaba,

Aşağıdaki kodu ThisWorkbook'un kod bölümüne kopyalayınız.

Yazdığınız sayfa adı da koddaki gibi.

"Private Sub Workbook_Open()
Sheets("[B]Tel listesi[/B] ").Select
End Sub

 

[uzmanamele]

merhaba
syn ersoyalan,
5. mesajımı dikkate almadınız galiba?
sayfa adının başında veya sonunda boşluk olabileceğini söylemeye çalışmışdım.

"Tel listesi " adında sayfanız var ve sayfa adının sonunda boşluk var!

 

[ersoyalan]

Arkadaşlar ne söylediyseniz yaptım fakat olmuyor...Uzmanamele belirtiğiniz herşeyi yaptım fakat olmadı..

Başka ne yapmalıyım..Ekli dosya üzerinde yapıp gönderme yapsanız olmazmı...

Syg,

 

[uzmanamele]

merhaba
syn Necdet Yeşertener kodları vermiş zaten.
hala sorun nedir anlayamadım?

 

[ersoyalan]

uzmanamele hocam çok özürdilerimmm fakat az önceki denemlerimde oldu...Yeni bir modul yaratıp tekrar denedim ve oldu..Yardımlarınız için çok teşekederim...sizleri uğraştırdığım için kusura bakmayın..


Syg,

İyi çalışmlar.

E.ALAN

 

[uzmanamele]

merhaba
güle güle kullanın.

:kafa: :gidiyorum: