Çalışma Kitabındaki Sayfalar Arası Geçiş Butonu

[Tunabilisim]

Arkadaşlar merhaba,


Kullanmakta olduğum çalışma kitabımda ortalama 20 ve üzeri sayfa bulunmaktadır. Sayfalar arası geçiş yapmak için aşağıdaki ileri geri tuşları ile kullanırken baya zorluk yaşamaktayım. Daha pratikle olacak şekilde çalışma kitabının bir kenarında sabit duracak şekilde her sayfayı açabilecek bir düğme hazırlanabilir mi? Ayrıca düğme alanına tüm sayfalarda aramaya yapabilecek şekilde excelin kendi bul özelliği gibi alan gibi bir alan eklenebilir mi?

http://s7.dosya.tc/server5/idrbfv/Yeni_Microsoft_Office_Excel_Worksheet.zip.html

 

[muhasebeciyiz]

http://www.excel.web.tr/f14/sayfalar-arasy-geci-yapmak-t163884.html

lütfen bu linki inceleyiniz

 

[muhasebeciyiz]

Sub Test()
With Sheets(1)
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:=Sheets(i).Name & "!A1"
Sheets(i).Range("A1") = Sheets(1).Name
Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), _
Address:="", SubAddress:=Sheets(1).Name & "!A1"
Next
End With
End Sub

veya bu kodu yazıp ilk sayfaya bakınız. aşağıdaki linktede anlatımı vardır

http://www.excel.web.tr/f48/ana-sayfadan-dioer-sayfalara-geci-t67702.html

 

[Tunabilisim]

Vermiş olduğunuz kodlamada her sayfa için yeni bir bağlantı oluştu.Altı çizili çalışma kitabımda bulunan tüm sayfalar için linkler oluştu.

Diğer konuyu incelediğimde kısa bir kodlama işimi görüyor ama diğer düğmeleri nasıl tanımlayabilirim (tanımlı olan sayfa1) ve 20 dizili düğmeyi sayfa değiştirdiğinde dahi aynı yerinde nasıl sabit tutabilirim. Bul özelliği eklenebilir mi?

Sub Aç()
Sheets("" & [A1]).Select
End Sub

Sayfa1 için yapılmış. Sayfa2 ve diğerleri için nasıl düzenlenir.

 

[Orion1]

Vermiş olduğunuz kodlamada her sayfa için yeni bir bağlantı oluştu.Altı çizili çalışma kitabımda bulunan tüm sayfalar için linkler oluştu.

Diğer konuyu incelediğimde kısa bir kodlama işimi görüyor ama diğer düğmeleri nasıl tanımlayabilirim (tanımlı olan sayfa1) ve 20 dizili düğmeyi sayfa değiştirdiğinde dahi aynı yerinde nasıl sabit tutabilirim. Bul özelliği eklenebilir mi?

Sub Aç()
Sheets("" & [A1]).Select
End Sub

Sayfa1 için yapılmış. Sayfa2 ve diğerleri için nasıl düzenlenir.

Linkteki dosyayı açınız.


DOSYAYI İNDİR

..

 

[Tunabilisim]

Sn, Orion1

Gayet güzel olmuş teşekkür ederim.

Ama bütün düğmeleri her sayfada sabit tutma imkanı var mıdır?

Şuan sizin hazırladığınızda sayfa1'deki düğmeler ile sayfa2 ve 3 gidiyor ama diğer sayfalara gitmek için tekrar sayfa1 gelmek gerekiyor.

Sayfanın sağ kenarında kutucuk şeklinde sabit duramaz mı?

 

[Orion1]

Sn, Orion1

Gayet güzel olmuş teşekkür ederim.

Ama bütün düğmeleri her sayfada sabit tutma imkanı var mıdır?

Şuan sizin hazırladığınızda sayfa1'deki düğmeler ile sayfa2 ve 3 gidiyor ama diğer sayfalara gitmek için tekrar sayfa1 gelmek gerekiyor.

Sayfanın sağ kenarında kutucuk şeklinde sabit duramaz mı?

Ekli dosyayı inceleyiniz.
Eğer userformu Kapatırsanız ,ctrl+f ile tekrar açabilirsiniz.

DOSYAYI İNDİR

.

 

[Tunabilisim]

Sn, Orion1

Elinize emeğinize sağlık. Teşekkür ederim.

 

[Orion1]

Sn, Orion1

Elinize emeğinize sağlık. Teşekkür ederim.

Rica ederim.
İyi çalışmalar.