I have information in column A and I wish to write a macro that:

1. Populates cell B2 with a VLOOKUP formula
2. The macro is then to copy the above formula down to the last active cell
in column A

I have tried so many things that I am in a bid of a muddle. Any suggestions
will be very welcome.

Thanks

Just modify the formula to equal your lookup formula

Sub Macro1()

Dim LastRow As Long
LastRow = Cells(Rows.Count, "a").End(xlUp).Row
Range("a1").Value = "=b1+1"
Range("a1:a1").AutoFill _
Destination:=Range("A1:A" & LastRow), Type:=xlFillDefault
End Sub


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=548381

Thank you so much - I just changed the cell references around a wee bit and
it works perfectly.

Your help is much appreciated!!

"mudraker" wrote:


Just modify the formula to equal your lookup formula

Sub Macro1()

Dim LastRow As Long
LastRow = Cells(Rows.Count, "a").End(xlUp).Row
Range("a1").Value = "=b1+1"
Range("a1:a1").AutoFill _
Destination:=Range("A1:A" & LastRow), Type:=xlFillDefault
End Sub


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=548381

dim LastRow as long
with worksheets("sheet9999")
lastrow = .cells(.rows.count,"A").end(xlup).row
.range("B2:b" & lastrow).formula _
= "=vlookup(a2,'sheet 333'!a:e,5,false)"
end with

will fill that range with a vlookup formula.

Sal wrote:

I have information in column A and I wish to write a macro that:

1. Populates cell B2 with a VLOOKUP formula
2. The macro is then to copy the above formula down to the last active cell
in column A

I have tried so many things that I am in a bid of a muddle. Any suggestions
will be very welcome.

Thanks

--

Dave Peterson