07/02/2017, 22:19
ozkovlu29
Merhabalar;
Buton yardımı ile yeni sayfa eklemek istiyorum. Aşağıdaki kod hata veriyor sebebi ne olabilir.
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