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

[Просточел]

Приветствую!
Имеются 2листа.
На одном есть 2 колонки А и Б. Колонка А заполнена, Б имеет какието значение, а где-то пусто.

Задача:
На листе 2 должны быть отображены Строки из Листа1, колонки А и Б, но только те где значение Б не пустое...
И в дальнейшем возможно изменение листа1, тоесть какието значения будут стерты, а какие-то добавлены.

Пример:
Лист1:
А Б
1
2 а
3 ап
4
5 ак

То на листе 2 должно быть выведено:
А Б
2 а
3 ап
5 ак

Возможно можно применить скрытие строк.
Фильтр не подходит.

Прошу Вашей помощи.

[R Dmitry]

Сообщение от Просточел

Приветствую!
Имеются 2листа.
На одном есть 2 колонки А и Б. Колонка А заполнена, Б имеет какието значение, а где-то пусто.

Задача:
На листе 2 должны быть отображены Строки из Листа1, колонки А и Б, но только те где значение Б не пустое...
И в дальнейшем возможно изменение листа1, тоесть какието значения будут стерты, а какие-то добавлены.

Пример:
Лист1:
А Б
1
2 а
3 ап
4
5 ак

То на листе 2 должно быть выведено:
А Б
2 а
3 ап
5 ак

Возможно можно применить скрытие строк.
Фильтр не подходит.

Прошу Вашей помощи.

А Вам для себя или преподавателя , что бы зачёт сдать?
макросом или формулой?

[Просточел]

Для меня, с экселем дружу как скретарша на ресепшне :D
Желательно формулой, либо VBA скриптом, НО без нажатий на какие-либо кнопки.

ПРобывал сделать так: (внизу прикреплен файл)
В лист 2 делал следующи: в столбик Б в каждой ячейке писал формулу, что если в Листе1 ячйка пуста то ставился 0. затем делал исходный код(текст) к листу 2:

Private Sub Worksheet_Activate() -

Поиск нуля по второй калонке с использованием For
Если находил то скрывал ячейку
End Sub

НОо скрипт жутко грузил систему тоесть при каждом разе когда открывался Лист 2 происходил поиск 0 и скрытие ячеек. Если слабая банка и очень много данных.... это не вариант

[Просточел]

Но это самое простое, а если нужно вывести также непустые значения (также столба А и Б) на другой ЛИСТ куда-нибудь в гущу данных, где скрытие строк не приемлемо )

[R Dmitry]

Сообщение от Просточел

Но это самое простое, а если нужно вывести также непустые значения (также столба А и Б) на другой ЛИСТ куда-нибудь в гущу данных, где скрытие строк не приемлемо )

Не спрашивайте как оно работает..... сам не знаю

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim a, x&
a = Sheets("Лист1").[a2].CurrentRegion.Value
For i = 1 To UBound(a)
If Len(a(i, 2)) > 0 Then x = x + 1: a(x, 1) = a(i, 1): a(x, 2) = a(i, 2)
Next
Sheets("Лист2").[a2].Resize(i, 2).Clear
Sheets("Лист2").[a2].Resize(x, 2) = a
Application.ScreenUpdating = True
End Sub

просто замените Ваш код

[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

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

[Просточел]

Спасибо всем Вам за помощь!

[kuklp]

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

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

Серег, я бы добавил перед With :
Me.[f5].currentregion.clear
Винегрет может получиться:-)

[SAS888]

Винегрет может получиться

Может. Но, думаю, что очищать CurrentRegion нельзя. Если, например, данные помещаются в таблицу, начиная со строки, которая находится под строкой с заголовками (что, скорее всего, так и есть), то с листа исчезнет не только то, что требуется. Т.е. очищать нужно не CurrentRegion, а конкретный диапазон таблицы с данными о котором знает только автор вопроса.

[kuklp]

Ну да. Тогда проще вариант со скрытием. И строки целы и волки сыты:-)