Sub KOŞULA_BAĞLI_HÜCREYİ_SİL()
If [A1] < 0 Then [B1].ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If [A1] < 0 Then [B1].ClearContents
End Sub