How to add days to a column of date and execute result on the next column

[fahadun]

Hello,

I have two columns column a and column b.
column a has alot of dates in it also some empty cells
What i want to do is add 30 days to those dates and publish the result on column b.
and when the cells are blank then it will be blank.
This is my code, but showing an error, type mismatch. how to solve it with a better code?

Sub DateExample()
Application.ScreenUpdating = False
Range("A4:A100000").Copy Destination:=Range("B4:B99999")
Dim rng As Range
    For Each rng In Range("B4:B99999").Cells
      rng.Value = rng.Value + 30
    Next rng
    
Application.ScreenUpdating = True
End Sub

 

[Fluff]

How about

Sub Plus30()
   With Range("A4", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants)
      .Offset(, 1).FormulaR1C1 = "=rc[-1]+30"
      .Offset(, 1).Value = .Offset(, 1).Value
   End With
End Sub

 

[fahadun]

Thank you boss. It worked.

 

[Fluff]

Glad to help & thanks for the feedback

 

[fahadun]

what if i want to print that result on column x. how to change it?

 

[Fluff]

Like this

Sub Plus30()
   With Range("A4", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants)
      .Offset(, 23).FormulaR1C1 = "=rc1+30"
      .Offset(, 23).Value = .Offset(, 23).Value
   End With
End Sub