Private Sub UserForm_Activate()
cislo_dokladu = Cells(riadok, stlpec).Value + 1 'riadok, stlpec kde je ulozene aktualne cislo dokladu
Cells(riadok, stlpec).Value = cislo_dokladu
End Sub
skoda ze mi to nejde otvorit mam iba 2003 a pre toto mi ani compatibility pack nepomoholcitovat