Hogyan adjunk új sort egy munkafüzethez? A kulcs az utolsó kitöltött sor megkeresésében rejlik. Íme egy példa kód, amelyből látszik mennyire egyszerű...
'Elmentem az adatokat és bezárom az ablakot
Private Sub btnOk_Click()
Dim Lastrow As Long
'Megkeresem az utolsó még kitöltött sort
Lastrow = Sheets("Forgalom").UsedRange.Rows.Count + 1
'Tetszőleges adatokkal feltöltöm a cellákat
Sheets("Forgalom").Cells(Lastrow, "A").Value = Date
Sheets("Forgalom").Cells(Lastrow, "B").Value = txtPartner.Text
Sheets("Forgalom").Cells(Lastrow, "C").Value = txtMegjegyzes.Text
Sheets("Forgalom").Cells(Lastrow, "D").Value = txtOsszeg.Value
'El kell menteni a munkafüzetet, különben mindig ugyanazt a sort adja be utolsónak, tehát felülírja a bejegyzéseket.
ActiveWorkbook.Save
'Ablak (aktuális Form) bezárása
Unload Me
End Sub
Sok sikert a munkához!
Sziklai Frigyes