Ya that worked - - brain fart there. Thanks pretty easy!
How do you get the highlighted copied area to stop flashing on the
worksheet? I always have this problem when I try and copy formulas in VBA
into a worksheet. Thanks again. Jennifer
--
Thank you,
Jennifer
"Gary Keramidas" wrote:
> i'm no sure what you're trying to do
>
> maybe
>
> ws.Cells(irow - 1, 7).Copy
> ws.Cells(irow, 7).PasteSpecial xlPasteFormulas
>
> --
>
> Gary
>
>
> "Jennifer" <(E-Mail Removed)> wrote in message
> news:FA2C13DA-F6A9-461A-98C3-(E-Mail Removed)...
> > Hi there,
> > I am using the following code when the user hits the enter button on a
> > form.
> > As you can see values from the various txt boxes, cbo boxes etc. are put
> > into
> > the 1st blank row at the bottom of the database. What i need now is to
> > know
> > how to copy the formula in column 7 from the row above, down to be even
> > with
> > all the data that was just entered. Hope this is clear.
> >
> > Private Sub cmdAdd_Click()
> > ActiveWorkbook.Sheets("Sheet3").Activate
> > 'stops flickering
> > Application.ScreenUpdating = False
> > Set ws = Worksheets("Database")
> > iRow = ws.Cells(Rows.Count, 2).End(xlUp).Row + 1
> > ws.Cells(iRow, 1).Value = "N/A"
> > ws.Cells(iRow, 6).Value = Me.Calendar1
> > ws.Cells(iRow, 4).Value = Me.txtPounds.Value
> > ws.Cells(iRow, 2).Value = Me.cboIngredient.Value
> > ws.Cells(iRow, 5).Value = "Actual"
> > ws.Cells(iRow, 7).value = ?????????????
> > Me.ListBox1.Value = Update
> >
> > --
> > Thank you,
> >
> > Jennifer
>
>
|
Similar Threads
