megoldást keresek erre a problémára
-
#2139
Kicsúsztam az időből.
usor = Range("E" & Rows.Count).End(xlUp).Row
A Rows.Count adja a lapok max. darabszámát, ami a régebbi verziókban 65.536 volt, az újabbakban 1.048.576.
Állj az E oszlop legalsó sorára, majd nyomj Ctrl+fel nyilat. Az E oszlop alsó, valamilyen adatot tartalmazó cellája lesz aktív. Ezt a műveletet tartalmazza a Range("E" & Rows.Count).End(xlUp) utasítás. A végén a .Row az aktívvá lett cella sorának a számát adja vissza, ezt tesszük az usor változóba.
Az első üres sor az oszlopban
üres=Range("E" & Rows.Count).End(xlUp).Row+1