Private Sub CommandButton2_Click()
Dim PoslBunka As Range ' nájdenie posledného neprázdneho riadku na hárku:
' nastavenie na posledný riadok hárku v stĺpci
Set PoslBunka = Worksheets("Zapis").Range("A:A").Cells(Range("A:A").Cells.Count)
' presun na posledný neprázdny riadok hárku
If IsEmpty(PoslBunka) Then Set PoslBunka = PoslBunka.End(xlUp) 'nastavenie sa na prázdnu bunku
Set PoslBunka = PoslBunka.Offset(1, 0) ' vloženie údajov z textovych poli formuláru do hárku
PoslBunka.Value = Zadavanie.TextBox1
PoslBunka.Offset(0, 1).Value = Zadavanie.TextBox2
PoslBunka.Offset(0, 2).Value = Zadavanie.ComboBox1
'vyprázdniť textové polia
Zadavanie.TextBox1.Value = vbNullString
Zadavanie.TextBox2.Value = vbNullString
Zadavanie.ComboBox1.Value = vbNullString
End Sub