carlrubber
New Member
- Joined
- Oct 15, 2016
- Messages
- 48
Code:
For j = 4 To lastrow1
If Sheet3.Cells(j + 1, "H") <> "" Then
If Sheet3.Cells(j + 1, "I") = "" Then
Range(j + 1, "I").Formula = "=DATE(YEAR([I]&j+1),MONTH([I]&j+1)+18,DAY([I]&j+1))"
End If
End If
would anyone help how to make the code works?
thz