MS Excel

Téma: Data z InputBoxu do buňky

Zaslal/a Dita 30.11.2020 19:32

Dobrý den
Prosím o radu.
1) Zapsáním osobního čísla zaměstnance do InputBoxu, by se mělo osobní číslo zapsalo do List1 do "B4" a jméno do "D4".
2) V případě, že zapíše špatné osobní číslo, aby se zobrazil MsgBox a po odkliknutí se znovu spustil InputBox.
Se pokouším, ale furt něco špatně.
Děkuji

Příloha: rar

49077_inputbox.rar (17kB, staženo 17x)

Zaslat odpověď >

elninoslov(30.11.2020 20:19)citovat#049078

príklad:
Sub vyber()
Dim OsobniCislo As String, Jmeno As String

ZADAJ:
OsobniCislo = InputBox("Zadej osobní číslo:")
If StrPtr(OsobniCislo) = 0 Then Exit Sub
If Not IsNumeric(OsobniCislo) Then GoTo ZADAJ
On Error Resume Next
Jmeno = Application.WorksheetFunction.VLookup(CDbl(OsobniCislo), Range("Skupina"), 2, 0)
If Err.Number <> 0 Then
Err.Clear
GoTo ZADAJ
Else
With Worksheets("List1")
.Range("OsobniCislo").Value = CDbl(OsobniCislo)
.Range("Jmeno").Value = Jmeno
End With
End If
On Error GoTo 0
End Sub

Dita(30.11.2020 20:50)citovat#049079

Díky

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.