скрывание строк, ячейки которой не содержат нужного значения

[mihaz]

ооо!!! отлично! спасибо большое! отлично все работает....
но возьму на себяя смелость просить еще об одном одолжении.... что бы это все не применялось к первым например 4м строкам (там шапка в моем случае)

P.S. спасли бедного инженера.....обещаю начать учить вижуалбэйсик

[EducatedFool]

Такой код будет обрабатывать строки с 5-й по 1000-ю:

Sub ОставитьТолькоСтрокиСЕдиницами()
    Dim ro As Range: Application.ScreenUpdating = False
    For Each ro In Intersect([5:1000], ActiveSheet.UsedRange).EntireRow
        ro.Hidden = ro.Find("1", , , xlWhole) Is Nothing
    Next ro
End Sub

Пример файла:

[mihaz]

замечательно! то что нужно, только я теперь хочу, что бы цифру вводить не в код, а в ячейку

даю ячейке имя var, и буду писать в нее нужную цифру, код тогда такой?

Sub ОставитьТолькоСтрокиСЕдиницами()
    Dim var As Range, ro As Range: Application.ScreenUpdating = False
    Set var = Range("var")
    For Each ro In Intersect([6:1000], ActiveSheet.UsedRange).EntireRow
        ro.Hidden = ro.Find("var", , , xlWhole) Is Nothing
    Next ro
End Sub

только как указать, что var в "ro.Find("var", ," переменная, а не значение

[mihaz]

йохохо! разобрался, нужно было писать без кавычек...эх, как все быстро забывается...

[dzv]

Здравствуйте EducatedFool!

Пожалуйста, подскажите, что нужно изменить в макросе, чтобы убирать в диапазоне пустые строки и если в этом диапазоне добавляются строки?!

[EducatedFool]

что нужно изменить в макросе, чтобы убирать в диапазоне пустые строки и если в этом диапазоне добавляются строки?!

Я не видел Вашего файла, поэтому не могу ответить на вопрос.

Прикрепите файл + подробно опишите, что должен делать макрос.

[dzv]

EducatedFool, вот, посмотрите пожалуйста.

В нем, определенные люди будут добавлять строки между 8-й и 10-й строками, куда будут вводить данные. Скорее всего (а это 100%), что они будут добавлять и пустые строки, их мне и нужно будет скрывать Вашей волшебной кнопкой или отображать (другой волшебной кнопкой).

[EducatedFool]

А что же Вы скинули файл без макросов?
Если макросы уже готовы, мне было бы проще их подредактировать, нежели делать их "с нуля"...

Скрыть\отобразить строки очень просто.
К примеру, надо скрыть строки, в которых в столбце B - пустые ячейки.
При этом, макрос должен обрабатывать строки, начиная с 6-й (чтобы не скрывать заголовок листа)

В этом случае можно использовать такой код:

Sub СкрытьСтроки()
    On Error Resume Next
    Intersect(ActiveSheet.UsedRange, [b:b], [6:1000]).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Sub ОтобразитьСтроки()
    On Error Resume Next
    Intersect(ActiveSheet.UsedRange, [b:b], [6:1000]).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
End Sub

[dzv]

EducatedFool, извините, не подумал, перезалил файл с макросами и добавил несколько строк, чтобы точнее было.

[EducatedFool]

Неужели сложно самостоятельно изменить пару символов в предложенной мной коде???

Sub СкрытьСтроки()
    On Error Resume Next: Application.ScreenUpdating = False
    Intersect(ActiveSheet.UsedRange, [a:a], [9:1000]).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Sub ОтобразитьСтроки()
    On Error Resume Next: Application.ScreenUpdating = False
    Intersect(ActiveSheet.UsedRange, [a:a], [9:1000]).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
End Sub

Пример файла: