Доброе утро!
Прошу помочь с макросом зашитым в элемент АктивХ, файл с поддержкой макросов не загрузился(((
Макрос:
[vba]Код
Private Sub Отчет_Click()
'Приведение отчета к нормальному виду
If Range("A5") = "Да" Then Rows("20:25").Select
Selection.EntireRow.Hidden = True
If Range("A5") = "Нет" Then Rows("20:25").Select
Selection.EntireRow.Hidden = False
If Range("A6") = "Да" Then Rows("11:17").Select
Selection.EntireRow.Hidden = True
If Range("A6") = "Нет" Then Rows("11:17").Select
Selection.EntireRow.Hidden = False
End Sub
[/vba]