dönüş butonu

[wolwaren]

arkadaşlar önce konuları inceledim bulamadım. 10 sayfalık bir çalışma düşünün mesela 5 sayfasında çalışırken 7 sayfaya gitmek için bir makro yaptım diyelim. 7 sayfada iken hangi sayfadan geldiğini bilen ve o sayfaya geri dönen bir makro yapılabilirmi?
saygılar

 

[Excelmy]

Sayın Wolwaren

Basit bir örnek ekledim, geliştirebilirsiniz.

İnceleyiniz.

 

[BG]

Sayın wolwaren

arkadaşlar önce konuları inceledim bulamadım. 10 sayfalık bir çalışma düşünün mesela 5 sayfasında çalışırken 7 sayfaya gitmek için bir makro yaptım diyelim. 7 sayfada iken hangi sayfadan geldiğini bilen ve o sayfaya geri dönen bir makro yapılabilirmi?
saygılar

Oldukça basit bir örnekde benden ... Dosyanız ektedir.

 

[Mahir64]

Peki şöyle yapsak
basgit geldiğin yere desek gidermi acaba.
Benzer bir örnek http://www.excel.web.tr/f48/comboboxa-sayfa-simlerini-aldyrma-sayfaya-gitme-t92468.html

 

[wolwaren]

arkadaşlar çok teşekkürler ancak bakabildim. black lordun söylediği gibi
internet sayfalarında hani link var back gibi gerçi oradaki sistem farklı ama basic de olabilirmi diye düşündüm en son hangi sayfadan geldiysem o sayfaya dönsün. sayın kumanın olayıda mantıklı teşekkürler.

 

[Excelmy]

internet sayfalarında hani link var back gibi gerçi oradaki sistem farklı ama basic de olabilirmi diye düşündüm en son hangi sayfadan geldiysem o sayfaya dönsün.

Küçük bir güncelleme daha

 

[Emir Hüseyin Çoban]

Küçük bir güncelleme daha

Merhaba,
Sy Kuman nın izniyle dosyasına bu kodları ekleyerek daha pratik bir hal kazandırabilirsiniz.

Her sayfaya " Sayfalar " butonu eklemek yerine aşağıdaki kodları ThisWorkbook' a yapıştırınız. Daha sonra F12 tuşuna bastığınızda Userform açılacaktır.

Private Sub Workbook_Activate()
Application.OnKey "{F12}", "sayfalar"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F12}", ""
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "{F12}", ""
End Sub

Private Sub Workbook_Open()
Application.OnKey "{F12}", "sayfalar"
End Sub

 

[wolwaren]

buldum ama emeği geçenlere teşekkürler

arkadaşlar istediğim budu büyük ihtimalle ben anlatamadım olay şu mesela birinci sayda işlem yaparken dördüncü sayfaya geçiyorum sonra en son geldiğim sayfaya geri butonu ile geri dönüyorum.
dosyayı ekledim umarım beğenirsiniz

 

[Mahir64]

arkadaşlar istediğim budu büyük ihtimalle ben anlatamadım olay şu mesela birinci sayda işlem yaparken dördüncü sayfaya geçiyorum sonra en son geldiğim sayfaya geri butonu ile geri dönüyorum.
dosyayı ekledim umarım beğenirsiniz

İstediğinizin bu olmadığını düşünüyorum.
Eklediğiniz dosya boş bir çalışma sayfası ve üzerinde geri tuşları var.
Yada siz yanlışlıkla makrolu hali yerine bunu yüklemiş olabilirmisiniz.

 

[wolwaren]

Public PrevSheet As Variant
Public CurrSheet As Variant
Sub ToPrevSheet()
Sheets(PrevSheet).Select
End Sub

bu modül
-----------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CurrSheet = ActiveSheet.Index
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
PrevSheet = CurrSheet
End Sub
burada Workbook alanına

eklediğim dosyayı tam kaydedemimişim
kusura bakmayın

 

[Mahir64]

Merhaba
Olayın espirisini anlayamadım
Eklediğiniz dosyaya göre uyguladım,
4 den 3 geçiyorum geri dediğimde 1 gidiyor
2 den 4 geçiyorum geri dediğimde yine bire gidiyor.