Autofill destination incrementing date by 1...don't want it to

B

Bud

Hello

How do I change my autofill destination formula so that it doesn't increment
the value by one.

I have the following code. In column B I have placed todays date in row2
column B.

I want that same exact date in all the rows through BR. BR is the amount of
rows I want filled.

I am using Autofill destination and it is incrementing the date by one each
time.

br = Cells(Rows.Count, "b").End(xlUp).Row
strDate = Format(Now, "ddmmmyyyy")

Cells(2, "a") = "=SWIMInput!A2" 'Employee
Cells(2, "b") = strDate 'Todays date
Cells(2, "g") = "=SWIMInput!B2" 'Task Name
Cells(2, "f") = "=SWIMInput!C2" 'WBSE
Cells(2, "i") = "=SWIMInput!D2" 'Project Name
Cells(2, "a").AutoFill Destination:=Range(Cells(2, "a"), Cells(br, "a"))
Cells(2, "b").AutoFill Destination:=Range(Cells(2, "b"), Cells(br, "b"))
Cells(2, "f").AutoFill Destination:=Range(Cells(2, "f"), Cells(br, "f"))
Cells(2, "g").AutoFill Destination:=Range(Cells(2, "g"), Cells(br, "g"))
Cells(2, "i").AutoFill Destination:=Range(Cells(2, "i"), Cells(br, "i"))
 
M

Mike H

Hi,

Copy instead of autofill

Cells(2, "b").Copy Destination:=Range(Cells(2, "b"), Cells(br, "b"))

Mike
 
B

Bud

Thank You very much! This was most helpful!

Mike H said:
Hi,

Copy instead of autofill

Cells(2, "b").Copy Destination:=Range(Cells(2, "b"), Cells(br, "b"))

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top