Herkese hayırlı bayramlar. Arkadaşlar ekte gördüğünüz tablonun aynısını bir buton ile yeni çalışma sayfasına aktarmak istiyorum. Butonu ekledim kodlar şu şekilde. Kod:Panoya kopyala Sub buton Dim sh As Worksheet Set sh = ActiveSheet Worksheets. Add after:=Sheets ActiveSheet. Name = "Sayfa" & Sheets. Count sh. Cells. Copy Range("A1"). PasteSpecial xlPasteValuesAndNumberFormats Application. CutCopyMode = False Range("A1"). Select MsgBox "Sayfa eklendi ve kopyalama yapıldı." End Sub Kopyalama çalışıyor fakat biçimlendirmeyi aktarmıyor. Bu konuda yardımcı olur musunuz? Çözüm ; Kod:Panoya kopyala Sub buton Dim sh As Worksheet Set sh = ActiveSheet Worksheets. Add after:=Sheets ActiveSheet. Name = "Sayfa" & Sheets. Count sh. Cells. Copy Range("A1"). PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("A1"). PasteSpecial Paste:=xlPasteFormats Range("A1"). PasteSpecial Paste:=xlPasteColumnWidths Application. CutCopyMode = False Range("A1"). Select MsgBox "Sayfa eklendi ve kopyalama yapıldı." End Sub Dosya Ekleri 1596296424527. png 34,3 KB · Görüntüleme: 42