ВЫДЕЛЕНИЕ КОЛОНОК И УДАЛЕНИЕ

[Cone]

Сообщение от аналитика

выделяешь диапазон - правой кнопкой - сортировка - настраиваемая сортировка... - параметры - столбцы диапазона

А макросом это сделать ни как нельзя?!

[Cone]

Сообщение от аналитика

выделяешь диапазон - правой кнопкой - сортировка - настраиваемая сортировка... - параметры - столбцы диапазона

Нет так не катит! Все сбивается !! Нужен макрос сортировщик!

[Cone]

Сообщение от аналитика

выделяешь диапазон - правой кнопкой - сортировка - настраиваемая сортировка... - параметры - столбцы диапазона

Не так не катит! Все сбивается после такой сортировки!

[Cone]

Ребята подскажите что тут нужно поменять чтобы макрос обратно работал, т.е. Чтобы скрывались все колонки ВНЕ выделенного диапазона, 8 колонок с данными отображались а другие данные по обеим сторонам скрывались!

With ActiveCell
If .Column < 5 Then Exit Sub
Range(.Offset(0, -4), .Offset(0, 3)).EntireColumn.Hidden = True
End With

[SAS888]

Например, так:

With ActiveCell
    If .Column < 5 Then Exit Sub
    On Error Resume Next
    Range([A1], .Offset(0, -5)).EntireColumn.Hidden = True
    Range(.Offset(0, 4), Cells(1, Columns.Count)).EntireColumn.Hidden = True
End With

Обратите внимание, что в данном примере умышленно не используется объединение диапазонов Union, т.к. если активная ячейка находится в столбце 5, то диапазон столбцов для скрытия, который находится до видимого диапазона будет отсутствовать. Именно для этого случая осуществляется игнорирование возможной ошибки.

[Cone]

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

Например, так:

With ActiveCell
    If .Column < 5 Then Exit Sub
    On Error Resume Next
    Range([A1], .Offset(0, -5)).EntireColumn.Hidden = True
    Range(.Offset(0, 4), Cells(1, Columns.Count)).EntireColumn.Hidden = True
End With

Обратите внимание, что в данном примере умышленно не используется объединение диапазонов Union, т.к. если активная ячейка находится в столбце 5, то диапазон столбцов для скрытия, который находится до видимого диапазона будет отсутствовать. Именно для этого случая осуществляется игнорирование возможной ошибки.

Спасибо , все работает просто отлично!

[Cone]

А как сделать тоже самое но со строками???

Вот так работает но что то не совсем ладно! Как то не понятно скрывает!


With ActiveCell
If .Row < 5 Then Exit Sub
On Error Resume Next
Range([A1], .Offset(0, -5)).EntireRow.Hidden = True
Range(.Offset(0, 4), Cells(1, Rows.Count)).EntireRow.Hidden = True
End With

[SAS888]

В VBA Excel принято, что сначала задается номер строки, затем номер столбца. Это касается Cells, Offset, Resize и т.п. Т.е. все нужно поставить на свои места. Тогда код будет выглядеть так:

With ActiveCell
    If .Row < 5 Then Exit Sub
    On Error Resume Next
    Range([A1], .Offset(-5)).EntireRow.Hidden = True
    Range(.Offset(4), Cells(Rows.Count, 1)).EntireRow.Hidden = True
End With

[Cone]

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

В VBA Excel принято, что сначала задается номер строки, затем номер столбца. Это касается Cells, Offset, Resize и т.п. Т.е. все нужно поставить на свои места. Тогда код будет выглядеть так:

With ActiveCell
    If .Row < 5 Then Exit Sub
    On Error Resume Next
    Range([A1], .Offset(-5)).EntireRow.Hidden = True
    Range(.Offset(4), Cells(Rows.Count, 1)).EntireRow.Hidden = True
End With

Этих тонкостей я не знал потому как не так давно заинтересовался макросами! Можете посоветуете что можно почитать по VBA в Excel для ПОЛНЫХ ЧАЙНИКОВ ???!