Makro ile Sayfa Kopyalama

[xnanx]

Merhaba,
Bu tarz örnekler var ama ihtiyacımı karşılamadığı için başlık açtım.

Excel hangi sayfa(Sheet) açıksa aysını sona kopyalasın istiyorum. Mevcut sayfanın ismi neyse parantez için (1) yazarak devam etsin. Aynı dosya ismi varsa (2) yazsın gibi.

Sayfa İsmi : "Deneme" kopya yeni sayfa ismi "Deneme(1) gibi.
Aktif çalışma sayfası gene deneme ye dönsün.

Bu mümkün olur mu?

 

[halit3]

kod

Sub sayfa_kopyala()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
say = ActiveWorkbook.Sheets.Count
Sheets(ActiveSheet.Name).Select
Sheets(ActiveSheet.Name).Copy After:=Sheets(say)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub