If Date add 5 days

[seacrest]

I need a macro that will run down column B and add 5 days to an existing date
If empty do nothing

 

[jeffreybrown]

Try...

Sub AddtoDate()
    Dim LR As Long
    Dim i As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If Range("B" & i) <> "" Then
            Range("B" & i).Value = Range("B" & i) + 5
        End If
    Next i
End Sub

 

[b.downey]

This foolow code should make the changes requested to worksheets(1)

Sub add5days()
    Dim RowNo As Long
    For RowNo = 2 To ThisWorkbook.Worksheets(1).UsedRange.Rows.Count
        If IsEmpty(Cells(RowNo, 2)) Then
            'do nothing
        Else
            Cells(RowNo, 2) = Cells(RowNo, 2) + 5
        End If
    Next RowNo
End Sub

 

[seacrest]

Thanks Jeffrey,

Are you able to add a offset?

If offset(,1)= "Overdue" Then

 

[seacrest]

Thanks Jeffrey,

Are you able to add a offset?

If offset(,1)= "Overdue" Then

 

[Michael M]

I think Jeffery is offline ATM
Is the add offset, instead of the code Jeffrey has given you, or an extra to the code ?

 If Range("B" & i) <> "" AND range("B" & i).Offset(,1) ="Overdue" Then

or

 If Range("B" & i) .offset(,1) = "Overdue" Then