MS Excel

Téma: -

Zaslal/a Roman-Vejvoda 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.

Zaslat odpověď >

Roman-Vejvoda(10.5.2019 15:05)#043325

Omlouvám se, ale nedal jsem nadpis.citovat

Rejpal(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

Rejpal(11.5.2019 19:13)#043330

Asi tady naopak:
List1.Range("B" & Radek) = textbox2citovat

Roman-Vejvoda(12.5.2019 10:19)#043333

Děkujicitovat

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.