yandaki sayfaya gitme

[yavuzoz]

Sayın Üstad, İdris SERDAR'ın

forumda bir soru üzerine, en sağ ve en solda ki sayfalara gitmeyi sağlayan makro kodları ile ilgili yanıtı, benim için de yeni bir pratik çözüm oldu,

Sub sol()
Sheets(1).Select
End Sub

Sub sag()
Sheets(Sheets.Count).Select
End Sub


bunlara ilaveten, bulunduğumuz sayfanın hemen her iki yanında bulunan sayfaların tespit edilmesi ile,
bulunduğumuz sayfanın kaç numaralı sayfa olduğunu belirleyen bir yol da vardır sanırım,
bu konularda yardım rica edebilirmiyim, teşekkürler...
.

 

[YUSUF44]

For i =1 to sheets.Count
if sheets(i).Name = activesheet.Name then
sıra=i
end if
next

Yukardaki kodlarla aktif sayfanın kaçıncı olduğu sıra değişkenine atanır. Daha sonra sıra değişkenini kullanarak istediğinizi yapabilirsiniz.

 

[m.akcan]

aktif sayfa sıra numarası:

ActiveSheet.Index

 

[yavuzoz]

yanıtlar için teşekkür ederim..

 

[akarsli]

merhaba

ETILR_741670_2018_4

ETILR_716320_2018_3

ETILR_698261_2018_2

ETILR_758384_2019_1

ETILR_778850_2019_2

ETILR_795250_2019_3

bu isimlerde dosyaları açtıktan sonra,

açık excel dosyalarının isminin sonları hep aynı , başları farklı



*************2019_1 bunu KAP3B sayfasına kopyalasın

*************2019_2 bunu KAP6B sayfasına kopyalasın

*************2019_3 bunu KAP9B sayfasına kopyalasın

*************2018_2 bunu KAP6G sayfasına kopyalasın

*************2018_3 bunu KAP9G sayfasına kopyalasın

*************2018_4 bunu KAP12G sayfasına kopyalasın



SADECE bu o yıldız olan yerler hep değişiyor nasıl yapabiliriz

teşekkür ederim