Is is possible to write a macro that drags values (or formuals) down a column
to the length of an adjacent column, like when you double click on little
square in the right corner of the box that indicates when a cell is selected?

For this question, I need the formula or data that is in the selected cell
to repeat for all cells in the adjacent column that have values. How do I do
this?

Hi,

Assuming we have something in B1, this fills down col B as far asa there are
data in Col A

Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"AlexJarvis" wrote:

Is is possible to write a macro that drags values (or formuals) down a column
to the length of an adjacent column, like when you double click on little
square in the right corner of the box that indicates when a cell is selected?

For this question, I need the formula or data that is in the selected cell
to repeat for all cells in the adjacent column that have values. How do I do
this?

Wow! That was much easier than I thought it was going to be.

Thank you.

-A

"Mike H" wrote:

Hi,

Assuming we have something in B1, this fills down col B as far asa there are
data in Col A

Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"AlexJarvis" wrote:

Is is possible to write a macro that drags values (or formuals) down a column
to the length of an adjacent column, like when you double click on little
square in the right corner of the box that indicates when a cell is selected?

For this question, I need the formula or data that is in the selected cell
to repeat for all cells in the adjacent column that have values. How do I do
this?

Glad I could help
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"AlexJarvis" wrote:

Wow! That was much easier than I thought it was going to be.

Thank you.

-A

"Mike H" wrote:

Hi,

Assuming we have something in B1, this fills down col B as far asa there are
data in Col A

Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"AlexJarvis" wrote:

Is is possible to write a macro that drags values (or formuals) down a column
to the length of an adjacent column, like when you double click on little
square in the right corner of the box that indicates when a cell is selected?

For this question, I need the formula or data that is in the selected cell
to repeat for all cells in the adjacent column that have values. How do I do
this?

Assumes formula is in C1 and B has the data.

Sub Auto_Fill()
Dim lRow As Long
With ActiveSheet
lRow = .Range("B" & Rows.Count).End(xlUp).Row
.Range("C1:C" & lRow).FillDown
End With
End Sub

Or if want to use selected cell then fill down.

Sub Auto_Fill()
Dim lRow As Long
With ActiveSheet
lRow = .Range("B" & Rows.Count).End(xlUp).Row
.Range(ActiveCell.Address & ":C" & lRow).FillDown
End With
End Sub



Gord Dibben MS Excel MVP

On Thu, 29 Apr 2010 06:29:02 -0700, AlexJarvis
wrote:

Is is possible to write a macro that drags values (or formuals) down a column
to the length of an adjacent column, like when you double click on little
square in the right corner of the box that indicates when a cell is selected?

For this question, I need the formula or data that is in the selected cell
to repeat for all cells in the adjacent column that have values. How do I do
this?