DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub KOŞULA_BAĞLI_HÜCREYİ_SİL()
If [A1] < 0 Then [B1].ClearContents
End Sub
Geç kalmışım.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