Hej har en userform som skriver in data i låt oss säga Sheet4 A1,D1,E1 osv det går ju bra, men när jag ska använda det nästa gång så skrivs all data över, jag vill alltså att data ska hamna på A2,D2,E2 osv , & nästa gång A3,D3,E3 osv.

Jag vill alltså spara alla resultat, hoppas ni förstår vad jag menar.

Jag har testat med xlup men får inte till det.

iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

/Hook

Sub test()
' wyszukuje ostatni wiersz w 4 karcie w zakresie a-b

' upphitta sista row i sheets4 range ( columns a-b)
Dim i As Integer
Dim c As Object

With Sheets("Sheet4").Range("a:b")
Set c = .Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious)
End With

MsgBox (c.Row) ' medela sista row

'dodaje 1 aby uzyskac 1 pusty wiersz

'tillägger +1 att få nästa toma row

temp_row = c.Row + 1
Range("a" & temp_row).Select
Cells(temp_row, 1) = "TEST@"

End Sub