aynı sayfayı kopyalama

[u0cans]

merhaba
excel kitabındaki varolan sayfayı istediğim kadar aynı kitap içinde 30 40 tane sayfa haline getirmek istiyorum?
excel de yapılamıyacağını düşündüğüm için burdan iletiyorum
mümkünmüdür?

 

[İhsan Tank]

merhaba
excel kitabındaki varolan sayfayı istediğim kadar aynı kitap içinde 30 40 tane sayfa haline getirmek istiyorum?
excel de yapılamıyacağını düşündüğüm için burdan iletiyorum
mümkünmüdür?

merhaba
boş bir module atayarak deneyiniz
bir inputbox açılacak oraya kopya sayısı girin

Option Explicit
Sub kopyala()
Dim ts, kaplan, trabzonspor
kaplan = InputBox("Kopya Sayısı Giriş", "Kopya Sayısı")
If kaplan = "" Then Exit Sub
trabzonspor = MsgBox(kaplan & " Tane Sayfa Kopyalıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
For ts = 1 To kaplan
Sheets("1.HİDAYET").Copy after:=Sheets(1)
Next
MsgBox kaplan & " Tane Sayfa Kopyaladım", vbInformation, "Bitiş"
End Sub

 

[u0cans]

süper
çok teşekkür ederim,
kolay gelsin

 

[İhsan Tank]

süper
çok teşekkür ederim,
kolay gelsin

rica ederim
:yazici: