- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
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.
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.