Herkese hayırlı bayramlar. Arkadaşlar ekte gorduğunuz tablonun aynısını bir buton ile yeni calış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(Sheets.Count) 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 calışıyor fakat bicimlendirmeyi aktarmıyor. Bu konuda yardımcı olur musunuz?







Cozum ;

Kod:Panoya kopyala
Sub buton() Dim sh As Worksheet Set sh = ActiveSheet Worksheets.Add after:=Sheets(Sheets.Count) 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 · Goruntuleme: 39