Makro ile sayfayı sona taşıma

[ator53]

Arkadaşlar makro ile sayfayı sona taşıyabilirmiyiz.Örnek Olarak yeni bir sayfa eklediğimizde yeni sayfayı eski sayfanın soluna atıyor ama ben hep sağına yani en sona atmasını istiyorum ve bunu makro ile yapmak istiyorum..Yardımcı olabilirmisiniz arkadaşlar....

 

[SEMAY77]

Merhaba,

İlgili kod ektedir.

İyi çalışmalar'

Sub Makro1()
Sheets.Add After:=Sheets(Sheets.Count)
End Sub

 

[hamitcan]

Alternatif;
Kodu, ThisWorkBook kısmına ekleyin.

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

 

[ator53]

Arkadaşlar teşekkür ederim sağolun....