Makro ile bir önceki sayfa

[osman1309]

Excel dosyamda 100 tane sayfa var ben sayflara arasında butona atadığım köprü ile geçiş yapmaktayım fakat ben çoğu zaman ana sayfa değilde butona basınca bir önce hangi sayfayı açtıysam o sayfaya gitmek istiyorum.Bunu makro ile nasıl yapışabilir mi?

 

[uzmanamele]

merhaba

bu kodlar işinizi görür mü?

ThisWorkbook bölümüne:

Private Sub Workbook_Open()
    Sayfa_Adi(1) = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sayfa_Adi(2) = Sayfa_Adi(1)
    Sayfa_Adi(1) = ActiveSheet.Name
End Sub

standart modüle:

Public Sayfa_Adi(1 To 2) As String

Public Sub Onceki_Sayfa()
    Sheets("" & Sayfa_Adi(2)).Activate
End Sub

not:
kodlar syn Zeki Gürsoy'dan alıntıdır.

 

[osman1309]

cok tesekkurler buyuk ıhtımalle olur.