önceki sayfa sonraki sayfa

[lrdofstn]

bir çalışma sayfaları arasında ileri geri hareket etmek için (1. sayfadan 2. sayfaya- 2. sayfadan 3. sayfaya- vs. vs.) bir ileri ok'u bir de geri ok'u yapıştırmak istiyorum. bu ileri okunu ve geri okunu hangi sayfaya yapıştıırsam yapıştırayım tıkladığımda bir sonraki sayfaya gitsin. geri okuna tıkladığımda ise bir önceki sayfaya gitsin. yani her ok'a ayrı ayrı köprü kurmak istemiyorum. mümkün mü teşekkürler.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub sağ()
sonraki = IIf(ActiveSheet.Index = Sheets.Count, 1, ActiveSheet.Index + 1)
Sheets(sonraki).Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki dosyayı incelermisiniz. Bu işlem için SpinButton uygun bir araçtır.

Private Sub SpinButton1_SpinDown()
    If ActiveSheet.Index = 1 Then
    Sheets(Sheets.Count).Select
    Else
    Sheets(ActiveSheet.Index - 1).Select
    End If
End Sub

Private Sub SpinButton1_SpinUp()
    If ActiveSheet.Index = Sheets.Count Then
    Sheets(1).Select
    Else
    Sheets(ActiveSheet.Index + 1).Select
    End If
End Sub

 

[lrdofstn]

arkadaslar cok güzel olmus. ekteki dosya tam istediğim gibi ama malesef makro kullanmayı bilmiyorum