Sınırlı Sayıda Sayfa Ekleme

[Seyit Tiken]

Herkese Merhabalar,
Bir Çalışma Kitabında şu kodla sayfa ekliyorum (kopyalıyorum) :

Private Sub CommandButton2_Click()
On Error Resume Next
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
Range("B3").ClearContents
Range("B3:E27,G3:H27").ClearContents
Range("B3") = "Yeni Sayfanız Hazır"
End Sub
Belirtmek istediğim, belli bir sayıdan sonra sayfa eklemesin. Yani Çalışma Kitabında 250 nci sayfadan sonra sayfa eklemesin. Mesaj olarakta "Artık Sayfa Ekleyemesiniz" bir mesaj penceresinin çıkması. Teşekkürlerimi sunuyorum.

 

[danersin]

2. satıra

[vb:1:d3de806811]if Worksheets.Count>249 then exit sub[/vb:1:d3de806811]

yazıp denermisiniz.