MS Excel

Téma: Makro pro všechny listy

Zaslal/a Lugr 14.4.2019 17:43

Dobrý den,

lze provést toto makro na všech listech?
Nějak si s tím nevím rady.

Sub skryt()

Dim wsSheet As Worksheet
Set wsSheet = Worksheets("List1")

If wsSheet.Columns("C:C").EntireColumn.Hidden = False Then

wsSheet.Columns("C:C").EntireColumn.Hidden = True
wsSheet.Columns("AI:AI").EntireColumn.Hidden = True
wsSheet.Rows("77").EntireRow.Hidden = True
wsSheet.Rows("80").EntireRow.Hidden = True

Else

wsSheet.Columns("C:C").EntireColumn.Hidden = False
wsSheet.Columns("AI:AI").EntireColumn.Hidden = False
wsSheet.Rows("77").EntireRow.Hidden = False
wsSheet.Rows("80").EntireRow.Hidden = False

End If

End Sub

Zaslat odpověď >

elninoslov(15.4.2019 0:23)#043153

Vložiť do modulu
Sub Skryt()
Dim wsSheet As Worksheet, bSkyt As Boolean

For Each wsSheet In ThisWorkbook.Worksheets
With wsSheet
bSkyt = .Columns("C:C").EntireColumn.Hidden = False
.Range("C1,AI1").EntireColumn.Hidden = bSkyt
.Range("A77,A80").EntireRow.Hidden = bSkyt
End With
Next wsSheet
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

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.