sayfa ekleme

[ahmett46]

Slm Formda aradım ancak istediğim makroyu bulamadım.
Private Sub CommandButton19_Click()
Dim sayfa As Worksheet
ad = InputBox("Sayfa adını giriniz")
Set sayfa = Worksheets.Add
sayfa.Name = [ad]
Sheets("S.LİST").Select
End Sub

Böyle bir kodla sayfa ekliyor ancak ben istediğim bir sayfanın kopyasını mesela sayfa1 in kopyasını kendim isim vererek eklemek istiyorum yardımlarınızı bekliyorum teşekkürler

 

[Orion1]

Kırmızı kodları ekleyiniz.

[B][COLOR="Red"]cells.copy[/COLOR][/B]
ad = InputBox("Sayfa adını giriniz")
Set sayfa = Worksheets.Add
sayfa.Name = [ad]
[B][COLOR="Red"]activesheet.range("A1").pastespecial
application.cutcopymode = false[/COLOR][/B]

 

[ahmett46]

Hocam teşekkür ediyorum sayfa1 i kopyalıyor burdaki kopyalayacağımız sayfayı belirten terim hangisi sayfa 2 veya 3 ü kopyalayacaksak neyi değiştireceğiz

 

[Orion1]

Hocam teşekkür ediyorum sayfa1 i kopyalıyor burdaki kopyalayacağımız sayfayı belirten terim hangisi sayfa 2 veya 3 ü kopyalayacaksak neyi değiştireceğiz

Buyurun.

[B][COLOR="Red"]sheets("Sayfa2").cells.copy[/COLOR][/B]

 

[ahmett46]

Eyvallah hocam teşekkürler