makroyu varolan sayfaya yönlendirmek

[acarselcuk1]

Sub Makro1()
sayfa = InputBox("Yeni Sayfa'nın adını giriniz?")
Sheets("Sayfa1").Copy After:=Sheets(1)
ActiveSheet.Name = sayfa
End Sub


merhaba arkadaşlar;
yukarıda sayın mehmett bey in bana hazırladığı bir makro var. fakat bu makro sayfa1 i kopyalayıp kendi açtığı sayfaya bir isim istiyor. fakat benim bu makroyu kullanacağım çalışma sayfasında daha önceden ayırdığım boş sayfalar var. ben yeni açılan sayfaya isim vermek değilde hazırda olan sayfaların herhangi birini belirleyip oraya kaydetmesi için nasıl bir düzenleme yapılabilir.

 

[acarselcuk1]

arkadaşlar bu benim için çok önemli bir çalışma. lütfen yardımlarınızı esirgemeyiniz. şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili küçük bir örnek dosya eklermisiniz.

 

[acarselcuk1]

örnek dosya

bilgi ekteki dosyadadır.

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanız üzerinde gerekli eklemeleri yaptım. Dosyayı açtıktan sonra F12 tuşuna basın ekrana bir form gelecek hangi sayfaya kopyalama yapacaksanız çift tıklayın ŞABLON isimli sayfa seçtiğiniz sayfa kopyalanacaktır.

 

[Yalova]

Modül içine

Sub kopyala()
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
Cells.Copy
[A1].Select
Sayfam = InputBox("Sayfa Adı yazınız")
Sheets(Sayfam).Select
ActiveSheet.Paste
[A1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub



Sheets("Sayfa1").Select --------> satırında kopyalanacak sayfa adını kendinize göre değiştirin