Help with Code

[Guest]

Please forgive this elementary question, but I am somewhat new to VBA.

I need to copy the formula in cell B2 to the other cells in column B
starting with cell B3 through to the last row in the worksheet containing
data. The current last row is 900, but it can change over time. (I'm hoping
there is a VBA property that can return the last data-containing row so that
I don't have to doing any looping.)

Also, I need to insert code for the aforementioned operation into an
existing subroutine.

Any help would be greatly appreciated. Thanks.
Bob

 

[Bob Phillips]

Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2").AutoFill Range("B2").Resize(iLastRow - 1)



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Bob,
Thanks! I appreciate the help.
Bob

Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2").AutoFill Range("B2").Resize(iLastRow - 1)



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Bob,

Sorry to bother you, but after I inserted your code into my subroutine, I
received an error message on the 3rd line of your code. I have no idea why
it failed.

Just to recap, I have a column label in cell B1 and a formula in cell B2. I
need to copy cell B2 to cells B3 through Bxxx where "xxx" is the last row
containing data based on the data contained in column A.

Any help would be greatly appreciated.

Thanks again,
Bob

 

[Dave Peterson]

Try changing the way you find the ilastrow to use column A:

iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
becomes:
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row

 

[Guest]

Dave,
Thats did the trick! Thanks!!!
Bob

Try changing the way you find the ilastrow to use column A:

iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
becomes:
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row