макрос на скрытие столбцов

[Pasha_Z]

надо макрос
есть флажок, который связан с ячейкой С8
если флажок "Истина":
проверяются ячейки "6" в столбцах Е:Х на значение не равно "нулю" то данные столбцы скрываются;
если флажок "Ложь":
то столбцы Е:Х открываются.

[IgorGO]

у меня как раз есть такой

Sub ShowHideC()
  Dim rg As Range, c As Long
  If Not Cells(8, 3).Value Then Cells(5, 1).Resize(1, 20).EntireColumn.Hidden = True: Exit Sub
  Cells(5, 1).Resize(1, 20).EntireColumn.Hidden = False
  For c = 5 To 24
    If Cells(6, c) <> 0 Then If rg Is Nothing Then Set rg = Cells(6, c) Else Set rg = Application.Union(rg, Cells(6, c))
  Next
  If Not rg Is Nothing Then
    rg.EntireColumn.Hidden = True:  Set rg = Nothing
  End If
End Sub

[Pasha_Z]

Сообщение от IgorGO

у меня как раз есть такой

Sub ShowHideC()
  Dim rg As Range, c As Long
  If Not Cells(8, 3).Value Then Cells(5, 1).Resize(1, 20).EntireColumn.Hidden = True: Exit Sub
  Cells(5, 1).Resize(1, 20).EntireColumn.Hidden = False
  For c = 5 To 24
    If Cells(6, c) <> 0 Then If rg Is Nothing Then Set rg = Cells(6, c) Else Set rg = Application.Union(rg, Cells(6, c))
  Next
  If Not rg Is Nothing Then
    rg.EntireColumn.Hidden = True:  Set rg = Nothing
  End If
End Sub

привет [QUOTE=IgorGO;1325532]
спасибо за код.
он работает, но не так как хотелось.
я наверно не так поставил задачу.

прикрепляю файл.

[IgorGO]

файл появился, уже хорошо.
а что изменилось в постановке задачи?

[Pasha_Z]

Сообщение от IgorGO

файл появился, уже хорошо.
а что изменилось в постановке задачи?

в постановке задачи не изменилось ничего.
столбцы должны проверяться с Е до Х
и по условию задачи скрываться, либо быть все открыты
с другими столбцами ничего не должно происходить.

[IgorGO]

там ошибся. видимо так пойдет. см. вложение.

[Pasha_Z]

Сообщение от IgorGO

там ошибся. видимо так пойдет. см. вложение.

сейчас я посмотрю.
я поменял два условия и нормально работает.
посмотрел. Спасибо.
я ставил задачу то если столбцы = 0 то тогда они скрывались.
я внес изменения в макрос и работает как надо.