- Katılım
- 1 Ağustos 2020
- Mesajlar
- 29
- Excel Vers. ve Dili
- 2019 ENG
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:
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 çalışıyor fakat biçimlendirmeyi aktarmıyor. Bu konuda yardımcı olur musunuz?
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
Kopyalama çalışıyor fakat biçimlendirmeyi aktarmıyor. Bu konuda yardımcı olur musunuz?