megoldást keresek erre a problémára
-
Storey #2413 Köszi a megoldást! Szuperül működik! :)
Azonban egy új problémával szembesültem. :(
A már bevitt adatok kiegészítésekor új sorba teszi az egészet és megmarad a régi sor is.
Így viszem be az adatokat:
Private Sub Bevitel_Click()
Application.ScreenUpdating = True
Sheets("Nevek").Activate
sor = Range("A1").End(xlDown).Row + 1
Cells(sor, "A") = Nev
Cells(sor, "B") = Telepules
Cells(sor, "C") = Utca
Cells(sor, "D") = Hazszam * 1
Cells(sor, "E") = Nem
Cells(sor, "F") = Eletkor * 1
Cells(sor, "G") = Ruhameret
End Sub
Hogyan tudom megoldani, hogy kiegészítéskor, változtatáskor ne keletkezzen új sor, de ha teljesen új adatsort szeretnék bevinni, az a végére kerüljön? Esetleg mondjuk még az egészet táblát bevitel után abc rendbe tegye?
Előre is köszi a segítséget! :)