[vb:1:3b14fb6080]Private Sub CommandButton1_Click()
[a1:d5].Copy
Worksheets.Add.Name = TextBox1.Value
[a1].PasteSpecial
Application.CutCopyMode = False
End Sub
[/vb:1:3b14fb6080]
Madem yeni sayfa ekliyorsunuz , tıpa tıp aynı olması için
aktif sayfayı kopyalasanız ... daha sonrada gerekmeyen kısımları silersiniz.
sorunuz bu değildi ama netice aynı. belki işinizi görür.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.