< návrat zpět

MS Excel


Téma: Data z InputBoxu do buňky rss

Zaslal/a 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: rar49077_inputbox.rar (17kB, staženo 15x)
Zaslat odpověď >

#049078
elninoslov
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
citovat
#049079
avatar
Díkycitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09