Aktif çalışma sayfasını kopyalamak.

[talebeyim]

Aktif çalışma sayfasını En son'a x adı ile kopyalamak konusunda yardımcı olabilirmisiniz ?

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Yalnız daha önce "x" adıyla sayfa varsa kod hata verir. Bu konuyla ilgili ne yapılacağını yazmadığınız bu şekilde bıraktım.

Sub Kopyala()
    
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "x"
 
End Sub

.

 

[talebeyim]

Teşekkürler.

Yok hocam sadece bu şekilde düşüneceğinizi bildiğim için soruyu böyle açtım, Kod tam olarak ihtiyacımı karşılamaktadır.

Ben kodu yazmıştım, ama sadece en sona nasıl kopyalarım bunu bulamamıştım, Lastsheet falan diye bir yol varmı diye düşünüyordum, sayfayı saydırmak aklımın ucundan geçmemişti Çok teşekkür ederim.

Hayırlı ramazanlar.

=Sheets(Sheets.Count)