check to see if all dates are for the current year

[Oldjay]

I have a col of dates. I wish to check to be sure they are all for the
current year and if any incorrect ones are found then change them to the
current year

oldjay

 

[Tom Ogilvy]

Assuming you just want to change the year. Tailor to fit your needs.

Sub ABC()
Dim rng as Range, cell as Range
set rng = Range(cells(1,"C"),cells(rows.count,"C").End(xlup))
for each cell in rng
if year(cell.Value) <> year(date) then
cell.Value = dateSerial(year(date),month(cell),day(cell))
end if
Next
End Sub

 

[Guest]

Thanks Works Great

oldjay

Assuming you just want to change the year. Tailor to fit your needs.

Sub ABC()
Dim rng as Range, cell as Range
set rng = Range(cells(1,"C"),cells(rows.count,"C").End(xlup))
for each cell in rng
if year(cell.Value) <> year(date) then
cell.Value = dateSerial(year(date),month(cell),day(cell))
end if
Next
End Sub