Zeptal/a se – 4.červen 0:51
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_Validation()
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
Zeptal/a se – 7.červen 21:29
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_Validation()
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/424369011
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.