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
<(E-Mail Removed)> 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?