megoldást keresek erre a problémára
-
#2414 sor = Range("A1").End(xlDown).Row
Ez adja meg az utolsó kitöltött cella sorát az A oszlopban. Ekkor az adatbevitellel felülírod az utolsó sort. Ha új sorba akarsz írni, akkor
sor = Range("A1").End(xlDown).Row + 1
legyen a sor meghatározása.
Ha egy meglévő sor adatait akarod módosítani, akkor ki kell keresned a módosítandó sort egy jellemzője szerint.
sor=Application.WorksheetFunction.Match(Nev, Columns(1),0)
Vigyázat! Itt a sor változó Variant típusú legyen! Ha deklarálod a változókat, akkor Dim sor As Variant, de az As Variant el is hagyható.