multipageden butonla page(sekme) açma

[osmanfenerli1907]

butona tıklayınca multipage1 den 2.sekme yani page2 nasıl açılır?

 

[Seyit Tiken]

Private Sub CommandButton1_Click()
MultiPage1.Value = 1
End Sub

 

[yusuf1284]

Hocam alakasız olacak belki ama page sayfasının scorll aşağı yukarı yaptığımız yerin üstte başlamasının nasıl sağlarız

 

[necati]

Merhaba,
Normalde hangi sayfada ve koordinatta kaydedilmiş ve kapatılmış ise o sayfa ve koordinatta açılır.
Aşağıda iki örnek kod var. Birincisi "Satışlar" sayfasında açılış yapar. İkincisi "Satışlar" sayfası "M1" hücresi ekranda olacak şekilde açılış yapar.
Açılışta değil de sayfanın ilk satırının hep ekranda görünür kalmasını demek istedi iseniz, "Görünüm" menüsünden "Bölmeleri dondur" veya "Böl" butonunu tıklamalısınız.

Private Sub Workbook_Open()
'Kitap koduna yazılacak.
Worksheets("Satışlar").Activate
End Sub

--------

Private Sub Workbook_Open()
'Kitap koduna yazılacak.
Application.Goto Worksheets("Satışlar").Range("M1")
End Sub