[RESOLVED] Userforms

[Greyskull]

I want my invoice system to automatically place a cell's entry down to the next row in the same column as I add another entry to the same cell.

For example, I press a button which automatically enters some details into the cell, I then press another button which again enters details in the same cell. Now I want the previous entry to be shifted down a row, how do I do this?

Thanks ,


Greyskull

[BrianB]

Check for a value in the target cell. If there is one then copy it down. Then put value into target. Something like :-

If Cells(1, 1).Value <> 0 Then
Cells(2, 1).Value = Cells(1, 1).Value
End If
Cells(1, 1).Value = MyValue

[immoral giant]

Or you could make it search for the next free cell down, like:
Sheets("Sheet1").Activate
If IsEmpty(Range("A2")) Then
Row = 2
Else
Range("A1").End(xlDown).Select
Row = ActiveCell.Row + 1
End If
Cells(Row, 1).Select
Cells(Row, 1) = TextBox1.Text

Jim Root, IG