Public Sub zapis()
Dim Jmeno_x As String
Dim Pocet_x As Single
Dim Jednotka_x As String
Dim Expedice_x As Date
Radek_a = List1.UsedRange.Rows.Count + 1
Jmeno_x = P_Jmeno
Pocet_x = P_Pocet
Jednotka_x = P_Jednotka
Expedice_x = P_Expedice
'Co do kterého sloupce (číselně sloupce 1,9,10,11)
Cells(Radek_a, 1) = Jmeno_x
Cells(Radek_a, 9) = Pocet_x
Cells(Radek_a, 10) = Jednotka_x
Cells(Radek_a, 11) = Expedice_x
End Sub
pokud by prvek na formuláři měl stejný název jako hlavička sloupce, tak by místo čísla sloupce šla použít funkce pozvyhledat, což by bylo univerzálnější v případě vložení nového sloupce, ale to moc neřeším :-).
M@citovat