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.
Kopyalama çalışıyor fakat biçimlendirmeyi aktarmıyor. Bu konuda yardımcı olur musunuz?
Çözüm ;
Kod:
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
Çözüm ;
Kod:
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
Son düzenleme: