Yenİ Sayfa AÇma

[aliballi]

arkadaşlar uygun başlık açtım mı bilmiyorum ama;

excelde bir butona tıkladığımda "sayfa numarasını girin" mesajı vererek daha önceden hazırladığım sayfa1 şablonunun aynısını kopyalayarak vereceğim sayfa numarasıyla yeni bir sayfa açmasını istiyorum..

yardımlarınız için şimdiden teşekkürler..

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

 

[aliballi]

çok teşekkür ederim.. ilgine ve emeğine..

 

[aliballi]

arkadaşlar,

kodları girdim her şey yolunda fakat sayfa numarasını istediği mesajda eğer sayfa numarası yazmazsam hata veriyor.. ve farklı bir sayfa ismiyle yeni sayfa açıyor.. acaba hata vermemesi için nasıl birşey yapmalıyım..

 

[mehmett]

Kodları aşağıdaki şekilde düzenleyin;

Sub Makro1()
Application.DisplayAlerts = False
On Error GoTo 10
gir = InputBox("yeni sayfa numarası giriniz")
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy After:=Sheets(3)
Sheets("Sayfa1 (2)").Select
Sheets("Sayfa1 (2)").Name = gir
Exit Sub
10 ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Sayfa1").Select
End Sub

 

[aliballi]

mehmet bey
çok teşekkür ederim..