add row at end of table

[Keeske]

I've a sheet, now it is 20 rows long. I use it for entering information daily. Every day I've to copy paste the last row to make a new row at the bottom of the table that contains the format and formulas.
Can this be done automatically?
Eg when I select a cell at the lowest row, a new row is added below containing the formulas and format of the row above.
Cell is column A:A contains the data. Can this increase when adding the new row??

Many thanks again!

 

[rani]

copying last row formulae automatically

Have you ever tried using Macros? Try to record a macro for copying and pasting the last row. And use it once before starting your work everyday.

 

[sebiwane]

Maybe u can create a short macro that do the copy past - using the macro recorder.

You select then line, then you start to record the manipulation of copy paste
when u have finished to copy the formula, stop the recording

then create a new button and link the macro to the button.

select a line and try to run the macro.

hope it help you

seb

 

[BrianB]

Here is something basic. You will need to adjust it a bit for columns used.
If you put it into the code module for the worksheet (right click tab & "View Code") it will add a new line whenever the worksheet is doubleclickd (anywhere on the sheet).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    Dim LastRow As Long
    Dim CopyRange As Range
    '-----------------------------------
    LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
    Set CopyRange = ActiveSheet.Range(Cells(LastRow, "A"), Cells(LastRow, "H"))
    rg = "A" & LastRow + 1
    CopyRange.Copy Destination:=ActiveSheet.Range(rg)
End Sub

 

[Keeske]

Everybody: thanks!

Now I use Brian B's solution and it works perfect. One more thing: what code should I use, and where should I put it, to increase the Date in column A with one everytime I doubleclick?

Thanks in advance