sayfa sıralama

[tiryaki_44]

merhaba,

bir excel dosyasındaki sayfaları harf sırasına yada sayı sırasına göre nasıl sıralanır.

şimdiden teşekkürler.

 

[mustafaine1]

gorunum menusunde page break preview var sayfa kirilimlarini gosterir onu tiklayip sag tikladiginizda page setup sayfa ayarlarina giriniz ve header ve footer yani ust ve alt yazilarin oldugu bolumde footerdan sayfa numaralandirma yapabilirsiniz.. yahut page setupa dosya menusunde girebilirsiniz..

 

[tiryaki_44]

kusura bakma ama anlayamadım. daha açık bir şekilde anlatabilirmisin?

 

[mustafaine1]

yararli olucagini umuyorum kolay gelsin..

 

[tiryaki_44]

emeğin için çok teşekkür ederim ama ben excel 2003 kullanıyorum.

 

[mustafaine1]

farketmez ayni bolumleri seciceksiniz, view menusunden page break preview secip sag tiklayin page setupa girin ( page setup`a dosya menusunden de girebilirsiniz 2003 te) ordan ayni sekilde header & footer seciceksiniz..

 

[muygun]

merhaba;
İstediğiniz bir excel sayfasında bir düzen içerisinde sıralama yapmak ise örnek dosya ekleyin.
Eğer bir dosya içerisindeki sayfa adlarını (sekmeleri) sıralamak ise;

Sub TriChaqueFeuilles()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

kodlarını bir butona bağlamak suretiyle kullanın.
Not: kodlar alıntıdır.
İyi çalışmalar.

 

[tiryaki_44]

çok teşekkürler çok işime yarıyacak.

 

[mustafaine1]

muygun bey tesekkurler uzun zamanli dusununce bir gun isime yarayacaktir, sakliyorum kodlarinizi kolay gelsin..

 

[Golden-M]

süpersin arkadaşım teşekkür ederim.

merhaba;
İstediğiniz bir excel sayfasında bir düzen içerisinde sıralama yapmak ise örnek dosya ekleyin.
Eğer bir dosya içerisindeki sayfa adlarını (sekmeleri) sıralamak ise;

Sub TriChaqueFeuilles()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

kodlarını bir butona bağlamak suretiyle kullanın.
Not: kodlar alıntıdır.
İyi çalışmalar.