• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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: 49077_inputbox.rar (17kB, staženo 15x)

Zaslat odpověď >

---

elninoslov(30.11.2020 20:19)#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 Subcitovat

Dita(30.11.2020 20:50)#049079

Díkycitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse