- Katılım
- 12 Ocak 2007
- Mesajlar
- 465
- Excel Vers. ve Dili
- 2003
Sn dostlar sanırım sizler için kolay olmalı ama ben aramama rağmen beceremedim.yazmış olduğum kodu ekledim.
Private Sub SİL_Click()
MsgBox "SAYFADAKİ VERİLER SİLİNECEK !!!!"
........................
ActiveSheet.Unprotect Password:="0"
Range("A3:M2000").Select
Selection.ClearContents
Range("A3").Select
ActiveSheet.Protect Password:="0
End Sub
mesaj kutusu onayından sonra fonksiyona geçmesi için sanırım bir bağlantı eksik ama ben yapamadım.ve işlem sonrasıda yine msg box ile kayıllar silindi yazmak istiyorum yardımcı olabilirmisiniz saygılarımla.
Private Sub SİL_Click()
MsgBox "SAYFADAKİ VERİLER SİLİNECEK !!!!"
........................
ActiveSheet.Unprotect Password:="0"
Range("A3:M2000").Select
Selection.ClearContents
Range("A3").Select
ActiveSheet.Protect Password:="0
End Sub
mesaj kutusu onayından sonra fonksiyona geçmesi için sanırım bir bağlantı eksik ama ben yapamadım.ve işlem sonrasıda yine msg box ile kayıllar silindi yazmak istiyorum yardımcı olabilirmisiniz saygılarımla.