- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Çalışma Kitabımda "Rapor" isimli sayfa var. Bu sayfa "Kopyalandığında veya Silindiğinde" engelensin ve mesaj uyarısı versin. Mesaj uyarısı : "Bu Sayfayı Silemesiniz ve Kopyalaya masınız?" Eğer engeleme imkansız ise sadece mesaj uyarısı versin.
Kullandığım Kodlar :
Sayfa Kopyalama(ekleme) :
Private Sub CommandButton2_Click()
On Error Resume Next
If Worksheets.Count > 251 Then Exit Sub
MsgBox "Artık Sayfa Ekleyemesiniz"
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
End Sub
Sayfa Silme :
Private Sub CommandButton3_Click()
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.Delete
Range("B3").Select
End Sub
Saygılarımı sunuyorum.
Kullandığım Kodlar :
Sayfa Kopyalama(ekleme) :
Private Sub CommandButton2_Click()
On Error Resume Next
If Worksheets.Count > 251 Then Exit Sub
MsgBox "Artık Sayfa Ekleyemesiniz"
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)
End Sub
Sayfa Silme :
Private Sub CommandButton3_Click()
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.Delete
Range("B3").Select
End Sub
Saygılarımı sunuyorum.