ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Filling down formula to cover complete range (https://www.excelbanter.com/excel-programming/344592-filling-down-formula-cover-complete-range.html)

matpj[_11_]

Filling down formula to cover complete range
 

Hi,

this is something I will quite often have to do.
Where I havea range of data, and want to put, say, a VLOOKUP in
column and have the macro automatically copy the VLOOKUP down to ever
row that has data - how can I acheive this?

my example.
I need a macro to insert two columns C and D
the data spans from A to AB.

once they have been inserted, i need to put the following in C2 an
then copy it down.

=VLOOKUP(B2,[sheamcat.xls]Sheet1!C1:C4, 3, 0)

and a similar thing into D2

=VLOOKUP(B2,[sheamcat.xls]Sheet1!C1:C4, 4, 0)

any ideas

--
matp
-----------------------------------------------------------------------
matpj's Profile: http://www.excelforum.com/member.php...fo&userid=2107
View this thread: http://www.excelforum.com/showthread.php?threadid=48178


Bob Phillips[_6_]

Filling down formula to cover complete range
 
Sub FillDownFormulae()
Dim iLastRow As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("C2").Formula = "=VLOOKUP(B2,[sheamcat.xls]Sheet1!C1:C4, 3, 0)"
Range("C2").AutoFill Range("C2").Resize(iLastRow - 1)
Range("D2").Formula = "=VLOOKUP(B2,[sheamcat.xls]Sheet1!C1:C4, 4, 0)"
Range("D2").AutoFill Range("D2").Resize(iLastRow - 1)

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"matpj" wrote in
message ...

Hi,

this is something I will quite often have to do.
Where I havea range of data, and want to put, say, a VLOOKUP in a
column and have the macro automatically copy the VLOOKUP down to every
row that has data - how can I acheive this?

my example.
I need a macro to insert two columns C and D
the data spans from A to AB.

once they have been inserted, i need to put the following in C2 and
then copy it down.

=VLOOKUP(B2,[sheamcat.xls]Sheet1!C1:C4, 3, 0)

and a similar thing into D2

=VLOOKUP(B2,[sheamcat.xls]Sheet1!C1:C4, 4, 0)

any ideas?


--
matpj
------------------------------------------------------------------------
matpj's Profile:

http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=481783





All times are GMT +1. The time now is 10:06 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com