Özel YapiŞtrma

[spider007]

ArkadaŞlar Şİmdİ Bİr Sayfaya Formulu OluŞturuyorum . Ben Bu FormullÜ Sayfadan 50 Adet İstİyorum. İkİde Bİr Kopyala YapiŞtir Yapmak İstemİyorum Bunun Kolay Bİr Yolu Var Mi ?

 

[abdi]

Sub dene()
Dim a As Integer
On Error Resume Next
a = InputBox("bu sayfadan kaç adet istiyorsunuz")
If IsNumeric(a) = True And IsNull(a) = False Then
k = 1
For i = 1 To a
ActiveSheet.Copy before:=Sheets(2)
ActiveSheet.Name = "Kopya Sayfa " & k
k = k + 1
Next
End If
Call MsgBox("işlem bitti", vbCritical)
End Sub