Want a macro for multiple columns on current macro for column

V

Valerie

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!
 
R

Rick Rothstein

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.
 
J

JLGWhiz

How about:

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

Valerie

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

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