şartli silmek

[Barons]

merhaba
ekteki dosyada bir hücreye x yazdığımda istediğim hücrelerdeki verinin silinmesini formul ve VBA ile her ikisindede yapmak istiyorum.

Yardımcı olacak arkadaşlara çok teşekkürler

 

[Ömer BARAN]

Merhaba.

Yanlış anlamadıysam aşağıdaki kod işinizi görecektir.
Alt taraftan ilgili sayfa adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ taraftaki boş alana kod'u yapıştırın.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountIf(Range("B2:B8"), "x") = 0 Then Exit Sub
If Target.Column <> 2 Or Target.Row > 8 Or Target.Row < 2 Then Exit Sub
    For satır = 2 To 8
        If Cells(satır, 2) = "x" Or Cells(satır, 2) = "" Then GoTo 10
        Cells(satır, 2).ClearContents
10: Next
End Sub[/FONT]

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B2:B8]) Is Nothing Or Selection.Count > 1 Then Exit Sub
    
    Dim Hcr As Range
    
    Application.EnableEvents = False
    
    If Target.Value = "x" Or Target.Value = "X" Then
        For Each Hcr In Range("B2:B8")
            If Not Hcr.Address = Target.Address Then Hcr.ClearContents
        Next Hcr
    End If
    
    Application.EnableEvents = True
    
End Sub

 

[Barons]

çok teşekkürler...Necdet Hocamın kodu işimi gördü.
Elinize sağlık

 

[Necdet]

Merhaba,

Kodları yeniledim, ufak bir hata vardı, yeniden alınız.

 

[Barons]

teşekkürler hocam