Protect Olmayan Hucreleri Topluca Sil

[baydeniro]

Merhaba arkadaşlar. Protect altında olmayan hücrelerin tek bir tuşla silinmesi mümkün mü ?

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub koruma()
Dim hucre As Range
For Each hucre In Range("D3:G10")
    If hucre.Locked = False Then
        hucre.ClearContents
    End If
Next
End Sub

 

[baydeniro]

Sayın orion2 yardımınız için çok teşekkürler. Makro D3:G10 arası için iyi çalışıyor. Eğer Protect olmayan hücreler dosyaya dağınık olursa ne yapabiliriz !!

 

[Orion1]

Sayın orion2 yardımınız için çok teşekkürler. Makro D3:G10 arası için iyi çalışıyor. Eğer Protect olmayan hücreler dosyaya dağınık olursa ne yapabiliriz !!

D3:G10 aralığını genişletebilirsiniz.
Ancak unutmayınız ki aralık ne kadar büyük olursa kodun çalışma süreside o oranda uzun olur.Unutmayınız!Bu tür durumlarda mümkün olduğu kadar aralığı kısa tutmakla makronun çalışma süresini kısaltabilirsiniz.

 

[baydeniro]

Çok Teşekkürler

Sayın orion2 çok çok teşekkür ederim. Elleriniz dert görmesin. Sağlıcakla kalın.

 

[Orion1]

Sayın orion2 çok çok teşekkür ederim. Elleriniz dert görmesin. Sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.