Adatokat szeretnék bevinni egy táblázatba egy userform-mal.
A táblázat fejléce a a5:f5 cellákban van. Szeretném, ha az adatok mindig a következő üres sorba kerülnének.
Előre is köszönök minden segitséget!
Két példa az első üres sor meghatározására, jelenleg az A oszlopban.
Sub ElsoUres()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row + 1
MsgBox usor
usor = Application.WorksheetFunction.CountA(Columns(1)) + 1
MsgBox usor
End Sub
Innen már be tudod vinni az adatot, pl. cells(usor, 1)= …
Nem jelent meg a táblázatod. Valószínűleg makróbarát füzetet akartál belinkelni, de ez a fórum csak tömörítetten fogadja el.
.
