• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sonradan Eklenen Sayfalar Araya Girmesin

Katılım
5 Nisan 2009
Mesajlar
533
Excel Vers. ve Dili
2003-2007
Arkadaşlar,
Sayfa 1,Sayfa 2,Sayfa 3...Yeni sayfa eklediğimizde

Sayfa 1,Sayfa 2,Sayfa 4,Sayfa,Sayfa 3 şeklinde araya giriyor.Bu sırayı bozmamak için,yani sonradan eklenen sayfanın sıradaki yerini alması için (Sayfa 4 gibi) ne yapılabilir?
 
Selamlar,

Makro kullanarak yeni eklenen sayfayı sürekli en sona kaydırabilirsiniz. Aşağıdaki kod çalışmanızın ThisWorkbook bölümüne uygulayın. Yeni sayfa ekledikçe eklenen sayfa otomatik olarak sona kaydırılacaktır.

Kod:
Option Explicit
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Move After:=Sheets(Worksheets.Count)
End Sub
 
altarnatif olarak bir kod ekliyorum ancak Korhan Beyin kodu daha kullanışlı.

Sub sayfaekle()
yer = ActiveSheet.Name
son = ActiveWorkbook.Sheets.Count + 1
Sheets.Add
Sheets(ActiveSheet.Name).Name = "Sayfa" & son
Sheets(ActiveSheet.Name).Move After:=Sheets(son)
Sheets(yer).Select
End Sub
 
Teşekkürler

Selamlar,

Makro kullanarak yeni eklenen sayfayı sürekli en sona kaydırabilirsiniz. Aşağıdaki kod çalışmanızın ThisWorkbook bölümüne uygulayın. Yeni sayfa ekledikçe eklenen sayfa otomatik olarak sona kaydırılacaktır.

Kod:
Option Explicit
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Move After:=Sheets(Worksheets.Count)
End Sub
sayın Korhan AYHAN,
Çok teşekkür ediyorum.Saygılarımla...
 
Geri
Üst