Yeni Sekme Ekleme

[ozkovlu]

Merhabalar;
Buton yardımı ile yeni sayfa eklemek istiyorum. Aşağıdaki kod hata veriyor sebebi ne olabilir.

Sub YeniSayfaAcma()
'Sekme kopyalama

ActiveSheet.Copy After:=Sheets(5)
SayfaAdi = InputBox("Lütfen sayfa adınızı giriniz... ", "Sayfa İsmi")
ActiveSheet.Name = InputBox("Lütfen sayfa adınızı giriniz... ", "Sayfa İsmi")

End Sub

 

[PLİNT]

Merhaba
Şöyle deneyiniz;

ActiveSheet.Copy After:=Sheets(5)  [COLOR="Blue"]'veya  son sayfa yanına ( sheets(Sheets.count) )[/COLOR]
SayfaAdi = InputBox("Lütfen sayfa adınızı giriniz... ", "Sayfa İsmi")
If SayfaAdi <> "" Then _
ActiveSheet.Name = SayfaAdi