Soru Sayfa Aç ve Aktar

[okan32]

S.A Arkadaşlar Sayın Evren Beyin bu koduyla 1 sayfa ekleyip kopyalayıp açtığı yeni sayfaya yapıştırıyor.
Benim istediğim ise istediğim kadar sayfa açtıktan sonra o sayfalara veriyi kopyalayıp yapıştıracak. Yardımlarınz için şimdiden teşekkür ederim.

Sub sayfa_ekle_kopyala59()
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'SADECE VERİLERİ KOPYALAR
Application.CutCopyMode = False
Range("A1").Select
MsgBox "Sayfa eklendi ve kopyalama yapıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[işsiz123]

S.A Arkadaşlar Sayın Evren Beyin bu koduyla 1 sayfa ekleyip kopyalayıp açtığı yeni sayfaya yapıştırıyor.
Benim istediğim ise istediğim kadar sayfa açtıktan sonra o sayfalara veriyi kopyalayıp yapıştıracak. Yardımlarınz için şimdiden teşekkür ederim.

Sub sayfa_ekle_kopyala59()
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'SADECE VERİLERİ KOPYALAR
Application.CutCopyMode = False
Range("A1").Select
MsgBox "Sayfa eklendi ve kopyalama yapıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Aleyküm Selam Böyle deneyiniz.

Sub sayfa_ekle_kopyala59()
Dim sh As Worksheet
Set sh = ActiveSheet
Dim x As Integer
sayı = InputBox("Kaç Sayfa Açılsın")

  For x = 1 To sayı
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sayfa" & Sheets.Count
sh.Cells.Copy
Range("A1").PasteSpecial 'xlPasteValuesAndNumberFormats'SADECE VERİLERİ KOPYALAR
Application.CutCopyMode = False
Range("A1").Select
Next x
MsgBox "Sayfa eklendi ve kopyalama yapıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[okan32]

Çok teşekkür ederim Sayın işssiz123

 

[işsiz123]

Rica ederim . İyi çalışmalar