
For Each WS In ThisWorkbook.Worksheets
If IsNumeric(Replace(WS.CodeName, "List", "")) Then
If Replace(WS.CodeName, "List", "") >= 1 And Replace(WS.CodeName, "List", "") <= 11 Then
WS.Visible = xlSheetVisible
End If
End If
Next WScitovat
Zaslal/a pepča 5.3.2025 17:07
Ahojky.
Potřeboval bych poradit jak upravit makro které bylo v téma "do vzorce se vloží zavináč" od elnina na nucené povolení maker. Potřeboval bych aby se zobrazily ne všechny listy, ale pouze listy "List1.Name až List11.Name" když jsou povolena makra.. Ostatní listy se budou zobrazovat dle potřeby tlačítkem.
Děkuji moc za případnou pomoc.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.