sayfa ekleme

[ahsen]

slm
userform üzerindeki bir buton, sayfa1 i kopyalayıp, sayfaların ensonuna eklesin.
fakat bana sayfanın ismini sorsun. girdiğim isim var ise uyarı mesajı versin.
böyle bir kodu hazırlayabilmeniz mümkünmü acaba. hepinize teşekkürler. :hey:

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Yalmız bu kodda ismi hatalı sadece bir kez yazabilirsiniz. Sonrasında kod hata verecektir. Eğer ben bir kaç kez ismi yanlış girebilirim derseniz farklı bir çözüm önermek gerekecektir.

[vb:1:a51c46060f]Sub sayfaekle()
On Error GoTo 10
Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
20 ad = InputBox("SAYFA ADINI YAZINIZ")
Sheets(Sheets.Count).Name = ad
Exit Sub
10 MsgBox ("BU İSİMDE SAYFA MEVCUTTUR")
GoTo 20
End Sub[/vb:1:a51c46060f]