Пожалуйста помогите.

[Дмитрий_Нам]

Добрый день!


Пожалуйста помогите произвести следующую операцию...
Во вложенном файле оператор должен записывать заказ от Клиента, полученный в кафе и распечатывать для отчётности. При этом строки, ячейки которых будут пустыми не должны отображаться в целях экономии времени печати и концентрации внимания другого сотрудника, который будет собирать заказ по данному списку.

[Дмитрий_Нам]

Прошу прощения... прикладываю новый файл. Здесь зеленым цветом выделены ячейки в которых и заполняется количество блюд, собственно и эти строки нужно скрывать в случаи незаполненных значений (в зеленых ячейках).

[Дмитрий_Нам]

Вот нашел интересное решение... только как так сделать в моём случаи???
Всё аналогично. Скрываются незаполненные столбцы и строки.

[Aleksandr H.]

Вполне сойдет. Повесьте на кнопки

Sub HideRows()
    Dim iColor, i
    iColor = Sheets(2).Range("B3").Interior.color
    For i = 2 To 120
        If Sheets(2).Cells(i, "B").Interior.color = iColor And Sheets(2).Cells(i, "B") = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
End Sub

Sub UnHideRows()
    Sheets(2).Rows.EntireRow.Hidden = False
End Sub

Ну а раздел Вторые блюда самим доработать цикл по строкам