Проблемка с ReDim Preserve

[MaxxVer]

Попробовал конечно по разному, но проблема действительно видимо не в Else.
Может надо как-то объявлять переменные/массивы по другому... Не пойму, опыта нема...
Но все-равно спасибо за варианты!

[27102014]

А зачем Вам вообще массив? столбцы у Вас четко определены

Пробуйте написать макрос только на открытие второго массива

[MaxxVer]

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

А зачем Вам вообще массив? столбцы у Вас четко определены

Пробуйте написать макрос только на открытие второго массива

Попробую пояснить - определены четко, но если какой-нибудь из них уже скрыт, то его не надо потом раскрывать, а тут неизвестно какой будет скрыт изначально... То есть массив arrP2 должен наполняться на основе прогонки массива arr.

[27102014]

Сделайте предварительно поиск нужного массива и проверку - скрыт он или открыт, а уж потом только заполнение данными

[MaxxVer]

Так и не смог победить эти массивы, пришлось сделать некрасиво через ячейки самого листа

Private Sub CheckBox1_Click() ' Ñêðûòèå/ðàñêðûòèå îòêëîíåíèé
Dim arr, i
Application.DisplayAlerts = False
Application.ScreenUpdating = False
arr = Array(35, 39, 43, 47, 51, 59, 97, 101, 105, 109, 113, 117, 121, 157, 161, 165, 169, 173, 177, 181)

If CheckBox1 = True Then
Range(Cells(3, 3), Cells(3, 400)).ClearContents
    For i = 0 To UBound(arr)
        If Columns(arr(i)).ColumnWidth > 0 Then
            Columns(arr(i)).EntireColumn.Hidden = True
            Cells(3, arr(i)).Value = 1
        End If
    Next
Else
    For i = 0 To UBound(arr)
        If Cells(3, arr(i)).Value = 1 Then
            Columns(arr(i)).EntireColumn.Hidden = False
        End If
    Next
Range(Cells(3, 3), Cells(3, 400)).ClearContents
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Всем спасибо за участие!