Bring down an equation to the last value of another column

Re: Bring down an equation to the last value of another column

Hi

Try the following in a regular module.

Take care

Smallman

Sub Test()
Dim lw As Long
lw = Range("A" & Rows.Count).End(xlUp).Row
Range("$B$1:$B$" & lw).FillDown
End Sub

Re: Bring down an equation to the last value of another column

The two easiest ways I know are :

with the first cell selected in the target column with the formula already in it;
copy the cell and then hold down the Shift key and press END and then HOME.
This will select everything below and/or down and to the right of your cursor.
You should be able to just paste after that, however, if more columns were selected than you intended, just press the left arrow key while still keeping the shift key pressed.

The other method is to double click the little square in the lower right corner of the selected cell but that is hit or miss because any data gaps in the adjacent column will stop it from copying all the way down

hope this helps

Re: Bring down an equation to the last value of another column

Hi

You said cell B1 had your formula in it? What is the story?

If you don't have a formula in B1 then the following simple code adds it.

Range("B1").Value = "=IF(A1>3,1,0)"

I would add this before the Filldown line.

Take care

Smallman