Seçili Satırda Bulunan Korumasız Hücre Verilerini Silmek

[mustafa1205]

Örnek dosyamda açıklama yaptım. Seçilen satırda korumasız hücreler var. Yapmak istediğim seçilen satırda bulunan sadece korumasız hücrelerin içerindeki verileri silmek istiyorum. Satır seçimi kullanıcı ile alakalı sürekli değişiklik göstermektedir.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz.

Sub Test()
    Dim Alan As Range
    Dim Bak As Range
    Dim Say As Long
    If Not TypeName(Selection) = "Range" Then Exit Sub
    Say = Cells(Selection.Row, Columns.Count).End(1).Column
    Set Alan = Range(Cells(Selection.Row, "A").Address, Cells(Selection.Row, Say).Address)
    For Each Bak In Alan
        If Not Bak.Locked Then Bak.ClearContents
    Next
End Sub

 

[mustafa1205]

Sayın Hocam çok teşekkür ederim. Kod gayet güzel çalıştı. İnternet erişiminin olmadığı bir yerdeydim. Geç cevap yazabildim. Kusura bakmayın. Lütfen özrümü kabul edin.