Скрытие строк

[Просточел]

На деле, вышли затруднения.
Прикрепил сам файл.
Нужно сделать чтобы на отдельный лист (3) копировалась колонка АB,C,G - и скрывались те где G - пустое, либо просто не копировались.
Прошу помощи.

[SAS888]

В прикрепленном Вами файле столбец "G" пустой. Для наглядности, с Вашего позволения, я в некоторые ячейки этого столбца ввел произвольные значения. Также, Вы не указали, нужно ли копировать заголовки (подзаголовки). Ну, в общем, сделал так, как понял (см. вложение).

[Denis Ch]

В продолжение темы скрытия столбцов и срок.Можно ли так скрыть столбец, чтобы при вставке значений в таблицу в этот столбец значения не вставлялись, а переносились на следующий столбец?Так же необходимо чтобы этот столбец нельзя было отобразить просто щелкнув на нем правой кнопкой мыши.

[SAS888]

To Denis Ch:
Можно. Но не так просто. Для этого при открытии (активации) книги нужно перехватывать ID требуемых команд и назначать им свой макрос, который будет делать все так, как Вам нужно. А при закрытии (деактивации) этой книги - возвращать все назад.

[Denis Ch]

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

To Denis Ch:
Можно. Но не так просто. Для этого при открытии (активации) книги нужно перехватывать ID требуемых команд и назначать им свой макрос, который будет делать все так, как Вам нужно. А при закрытии (деактивации) этой книги - возвращать все назад.

А можно хотя бы один пример, если вас не затруднит?

[staniiislav]

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

Можно существенно проще. Без всяких циклов и сравнений:

Private Sub Worksheet_Activate()
    With Sheets(2)
        Application.ScreenUpdating = False: Sheets(1).Cells.Copy .[A1]: On Error Resume Next
        Intersect(.[B:B], .UsedRange).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    End With
End Sub

Если же нужно скопировать требуемые строки, например, в диапазон листа 2, начиная с ячейки "F5", то можно так (опять же без циклов и сравнений):

Private Sub Worksheet_Activate()
    With Sheets(1)
        Intersect(.[B:B].ColumnDifferences(.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1)).EntireRow, .[A:B]).Copy Sheets(2).[F5]
    End With
End Sub

Примеры использования во вложенных файлах.

подскажите пожалуйста, а как скрыть столбцы, если во второй строке 0 или пусто?
Спасибо.