Bir önceki sayfaya geri dönmek

[acolkesen1]

Merhaba Arkadaşlar,
"Önceki sayfaya dön" anlamına gelecek kod konusunda yardıma ihtiyacım var. Yapmak istediğim Sayfa1 den Sayfa8 e geçtikten sonra tekrar sayfa1 e veya Sayfa 3 den Sayfa1 geçtikten sonra aynı kodla tekrar Sayfa3 e dönmek istiyorum Acaba bu kodlarla mümkün müdür? İlgilenen arkadaşlar teşekkür ederim, herkese iyi çalışmalar..

 

[uzmanamele]

merhaba
modül1'e

Public Sayfa_Adi(1 To 2) As String
Public Sub Onceki_Sayfa()
Sheets("" & Sayfa_Adi(2)).Activate
End Sub

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


ThisWorkbook modulu:

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

not: kod syn Zeki Gürsoy'a aittir

 

[hurkanpisirici]

merhaba

Merhaba Arkadaşlar,
"Önceki sayfaya dön" anlamına gelecek kod konusunda yardıma ihtiyacım var. Yapmak istediğim Sayfa1 den Sayfa8 e geçtikten sonra tekrar sayfa1 e veya Sayfa 3 den Sayfa1 geçtikten sonra aynı kodla tekrar Sayfa3 e dönmek istiyorum Acaba bu kodlarla mümkün müdür? İlgilenen arkadaşlar teşekkür ederim, herkese iyi çalışmalar..

eklediğim dosya işinize yararmı

 

[acolkesen1]

Merhaba Sayın uzmanamele,
ThisWorkbook modulune yazdığımız kodlarda açılışta kırmızı renkli satırda hata veriyor.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sayfa_Adi(2) = Sayfa_Adi(1)
Sayfa_Adi(1) = ActiveSheet.Name
End Sub
Bir de, aşağıdaki kodlar
Private Sub Workbook_Open()
Sayfa_Adi(1) = ActiveSheet.Name
End Sub

herhangi bir modüle mi yazılacak ve bu kodlar çalışmamdaki Auto_open kodlarıyla çakışır mı?
ilginize teşekkür ederim..

 

[uzmanamele]

merhaba
ek dosyayı inceleyiniz

 

[hurkanpisirici]

sayın uzmanamele dosyanızı indirdim butona bastım ama hata verdi

 

[uzmanamele]

merhaba
dosyayı açınca hemen butona basmakla hata mesajı almanız normal.
önceki sayfaya dönmek için sonraki sayfayı görüntülemedinizki!
sayfa1 aktif olduktan sonra sayfa2 ye giderseniz sayfa1'e geri döner. sayfa2 yi aktifleştirmezseniz nereye gitsin? önceki sayfa yok ki.

 

[acolkesen1]

Sayın uzmanamele , yardımlarınız için teşekkür ederim. İşlem tamamdır..İyi çalışmalar ve esenlikler dilerim. Gıyabında Sayın Zeki Grsoy'a da teşekkürlerimi sunarım. Sağlıcakla kalın..

 

[hurkanpisirici]

sayın uzmanamele onuda görüntüledim.

 

[hurkanpisirici]

ama 1. sayfa sonrada 3 sayfayı açtıktan sonra çalışıyor

 

[uzmanamele]

merhaba
ek dosyayı deneyin

 

[hurkanpisirici]

arşivime ekledim teşekkürler

 

[hurkanpisirici]

ayrıca bir şey dikkatimi çekti sayın acolkesen1 sorusuna bende yardımcı olmaya çalıştım ama benim mesajım ya onun ekranında gözükmedi yada kendisi görmedi. bunuda belirtmek istedim.

 

[acolkesen1]

Sayın hrknp,
Bütün samimiyetimle özür diler ilginiz için teşekkür ederim. Gerçekten de ,konuya yoğunlaştığım için gözümden kaçmış, anlıyacağınızdan eminim...Telrar teşekkür eder esenlikler dilerim.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodlarıda kullanabilirsiniz.

Sub ÖNCEKİ_SAYFA()
    If ActiveSheet.Index = 1 Then
    Sheets(Sheets.Count).Select
    Else
    ActiveSheet.Previous.Select
    End If
End Sub
 
Sub SONRAKİ_SAYFA()
    If ActiveSheet.Index = Sheets.Count Then
    Sheets(1).Select
    Else
    ActiveSheet.Next.Select
    End If
End Sub

 

[hurkanpisirici]

sayın acolkesen1 tabiki insanlık hali hoşgörü ve saygı yardımlaşmayla birleşince insan bu konulardada hassas oluyor kolay gelsin iyi çalışmalar

 

[acolkesen1]

Sayın hrknp, mesajınız içimi rahatlattı .. Gerçekten üzülmüştüm.Çünkü hiçbir zorunluluk olmamasına rağmen yardım çağrısına cevap vemek nezaketinde bulunan birisine bir teşekkürü unutmamak gerekir.. tekarar teşekkür eder iyi günler dilerim..