MS Excel

Dobrý den,

rád bych požádal o pomoc se zadáváním a vyhledáním dat ve VBA. Na listu Home se mi spustí formulář, který umí vyhledat data dle pole "Sp.Zn." Vložte např. do pole Sp.Zn. hodnotu z Databaee sloupce D.

1) Úplně nahoře formuláře v oranžovém poli bych potřeboval nastavit výběr Úkonu podle listu ČÍSELNÍKY. Tj. Pokud se vybere "Žádost o povolení zk", tak aby se v políčku Úkon vybíralo jen z buněk C2:C16, pokud se vybere Typ Změna, pak bude Úkon k výběru z C17:C31 a pokud se byvere Typ Kontrola, pak se bude vybírat Úkon z C32:C37. Číselník lze jakkoli rozšířit / upravit.

2) každý zápis se uloží jako nový řádek. To je požadavek klienta. Když se vyhledává dle Sp.Zn., tak se vždy berou hodnoty z posledního řádku, obsahující Sp.Zn. To je správně. Formulář ale obsahuje list Kontroly, kde je Kontrola 1 - 3. Např. hodnota pole z listu Kontrola 1 - Datum oznámení se uloží do Database sloupce AV. Když by nastala Kontrola 2, v poli Úkon se vybere Oznámení o kontrole 2 a ve formuláři v listu Kontrola 2 se zapíše hodnota z pole datum oznámení do sloupce database - AV. To je správně.
Potřeboval bych ale nastavit vyhledání dle Sp.Zn. tak, aby se v listu Kontrola 1 vypsaly hodnoty z AV z řádku o kontrole 1 a do listu Kontrola 2 vypsala hodnota z AV z příslušného řádku o kontrole 2. Datové rozhraní databáze nelze upravit. není možné přidávat další sloupce.

Děkuji za případnou úvahu a pomoc.

Zaslat odpověď >

Strana: « předchozí 1 2 3 4 5

MilaF(31.12.2020 0:59)#049307

jedna se o nevyplněná pole u žádosti 0. Jiné žádosti prý tato pole vyplněná mít nebudou, jen ta žádost 0, viz obrázek. V Databse se jedná o buňky AI16:AK16

Příloha: jpg

49307_zadost0.jpg (192kB, staženo 17x)

citovat

Jiří497(31.12.2020 1:29)#049308

Problém byl v tom, že jsem nekontroloval spZn při načítání do arrZmena. Pak se tam dostala i spisová Sp.Zn "z" a její prázdné údaje přepsaly ty správné.

id = UserForm1.txtSpZn.Value ' načte číslo

On Error Resume Next
For i = 1 To posledniRadek - 1

If InStr(1, arrData(i, 81), "Změna") > 0 And id = arrData(i, 4) Then
ReDim Preserve arrZmena(1 To 12, 1 To j)
arrZmena(1, j) = arrData(i, 2)
arrZmena(2, j) = arrData(i, 31)

přesunul jsem id = UserForm1.txtSpZn.Value ' načte číslo, které bylo o pár řádků níž a přidal podmínku do if: If InStr(1, arrData(i, 81), "Změna") > 0 And id = arrData(i, 4) Then

Příloha: zip

49308_kz14a.zip (91kB, staženo 9x)

citovat

MilaF(31.12.2020 1:51)#049309

ty jo, vy jste fakt úžasný. funguje to, jak má.
Vím, že jsem otravný, ale mohu mít ještě pár dotazů?
jak bych měl definovat načtení Změny - potvrzení? Je to vždy poslední možnost u každé zkoušky. Ve formuláři je to u změny úplně dole pod žádostí 3. V database se má načíst hodnota z AI....citovat

Jiří497(31.12.2020 2:13)#049310

toto?
Case "Změna - Potvrzení"

'??? Toto je dobře? txtZmenaRozhodnutiZadost0 = arrZmena(6, i)
txtZmenaPotvrzeniRozhodnuti = arrZmena(6, i) 'nemá tam být spíš toto?

Příloha: zip

49310_kz14b.zip (92kB, staženo 9x)

citovat

MilaF(31.12.2020 2:49)#049311

ano, to je přesně ono!

Smekám před Vámi.
Moc děkuji za obrovskou pomoc!citovat

MilaF(2.1.2021 0:57)#049324

Dobrý večer, Jiří497, mohl bych ještě požádat o úpravu kódu v listu Žádost o povolení KZ?
1)Potřeboval bych udělat to, že se data v Database vyhledají ze sloupce AJ:AT u Žádosti 0. Data z těchto sloupců se nebudou vyhledávat pro jiné úkony, jen pro Žádost 0.
2) pokud vyberu cokoli jiného než spzn "k", např. "z" tak to hlásí chybu. V tom se také nevyznám... Nevím, jestli je to z důvodu, že spzn "z" má jen 1 záznam.
Zkouška bude vždy začínat 1 záznamem, který se nahraje a pak se budou generovat další...
Předem děkuji za ochotu a pomoc.

Příloha: rar