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:
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.