Avatar of Euro5
Euro5
Flag for United States of America asked on

VBA copy down today's date

Using this VBA code, I want to add today's date to column U along with the fill in columns V & W.
Can anyone help? Thank you! :)

Sub CopyFormulaDownfar()
Dim LastPopulatedRow As Long

Worksheets("FAR All").Activate
'Find last populated row
LastPopulatedRow = Range("A" & Rows.Count).End(xlUp).Row

'Select the rows where formula is to be populated

Range("V2: " & "V" & LastPopulatedRow).FillDown
Range("W2: " & "W" & LastPopulatedRow).FillDown

Open in new window

VBAMicrosoft ExcelMicrosoft Office

Avatar of undefined
Last Comment
Bembi

8/22/2022 - Mon
Andrew Porter

I believe =Today() in the cell will get this done for you.
ASKER CERTIFIED SOLUTION
Bembi

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
Euro5

ASKER
Bembi & Andrew -
Now()
Today()
Date

All show time - can I just get the short date? 5/17/2021
Bembi

Range("...").value = Format$(now(), "DD-MM-YYYY") or similar.
There are also built in variables to use the computer format, I guess "short date"

The other option is just to format the cell...
Range("...").NumberFormat = "DD-MM-YYYY"

The first option writes only the date into the cell, but no time.
The second option would format the ceell to show the date, even the cell contains also the time. 
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes