Excel'de açılış sayfası

[josebrio]

Excel de 1 den çok sayfanın olduğu çalışma kitabında, 1 sayfanın açılış sayfası olması için ne yapmak gerekir?

Ayrıca, çalışma sayfasında kaydırma çubuğu ile aşağıya kaydırılıp kaydedilen sayfanın, her açılışta üst kısmının sabit olarak gelmesini sağlamak istiyorum?


Teşekkürler...

 

[Orion1]

Boş bir modüle kopyalayınız.

Sub auto_open()
Sheets(1).Select
Range("A1").Select
End Sub

 

[josebrio]

Geç oldu biraz ama teşekkürler üstat.....

 

[vitaminb1]

.....Açılış sayfa gizli değilse 2.mesajdaki kod çalışıyor. gizli olunca hata veriyor.Peki Gizli açılış sayfasını gösterip açmak için nasıl bir kod eklenir.
.....Yada gizli ise başka sayfayı açmak için.....

 

[uzmanamele]

merhaba

bu işinizi görür mü?
ilk görünür sayfayı açar.

Sub auto_open()
For i = 1 To Worksheets.Count
If Sheets(i).Visible = True Then
Sheets(i).Select
Range("A1").Select
Exit For
End If
Next
End Sub

 

[Orion1]

.....Açılış sayfa gizli değilse 2.mesajdaki kod çalışıyor. gizli olunca hata veriyor.Peki Gizli açılış sayfasını gösterip açmak için nasıl bir kod eklenir.
.....Yada gizli ise başka sayfayı açmak için.....

Sub auto_open()
[B][COLOR="Red"]if sheets(1).visible= false then sheets(1).visible=true[/COLOR][/B]
Sheets(1).Select
Range("A1").Select
End Sub