Ještě k tomu když zadám město tak se to nezobrazí hned až na podruhé čím to může byt je to tím že tam je hodně dat?
Pravděpodobně je chyba v tomto kódu:

Private Sub UserForm_Activate()
frmFormular.spbPorC.Max = Sheets("Seznam").Range("A1").End(xlDown).Row - 1
Naplnenie (frmFormular.spbPorC.Value + 1)
End Sub

když to tam není tak to vyhledá hned a když to tam je tak zadám město a nic pak to zadám znova a pak to až najde.
Bez toho zase nejde dat nový.
Děkuji Vám moc za Vaši pomoc.