back makrosu

[sezarsalatasi]

Herkese merhaba ,

Çok kısa bir sorum var. 15 sayfadan oluşan excel dokumanıma bir önceki sayfa dönmek için bir makroya ihtiyacım var ve bunu düğme yoluyla nasıl yaparım. Bu konuda yardım edebilirimisiniz.

Şimdiden teşekkürler

 

[uzmanamele]

merhaba

modüle;

Public Sayfa_Adi(1 To 2) As String

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

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

not:
kodlar siteden (ç)alıntıdır.

 

[sezarsalatasi]

şu dosyaya nasıl ekleyeceğim yardımcı olurmusunuz

 

[uzmanamele]

merhaba

bu mudur?

 

[sezarsalatasi]

merhaba

bu mudur?

ewet dosya budur