staci takyto zapis:
Sub zobraz()
Select Case Range("B1")
Case "01-H546711": UserForm01.Show
Case "02-H486611": UserForm02.Show
Case "03-H466811": UserForm03.Show
Case "04-H478116": UserForm04.Show
End Select
End Sub
citovat
Sub zobraz()
Select Case Range("B1")
Case "01-H546711": UserForm01.Show
Case "02-H486611": UserForm02.Show
Case "03-H466811": UserForm03.Show
Case "04-H478116": UserForm04.Show
End Select
End Sub
citovat