Historie úprav

Avatar uživatele

Zeptal/a se – 4.červen 0:51

Excel VBA makro - tisk všech možností podmíněného seznamu, jak upravit vzorec/makro?

Počítače a internet – Software

Dobrý den,

potřeboval bych poradit, jak upravit makro tak, aby fungovalo s podmíněným seznamem v Excelu. Chyba se objevuje v řádku Set xRgVList = Evaluate(xRg. Validation. Formula1) z důvodu, že seznam vytvářím s pomocí vzorce NEPŘÍMÝ.ODKAZ. Pokud vzorec vyměním seznamem z přesně určené tabulky, vše funguje jak má. Využití nepřímého odkazu je však nutné, jelikož se jedná o podmíněný seznam. Přikládám kód z VBA.


Sub Iterate_Through_data_Validatio n()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("Nový_2018_VB"). Range("D4")
Set xRgVList = Evaluate(xRg. Validation. Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub

Avatar uživatele

Zeptal/a se – 7.červen 21:29

Excel VBA makro - tisk všech možností podmíněného seznamu, jak upravit vzorec/makro?

Počítače a internet – Software

Dobrý den,

potřeboval bych poradit, jak upravit makro tak, aby fungovalo s podmíněným seznamem v Excelu. Chyba se objevuje v řádku Set xRgVList = Evaluate(xRg. Validation. Formula1) z důvodu, že seznam vytvářím s pomocí vzorce NEPŘÍMÝ.ODKAZ. Pokud vzorec vyměním seznamem z přesně určené tabulky, vše funguje jak má. Využití nepřímého odkazu je však nutné, jelikož se jedná o podmíněný seznam. Přikládám kód z VBA.


Sub Iterate_Through_data_Validatio n()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("Nový_2018_VB"). Range("D4")
Set xRgVList = Evaluate(xRg. Validation. Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub

DOPLNĚNÍ:

aby to bylo jednodušší, zde odkaz na jednoduchý dokument, který vysvětluje, co vlastně chci. Je v něm i makro, které jsem použil a princip, ze kterého vycházím: http://leteckaposta.cz/…
Bohužel z důvodu GDPR nemohu použít přímo dokument, který potřebuji upravit, ale tento je úplně stejný, jen s jinými daty.

Přihlásit se

Položte otázku, odpovězte, zapojte se, …

začněte zde

Reklama

 

Váš požadavek se vyřizuje, počkejte prosím.