Change cell to clear content of other cells - vba

Question

i want to clear the cells in column C D E if date change in column B
but only cells in same row where date is changed (Date =Sheet1!c2) so date is from sheet 1 but from different cells and different rows
Sample xls file
This is what i did but its not working until manually change date in Column B sheet 2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b1:b100")) Is Nothing Then
Cells(Target.Row, 3) = ""
Cells(Target.Row, 4) = ""
Cells(Target.Row, 5) = ""
End If
End Sub

Answer 1

Here is an extremely simple, limited, example. We are only monitoring cell B5 which contains a formula. The formula retrieves a date from another worksheet:
In the worksheet code area for this sheet we install the following Event macro:
Private Sub Worksheet_Calculate()
Dim Monitor As Range, Helper As Range
Dim rw As Long
Set Monitor = Range("B5")
Set Helper = Range("H5")
rw = Monitor.Row
Application.EnableEvents = False
If Helper.Value = "" Then
Helper.Value = Monitor.Value
Else
If Helper.Value <> Monitor.Value Then
Helper.Value = Monitor.Value
Range("C" & rw & ":E" & rw).ClearContents
End If
End If
Application.EnableEvents = True
End Sub
The code uses cell H5 as a "helper" The first time the code runs, the helper cell is filled. Each time after that, the code compares the "helper" against H5. If they become different, cells C thru E in that row are cleared.
Because it is worksheet code, it is very easy to install and automatic to use:
right-click the tab name near the bottom of the Excel window
select View Code - this brings up a VBE window
paste the stuff in and close the VBE window
If you have any concerns, first try it on a trial worksheet.
If you save the workbook, the macro will be saved with it.
If you are using a version of Excel later then 2003, you must save
the file as .xlsm rather than .xlsx
To remove the macro:
bring up the VBE windows as above
clear the code out
close the VBE window
To learn more about macros in general, see:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
and
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
To learn more about Event Macros (worksheet code), see:
http://www.mvps.org/dmcritchie/excel/event.htm
Macros must be enabled for this to work!
EDIT#1:
Completely discard the original macro and install this one instead:
Private Sub Worksheet_Calculate()
Dim Monitor As Range, Helper As Range
Dim rw As Long, r As Range
Set Monitor = Range("B2:B100")
Set Helper = Range("H2:H100")
Application.EnableEvents = False
For Each r In Helper
If r.Value = "" Then
r.Value = r.Offset(0, -6).Value
End If
Next r
For Each r In Helper
If r.Value <> r.Offset(0, -6).Value Then
r.Value = r.Offset(0, -6).Value
rw = r.Row
Range("C" & rw & ":E" & rw).ClearContents
End If
Next r
Application.EnableEvents = True
End Sub
As you see, we must loop over each item in the ranges.

Answer 2

Try this using the Worksheet_Change Event (see https://msdn.microsoft.com/EN-US/library/office/dn301178.aspx)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 2 Then
Rem Disable Events. So it's not triggered by changes to columns D, E & F
Application.EnableEvents = 0
Rem Clear Columns D, E & F same row
.Cells.Offset(, 2).ClearContents
.Cells.Offset(, 3).ClearContents
.Cells.Offset(, 4).ClearContents
Rem Enable Events after changes
Application.EnableEvents = 1
End If: End With
End Sub