Sayfa adını isteğe göre belirleme

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar şu kodla

Sub KOPYA()
For a = 1 To 5
Sheets("Ana").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Next
End Sub

Sayfa adı 1 den 5'e kadar sayfa kopyalıyor, ama ben bunu Her makro çalıştığında bir sayfa ve Sayfanın ismini sormasını istiyorum, yani SAYFA ADI NEY OLSUN diye bana sorsun, bende AHMET yazınca AHMET İsminde yeni bir sayfa kopyalasın her defasında bir kopya sayfası yapsın teşekkürler.

 

[vardar07]

Böyle bir şeymi istemiştiniz.

Sub sayfa()
syf = InputBox("Sayfa Adını Yazın", " ")
Sheets("Ana").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = syf
End Sub

 

[Hacı Bayram ÖZKAN]

Üstadım eline sağlık güzel oldu Tam istediğim gibi kolay gelsin dua ile kal