Snáď jedine makro...
Příloha: 
40231_seznam.zip (19kB, staženo 29x)
citovat40231_seznam.zip (19kB, staženo 29x)
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: Posuvné tlačítko propojeno na rozevírací seznam
MS Excel
Téma: Posuvné tlačítko propojeno na rozevírací seznam 
Zaslal/a Merlin99 26.4.2018 21:33
Zdravím všechny, narazil jsem na problem ktery netusim jak vyresit. Potreboval bych propojit na rozeviraci seznam tlacitko (o jedna nahoru o jedna dolu) ktere by na zaklade vybraneho zaznamu v seznamu nasledne vracelo nasledny hodnty bud nahoru nebo dolu. viz priloha.. díky za jakekoli napady..
Příloha: 40230_seznam.rar (9kB, staženo 26x)
40230_seznam.rar (9kB, staženo 26x)elninoslov: Díky moc to je dokonalý. Chtel jsem si to zkusit prepsat do noveho souboru a preadresovat abych pochopil princip, nicmene mito porad vraci chyby a uz nechapu co stim... v tvem sesite to funguje skvele..
Jedna otazka: Pokud bych chtel adresovat na jiny list (List999) kde je zdroj dat tak vsude kde je .Cells nahradit List999.Cells ?
Děkuji za radu..
Jedna otazka: Pokud bych chtel adresovat na jiny list (List999) kde je zdroj dat tak vsude kde je .Cells nahradit List999.Cells ?
Děkuji za radu..
Příloha: 40234_pokus-seznam.rar (19kB, staženo 22x)
citovat40234_pokus-seznam.rar (19kB, staženo 22x)Nie, záleží na tom, čo bude na liste s výslednou hodnotou (List1), a čo na liste so zdrojovými dátami (List999).
Bude to takto ako píšem ?
Na liste List1 bude:
-bunka s výberovým zoznamom
-SpinButton
Na liste List999 bude:
-zoznam materiálov
-Poradová hodnota SpinButton-ucitovat
Bude to takto ako píšem ?
Na liste List1 bude:
-bunka s výberovým zoznamom
-SpinButton
Na liste List999 bude:
-zoznam materiálov
-Poradová hodnota SpinButton-ucitovat
Pr.
Příloha: 40243_pokus-seznam.zip (21kB, staženo 27x)
citovat40243_pokus-seznam.zip (21kB, staženo 27x)elninoslov: DÍKY moc ale nemuzu si pomoct ve svem prikladu porad debuguju..
Tady me to zastavi a zaboha nechapu proc...
Radku = Material.Cells(Rows.Count, 3).End(xlUp).Row - 4
Radku = .Cells(Rows.Count, 3).End(xlUp).Row - 4citovat
Tady me to zastavi a zaboha nechapu proc...
Radku = Material.Cells(Rows.Count, 3).End(xlUp).Row - 4
Radku = .Cells(Rows.Count, 3).End(xlUp).Row - 4citovat
Spinner som ja nazval "SpinBtn", Vy ho máte "Spinner 2" (v príkladoch pred tým, myslím "Spinner 5" a Spinner 6"), no odkazujete sa ten môj "SpinBtn", u Vás neexistujúci. Premenoval som ho.
Odkazujete na list s kódovým menom "Material", ale také kódové meno nemáte. Taký máte iba titulok na lište s uškami listov. Buď použite Worksheets("Material"), alebo zmente kódové meno listu napr. na "Material" alebo lepšie na "wsMaterial".
Nemôžete robiť Offset(Poz - 4), ale len Offset(Poz - 1), tak ako som to tam dal. Lebo tu sa neposúvate indexom od prvého riadku listu, ale od prvého riadku oblasti materiálov. A index 1 je na 5 riadku, teda ho už neposúvate.
V makre listu Grafy máte zle umiestnené rozsahy
WorksheetFunction.Match(HDN, .Cells(2, 1).Resize(Radku), 0)
má byť
WorksheetFunction.Match(HDN, .Cells(5, 8).Resize(Radku), 0)
a
Radku = .Cells(Rows.Count, 3).End(xlUp).Row - 4
má byť
Radku = .Cells(Rows.Count, 8).End(xlUp).Row - 4
Rovnako zle je to aj v druhom makre
Radku = wsMaterial.Cells(Rows.Count, 3).End(xlUp).Row - 4
má byť
Radku = wsMaterial.Cells(Rows.Count, 8).End(xlUp).Row - 4
Úpravu som Vám dal na GoogleDrivecitovat
Odkazujete na list s kódovým menom "Material", ale také kódové meno nemáte. Taký máte iba titulok na lište s uškami listov. Buď použite Worksheets("Material"), alebo zmente kódové meno listu napr. na "Material" alebo lepšie na "wsMaterial".
Nemôžete robiť Offset(Poz - 4), ale len Offset(Poz - 1), tak ako som to tam dal. Lebo tu sa neposúvate indexom od prvého riadku listu, ale od prvého riadku oblasti materiálov. A index 1 je na 5 riadku, teda ho už neposúvate.
V makre listu Grafy máte zle umiestnené rozsahy
WorksheetFunction.Match(HDN, .Cells(2, 1).Resize(Radku), 0)
má byť
WorksheetFunction.Match(HDN, .Cells(5, 8).Resize(Radku), 0)
a
Radku = .Cells(Rows.Count, 3).End(xlUp).Row - 4
má byť
Radku = .Cells(Rows.Count, 8).End(xlUp).Row - 4
Rovnako zle je to aj v druhom makre
Radku = wsMaterial.Cells(Rows.Count, 3).End(xlUp).Row - 4
má byť
Radku = wsMaterial.Cells(Rows.Count, 8).End(xlUp).Row - 4
Úpravu som Vám dal na GoogleDrivecitovat
elninoslov: DÍKY moc za vysvetleni problemu, myslim ze jsem upravil podle Vas a docela to uz beha, jen mi doslo ze to skace podle cisel +1 -1 a ne podle poradi v seznamu...
Nicmene dekuji moc za trpelivost.
*přiloha ¨
http://leteckaposta.cz/515593489citovat
Nicmene dekuji moc za trpelivost.
*přiloha ¨
http://leteckaposta.cz/515593489citovat
1. Prečítajte si ešte raz 3. odstavec, čo som písal. Máte tam zle ten Offset.
2. V stĺpci H nemajte žiadne iné hodnoty, degraduje to výberový zoznam (myslím to číslo 9996).
3. Upravte kód, najskôr zmente výberovým zoznamom nejakú hodnotu, aby sa Vám prípadne upravil správny index v SpinBtn, ak bol pred tým nesprávnym makrom zle nastavený. A potom všetko funguje ako má. Hodnoty zo zoznamu dáva, tak ako sú v poradí v zozname. Nijako inak.
Šmarjá, lidičky, čítajte pozorne, čo Vám človek píše
citovat
2. V stĺpci H nemajte žiadne iné hodnoty, degraduje to výberový zoznam (myslím to číslo 9996).
3. Upravte kód, najskôr zmente výberovým zoznamom nejakú hodnotu, aby sa Vám prípadne upravil správny index v SpinBtn, ak bol pred tým nesprávnym makrom zle nastavený. A potom všetko funguje ako má. Hodnoty zo zoznamu dáva, tak ako sú v poradí v zozname. Nijako inak.
Šmarjá, lidičky, čítajte pozorne, čo Vám človek píše
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články