NOW() formula using VBA

[sn152]

Hi All,

I am trying to enter the Now() formula with VBA code. In the attached workbook, in column A I have a list of dates. In column B I want to enter the formula Now()-the date in column A.
The problem is the range gets changed everyday and I am not sure how to enter formula using VBA code only for the used range.
Please helpe me.

Thanks in advance!

 

[Deepak]

Check this.

Sub now_date()
[b1] = "Age"
Application.Index(Range("A2").CurrentRegion, , 2) = Now
[b1] = "Age"
End Sub

 

[sn152]

Hi Deepak,
Thanks for your reply. This code is entering today's date in the column B. But what i want in column B is to fill formula =NOW()-A2 and in the next line =NOW()-A3 and so on.

 

[Deepak]

Hi Deepak,
Thanks for your reply. This code is entering today's date in the column B. But what i want in column B is to fill formula =NOW()-A2 and in the next line =NOW()-A3 and so on.

Chk this!!

Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row) = "=Now()-a2"

 

[sn152]

Cool this is working. Thanks Deepak.