Sonradan Eklenen Sayfalar Araya Girmesin

[CAFERCİFTCİ]

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?

 

[Korhan Ayhan]

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.

Option Explicit
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Move After:=Sheets(Worksheets.Count)
End Sub

 

[halit3]

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

 

[CAFERCİFTCİ]

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.

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...

 

[CAFERCİFTCİ]

Teşekkürler...

altarnatif olarak bir kod ekliyorum ancak Korhan Beyin kodu daha kullanışlı.

Sayın halit3,
Size de çok teşekkür ediyorum.