son çalıştığın sayfaya geri dön butonu

[ucs2010]

Merhaba arkadaşlar yardımınıza ihtiyacım var.

benim bir excel dosyam var. bu dosya da 10 tane çalışma sayfası var(yada daha fazla). ben dosyayı açıp, 5. sayfada (yada diğer başka bir sayfada) veri girişi yaptım. bu veriler ile ilgli 9. sayfaya mause ile kendim geçiyorum. 9. sayfada işim bitince bu sayfada oluşturacağım bir butona basıp en son çalıştığım sayfaya geri dönmek istiyorum. Bu konuda yardımcı olursanız eğer çok sevinirim.:roll:

 

[Mustafa MUTLU]

Sub Sayfaya_Git()
Worksheets("Sayfa2").Select
End Sub

Bu Kodu Düğmeye ata
Sayfa2 yi istediğin sayfa adını yazabilirsin.

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoşgeldiniz.

Çalışmanıza boş bir sayfa ekleyin. Adı "X" olsun.
Daha sonra bu sayfayı BİÇİM-SAYFA-GİZLE menüsünü kullanarak gizleyin.

Aşağıdaki kodu çalışmanızın THISWORKBOOK bölümüne uygulayın. Kırmızı renkli bölüm sizin buton ekleyeceğiniz sayfanızın adıdır. Kendinize göre düzenleyin.

Option Explicit
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveSheet.Name <> "X" And ActiveSheet.Name <> "[COLOR=red]Sayfa9[/COLOR]" Then
        Sheets("X").Range("A1") = ActiveSheet.Name
    End If
End Sub

Aşağıdaki kodu da boş bir modüle uygulayın.

Option Explicit
 
Sub Düğme1_Tıklat()
    On Error GoTo Son
    Sheets(Sheets("X").Range("A1").Text).Select
    Exit Sub
Son: MsgBox "Sayfa bulunamadı !", vbCritical
End Sub

Bu kodu bir butona atayın.

Son olarak istediğiniz sayfada değişiklik yapıp butonlu sayfaya geçin. Orada istediğiniz işlemi yapıp butona tıklayın.

Uygulamalı dosya ektedir.

 

[uzmanamele]

merhaba

alternatif olsun

ThisWorkbook bölümüne

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
yeni_sayfa = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
eski_sayfa = yeni_sayfa
End Sub

standart modüle

Public eski_sayfa As String
Public yeni_sayfa As String

Sub eski_sayfayi_seç()
' Klavye Kısayolu: Ctrl+q
On Error GoTo dip
    Sheets(eski_sayfa).Select
    Exit Sub
dip:
MsgBox "Önceki Sayfa Bulunamadı!!!", vbCritical
End Sub

makroya klavye kısayol tuşu ataması yaparsanız tüm sayfalarda kullanabilirsiniz.
makro / eski_sayfayi_seç / seçenekler / Kısayol tuşu: Ctrl+q

 

[ucs2010]

çok güzel anlatmışsınız ama...

Hocam çok teşekkür ederim ilginize ama sizin örnek dosyasında da bende ki uygulamada da hata veriyor.

Bide sizin kırmızı renk dediğiniz bölüm yok ama anladığım kadarıyla sizin örnekteki sayfa 9 yerine ben kendi çalışmamda ki sayfayı yazıcam ama ben beceremedim ya. Olmadı hata verdi sürekli. Benim excel den kaynaklanana bir sorun olabilir mi?

 

[ucs2010]

Biliyorum yeri burası değil ama

Biliyorum burası değil ama şimdi normal makroyu butona atayabiliyorum ama kodu nasıl atayacağım ben . Cahilliğimi lütfen mazur görün

 

[Korhan Ayhan]

Merhaba,

Hangi bölüme kadar sorunsuz yapabildiniz?

 

[nemon82]

merhaba

alternatif olsun

ThisWorkbook bölümüne

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
yeni_sayfa = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
eski_sayfa = yeni_sayfa
End Sub

standart modüle

Public eski_sayfa As String
Public yeni_sayfa As String

Sub eski_sayfayi_seç()
' Klavye Kısayolu: Ctrl+q
On Error GoTo dip
    Sheets(eski_sayfa).Select
    Exit Sub
dip:
MsgBox "Önceki Sayfa Bulunamadı!!!", vbCritical
End Sub

makroya klavye kısayol tuşu ataması yaparsanız tüm sayfalarda kullanabilirsiniz.
makro / eski_sayfayi_seç / seçenekler / Kısayol tuşu: Ctrl+q

çok teşekkürler.

 

[Murat OSMA]

Alternatif;

• Module sayfasına;

Public sonSayfa As String
Sub auto_open()
Application.OnKey "%q", "xxx"
End Sub
Sub xxx()
If sonSayfa = "" Then Exit Sub
Sheets(sonSayfa).Select
End Sub

• Thisworkbook kod sayfasına;

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
sonSayfa = Sh.Name
End Sub

Dosyayı kaydedip kapatın ve açın. Sayfalar arası gezindiğinizde, ALT + q harfine bastığınız an bir önceki gezindiğiniz sayfaya geçeceksiniz.

 

[Cibali]

Emeğinize sağlık, çok güzel olmuş... Murat hocam sizin ki daha başka güzel olmuş )

 

[alicimri]

Sayın Cibali
"girişi yaptığım sayfa" dediğiniz için Sayın Murat Osma'nın ThisWorkbook kodlarına bir iki küçük ekleme yaptım. Eğer bir sayfada değişiklik yaptıktan sonra yanlışlıkla işlem yapmadığınız sayfaları açıp kapatırsanız dahi Alt+q bastığınızda değişiklik yaptığınız sayfaya gidiyor.

Public test
Private Sub Workbook_Activate()
test = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If test = True Then
sonSayfa = Sh.Name
test = False
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
test = True
End Sub

 

[Cibali]

Teşekkürler hocam, elinize emeğinize sağlık...