Hi friends,
If a date in column ‘AC’ is enter then I want to clear the entry in column ‘AO’ in that particular row only.
For ex. If I enter a date in column ‘AC’ cell address ‘AC6’ then I want to clear the data in column ‘AO’ cell address ‘AO6’ only.
I don’t want any action if the row is <= 5.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
If Not Intersect(Target, Range("AO:AO")) Is Nothing Then
With Range("AN6:AN1000")
.FormulaR1C1 = _
"=IF(RC[-39]="""","""",IF(RC[1]<>"""",IF(RC[-11]="""",YEAR(EDATE(R3C1,-5))&""-""&YEAR(EDATE(R3C1,7)),""""),""""))"
.Value = .Value
End With
End If
With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Any help will be highly appreciated.
Thanking you,
Bookmarks