Omlouvám se, ale nedal jsem nadpis.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: -
MS Excel
Téma: - 
Zaslal/a 10.5.2019 15:01
Ahoj programátoři.
Používám MS Office 2003, a potřebuji poradit. Mám formulář Userform1 (VBA) a v něm:
Textbox1 - ID načításe poslední řádek +1
Textbox2 - Datum
Combobox1 - Čas
Combobox2 - Druh
Combobox3 - Stav
Combobox4 - Vložil
Textbox2 - poznámka
Textbox3 - poznámka
Textbox4 - poznámka
CommandButton - ukládá všechny hodnoty do listu excelu (do řádků).
Potřebuji poradit, jak to udělat obráceně, aby se do Userform2, který je stejný jako Userform1 po zadání nějakého ID (do textbox1) načetli hodnoty s řádku se stejným ID (ID bude pokaždé jedinečné, nikdy nebude více stejných).
Dík za rady.
(10.5.2019 15:05)#043325
(11.5.2019 19:04)#043329
Ahoj, nějak takto: Sub Najdi()
With Sheets("List1").Range("A:A")
Set Rng = .Find(What:="ID", After:=.Cells(.Cells.Count), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not Rng Is Nothing Then
Radek = Rng.Row
textbox2 = List1.Range("B" & Radek)
' atd
Else
Exit Sub
End If
End With
End Subcitovat
With Sheets("List1").Range("A:A")
Set Rng = .Find(What:="ID", After:=.Cells(.Cells.Count), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not Rng Is Nothing Then
Radek = Rng.Row
textbox2 = List1.Range("B" & Radek)
' atd
Else
Exit Sub
End If
End With
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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
Makro smyčka
MilanKop • 19.4. 10:46
Makro smyčka
elninoslov • 19.4. 9:02
Čas od do
elninoslov • 19.4. 8:46
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
Čas od do
jarek1111 • 18.4. 8:31
RSS nejnovější články