Autofill until blank cell is reached

[uberathlete]

Hi all! I've got Sheet 1 (see attached). Let's say I've got a formula
(assume a VLOOKUP formula) in B2 and I want to autofill down to the
other cells in the B column until a blank column is reached in the A
column. Does anyone know how I can make a macro for this? Any help
would be greatly appreciated. Thanks!


+-------------------------------------------------------------------+
|Filename: Sheet1.JPG |
|Download: http://www.excelforum.com/attachment.php?postid=3994 |
+-------------------------------------------------------------------+

 

[Bob Phillips]

Range("B2").Autofill Range("B2").Resize(Range("B2").End(xlDown).Row-1)

--

HTH

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


"uberathlete" <[email protected]>
wrote in message
news:[email protected]...

 

[uberathlete]

^^ Thanks! I tried it but it doesn't seem to work :

 

[Bob Phillips]

It works for me. What do you get?

--

HTH

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


"uberathlete" <[email protected]>
wrote in message
news:[email protected]...

 

[uberathlete]

Whoops, my bad. I tried it again and it works. Only problem is that the
blank cells in the B column which have no "match" or value in the A
column all fill up with 0.

 

[Dave Peterson]

Maybe using column A would work better:

Range("B2").Autofill Range("B2").Resize(Range("A2").End(xlDown).Row-1)

 

[uberathlete]

Wicked! Thanks Bob!

 

[Bob Phillips]

Change your formula to test fro 0 and output "".

--

HTH

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


"uberathlete" <[email protected]>
wrote in message
news:[email protected]...