Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Function KontrolaPSC()
- Dim psc As String
- psc = Sheets("Pomocný").Range("H2").Value
- If psc = "0" Then
- MsgBox "PSČ musí být vyplněno!"
- KontrolaPSC = False
- Else
- If IsNumeric(psc) Then
- If Len(psc) = 5 Then
- KontrolaPSC = True
- Else
- MsgBox "PSČ musí mít 5 znaků!"
- KontrolaPSC = False
- End If
- Else
- MsgBox "Nezadali jste číslo!"
- KontrolaCislaPopisneho = False
- End If
- End If
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement