Skip to main content

AccessTr.neT


Yeni Sekme Ekleme

Yeni Sekme Ekleme

#1
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Yeni Sekme Ekleme - Yazar: ozkovlu29 - 07/02/2017, 22:19
Cvp: Yeni Sekme Ekleme - Yazar: atoz112 - 07/02/2017, 23:58
Cvp: Yeni Sekme Ekleme - Yazar: atoz112 - 01/04/2017, 14:36
Cvp: Yeni Sekme Ekleme - Yazar: atoz112 - 22/04/2017, 20:06