-
[RESOLVED] Userforms
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 :) ,
:wave: Greyskull
-
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
-
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