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"))

Hi,

Copy instead of autofill

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

Mike

"Bud" wrote:

> 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"))
>
>
>

Thank You very much! This was most helpful!

"Mike H" wrote:

> Hi,
>
> Copy instead of autofill
>
> Cells(2, "b").Copy Destination:=Range(Cells(2, "b"), Cells(br, "b"))
>
> Mike
>
> "Bud" wrote:
>
> > 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"))
> >
> >
> >

Your welcome and thanks for the feedback

"Bud" wrote:

> Thank You very much! This was most helpful!
>
> "Mike H" wrote:
>
> > Hi,
> >
> > Copy instead of autofill
> >
> > Cells(2, "b").Copy Destination:=Range(Cells(2, "b"), Cells(br, "b"))
> >
> > Mike
> >
> > "Bud" wrote:
> >
> > > 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"))
> > >
> > >
> > >