Soru Sayfa Kopyalarken Biçimde Aktarmak?

[karakrall01]

Herkese kolay gelsin, ben excel çalışma sayfamda bir kaç işlem yapmaktayım ve sayfamda;

Private Sub CommandButton1_Click()
Dim aa As Worksheet
Set aa = ActiveSheet
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1
aa.Cells.Copy
Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("A1").Select
MsgBox " Kopyalama oldu."
End Sub

bu kod sayesinde yeni sayfama kopyalama yapmaktayım. Ancak kopyalama esnasında hücrelerde ki biçimlerim filan gelmiyor sadece yazılar gelmekte. Ben kopyalan sayfada ki herşeyin geçmesini istiyorum biçimlerin dış kenarlıkların vs. vs. nasıl aktarabilirim acaba onunla ilgili yardım edermisiniz?

 

[Necdet]

Merhaba,

İşlemi Fazla Uzatmışsınız. Hem yeni sayfa oluşturuyorsunuz hem de aktif sayfayı kopyalıyorsunuz. Aktif sayfanın doğrudan kopyasını alın.
Böylelikle format işiyle uğraşmamış olursunuz.
Aşağıdaki kodları kendinize göre uyarlayınız.

Sub Makro1()

    ActiveSheet.Copy After:=Sheets(Worksheets.Count)
   
End Sub

 

[karakrall01]

T

Merhaba,

İşlemi Fazla Uzatmışsınız. Hem yeni sayfa oluşturuyorsunuz hem de aktif sayfayı kopyalıyorsunuz. Aktif sayfanın doğrudan kopyasını alın.
Böylelikle format işiyle uğraşmamış olursunuz.
Aşağıdaki kodları kendinize göre uyarlayınız.

Sub Makro1()

    ActiveSheet.Copy After:=Sheets(Worksheets.Count)
  
End Sub

Teşekkür ederim hocam bu yol daha pratikmiş yeni yeni yazma işlerine girdim sizin gibi değerli hocalarımızdan öğrenicez bişeler işallah şimdilik kısa pratik yoluna girmeden kendi yazdığıma revize etmek istedim verdiğiniz kodu o şekilde koyayım aşağıya belki birine lazım olur

Private Sub CommandButton1_Click()
Dim aa As Worksheet
Set aa = Sheets("a")
aa.Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1
aa.Cells.Copy
Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("A1").Select
MsgBox "Sayfa eklendi ve kopyalama yapıldı."
End Sub