Copy Formula Down

[gregork]

I have the following user form code to add data to a worksheet:

Dim LastRow As Object

Set LastRow = Worksheets("Raw
Material").Range("b5000").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox5.Text
LastRow.Offset(1, 2).Value = TextBox1.Text
LastRow.Offset(1, 5).Value = ComboBox2.Text

On the worksheet I have formulas in cells referring to the cells where I add
data. These formulas will have to be filled all the way down the worksheet
in anticipation of new entries. Instead of filling all these formulas down
the sheet, is it possible to add code to what I use when I add data that
will fill formulas down?

GK

[Tom Ogilvy]

LastRow.Offset(1,3).Resize(1,2).Filldown


assuming the last filled row has the formulas

--
Regards,
Tom Ogilvy

"gregork" <[email protected]> wrote in message
news:[email protected]...
> I have the following user form code to add data to a worksheet:
>
> Dim LastRow As Object
>
> Set LastRow = Worksheets("Raw
> Material").Range("b5000").End(xlUp)
>
> LastRow.Offset(1, 0).Value = TextBox5.Text
> LastRow.Offset(1, 2).Value = TextBox1.Text
> LastRow.Offset(1, 5).Value = ComboBox2.Text
>
> On the worksheet I have formulas in cells referring to the cells where I
add
> data. These formulas will have to be filled all the way down the worksheet
> in anticipation of new entries. Instead of filling all these formulas down
> the sheet, is it possible to add code to what I use when I add data that
> will fill formulas down?
>
> GK
>
>
>

[gregork]

Great, thanks Tom, that will tidy my sheet up.......I really didn't like
having formulas filled all the way down my columns.

cheers
GK

"Tom Ogilvy" <[email protected]> wrote in message
news:%[email protected]...
> LastRow.Offset(1,3).Resize(1,2).Filldown
>
>
> assuming the last filled row has the formulas
>
> --
> Regards,
> Tom Ogilvy
>
> "gregork" <[email protected]> wrote in message
> news:[email protected]...
> > I have the following user form code to add data to a worksheet:
> >
> > Dim LastRow As Object
> >
> > Set LastRow = Worksheets("Raw
> > Material").Range("b5000").End(xlUp)
> >
> > LastRow.Offset(1, 0).Value = TextBox5.Text
> > LastRow.Offset(1, 2).Value = TextBox1.Text
> > LastRow.Offset(1, 5).Value = ComboBox2.Text
> >
> > On the worksheet I have formulas in cells referring to the cells where I
> add
> > data. These formulas will have to be filled all the way down the
worksheet
> > in anticipation of new entries. Instead of filling all these formulas
down
> > the sheet, is it possible to add code to what I use when I add data that
> > will fill formulas down?
> >
> > GK
> >
> >
> >
>
>

[gregork]

Tom I'm hoping you're following this thread as I was wondering if it is
possible to fill down the cell format as well as formula with code?

regards
GK


"Tom Ogilvy" <[email protected]> wrote in message
news:%[email protected]...
> LastRow.Offset(1,3).Resize(1,2).Filldown
>
>
> assuming the last filled row has the formulas
>
> --
> Regards,
> Tom Ogilvy
>
> "gregork" <[email protected]> wrote in message
> news:[email protected]...
> > I have the following user form code to add data to a worksheet:
> >
> > Dim LastRow As Object
> >
> > Set LastRow = Worksheets("Raw
> > Material").Range("b5000").End(xlUp)
> >
> > LastRow.Offset(1, 0).Value = TextBox5.Text
> > LastRow.Offset(1, 2).Value = TextBox1.Text
> > LastRow.Offset(1, 5).Value = ComboBox2.Text
> >
> > On the worksheet I have formulas in cells referring to the cells where I
> add
> > data. These formulas will have to be filled all the way down the
worksheet
> > in anticipation of new entries. Instead of filling all these formulas
down
> > the sheet, is it possible to add code to what I use when I add data that
> > will fill formulas down?
> >
> > GK
> >
> >
> >
>
>

[Tom Ogilvy]

the code did fill down the format for me.

--
Regards,
Tom Ogilvy

"gregork" <[email protected]> wrote in message
news:[email protected]...
> Tom I'm hoping you're following this thread as I was wondering if it is
> possible to fill down the cell format as well as formula with code?
>
> regards
> GK
>
>
> "Tom Ogilvy" <[email protected]> wrote in message
> news:%[email protected]...
> > LastRow.Offset(1,3).Resize(1,2).Filldown
> >
> >
> > assuming the last filled row has the formulas
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "gregork" <[email protected]> wrote in message
> > news:[email protected]...
> > > I have the following user form code to add data to a worksheet:
> > >
> > > Dim LastRow As Object
> > >
> > > Set LastRow = Worksheets("Raw
> > > Material").Range("b5000").End(xlUp)
> > >
> > > LastRow.Offset(1, 0).Value = TextBox5.Text
> > > LastRow.Offset(1, 2).Value = TextBox1.Text
> > > LastRow.Offset(1, 5).Value = ComboBox2.Text
> > >
> > > On the worksheet I have formulas in cells referring to the cells where
I
> > add
> > > data. These formulas will have to be filled all the way down the
> worksheet
> > > in anticipation of new entries. Instead of filling all these formulas
> down
> > > the sheet, is it possible to add code to what I use when I add data
that
> > > will fill formulas down?
> > >
> > > GK
> > >
> > >
> > >
> >
> >
>
>