Want a macro for multiple columns on current macro for column
 

I am currently using the following macro in many of my worksheets and love
the time it saves. It's for one column. My question is, can this be
modified to do 2 or more columns?

Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & endRow)

I have formulas in A2 and B2 and want to autofill at the same time instead
of separately. I tried modifying (Range("A2:B2"),etc.) but can't get it to
work.

Any help would be greatly appreciated!

Want a macro for multiple columns on current macro for column
 

The best I can see, the code you posted won't work for your original set up
because it is searching for the endRow in the same column you want to
AutoFill. Assuming that the 1 in the endRow calculation is actually some
other column (I'll use 3 for this example), then you can do this to
accomplish what you want...

Dim endRow As Long
endRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("A2:B2").AutoFill Destination:=Range("A2:B" & endRow)

Notice column designation after the colon has been changed to B in BOTH
Range function calls.

--
Rick (MVP - Excel)


"Valerie" wrote in message
...
I am currently using the following macro in many of my worksheets and love
the time it saves. It's for one column. My question is, can this be
modified to do 2 or more columns?

Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & endRow)

I have formulas in A2 and B2 and want to autofill at the same time instead
of separately. I tried modifying (Range("A2:B2"),etc.) but can't get it to
work.

Any help would be greatly appreciated!

Want a macro for multiple columns on current macro for column
 

How about:

Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:B" & endRow)



"Valerie" wrote:

I am currently using the following macro in many of my worksheets and love
the time it saves. It's for one column. My question is, can this be
modified to do 2 or more columns?

Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & endRow)

I have formulas in A2 and B2 and want to autofill at the same time instead
of separately. I tried modifying (Range("A2:B2"),etc.) but can't get it to
work.

Any help would be greatly appreciated!

Want a macro for multiple columns on current macro for column
 

It only works one column at a time.

"Valerie" wrote:

I am currently using the following macro in many of my worksheets and love
the time it saves. It's for one column. My question is, can this be
modified to do 2 or more columns?

Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & endRow)

I have formulas in A2 and B2 and want to autofill at the same time instead
of separately. I tried modifying (Range("A2:B2"),etc.) but can't get it to
work.

Any help would be greatly appreciated!

Want a macro for multiple columns on current macro for column
 

Perfect!! Works just like I want it to! FYI - I left the endRow as Col 1
and it works!

"Rick Rothstein" wrote:

The best I can see, the code you posted won't work for your original set up
because it is searching for the endRow in the same column you want to
AutoFill. Assuming that the 1 in the endRow calculation is actually some
other column (I'll use 3 for this example), then you can do this to
accomplish what you want...

Dim endRow As Long
endRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("A2:B2").AutoFill Destination:=Range("A2:B" & endRow)

Notice column designation after the colon has been changed to B in BOTH
Range function calls.

--
Rick (MVP - Excel)


"Valerie" wrote in message
...
I am currently using the following macro in many of my worksheets and love
the time it saves. It's for one column. My question is, can this be
modified to do 2 or more columns?

Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & endRow)

I have formulas in A2 and B2 and want to autofill at the same time instead
of separately. I tried modifying (Range("A2:B2"),etc.) but can't get it to
work.

Any help would be greatly appreciated!