Çoklu Hücre Seçimi

[yavuz829]

Merhaba arkadaşlar eklediğim kod ile hücrelere girdiğim her veriyi silinmez hale getiriyorum. Hücredeki veriyi silmek için sayfa korumasını kaldırıp hücredeki veriyi siliyorum. Hücredeki veriyi silmek için tek bir hücreyi seçmeme izin veriyor. Çoklu hücreyi seçtiğim zaman hata veriyor. Silmek için çoklu hücre seçmem için kod üzerinde nasıl bir değiliklik yapmam gerekiyor. Bu konuda yardımlarınıza ihtiyacım var.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> 0 Then ActiveSheet.Protect "123"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveCell.Select
If Target.HasFormula Then
Target.Offset(, 1).Activate
End If

ActiveSheet.Protect "123"
If Target = 0 Then ActiveSheet.Unprotect "123"
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> 0 Then ActiveSheet.Protect "123"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.HasFormula Then
        Target.Offset(, 1).Activate
    End If
    ActiveSheet.Protect "123"
    If Target(1, 1) = 0 Then ActiveSheet.Unprotect "123"
End Sub

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık.