Добрый день. Нужен макрос, скрывающий строки 31-61 на листе "Акт" при d52=0 и строки 62-94 при d85=0. Запускать он будет по кнопке с листа "реестр" пробовал начать с этого Код: (vb)
Sub Printact() If Cells(4, 52).Value = 0 Then Rows("31:61").Hidden = True Else: Rows("31:61").Hidden = False End If End Sub
но почему то не получается, строки скрываются при любом значении d52((.
Добрый день. Нужен макрос, скрывающий строки 31-61 на листе "Акт" при d52=0 и строки 62-94 при d85=0. Запускать он будет по кнопке с листа "реестр" пробовал начать с этого Код: (vb)
Sub Printact() If Cells(4, 52).Value = 0 Then Rows("31:61").Hidden = True Else: Rows("31:61").Hidden = False End If End Sub
но почему то не получается, строки скрываются при любом значении d52((.Ducha
Без файла если, то Cells(4, 52) - это 4 строка и 52 столбец. Вам нужно наоборот Cells(52, 4) А вообще - обязательно прикладывайте свой файл-пример. И почитайте это.
Без файла если, то Cells(4, 52) - это 4 строка и 52 столбец. Вам нужно наоборот Cells(52, 4) А вообще - обязательно прикладывайте свой файл-пример. И почитайте это._Boroda_
Спасибо большое заработало, туплю все утро))) А как сделать чтоб запускалось именно на листе "Акт", так не получается
Sub Printact() With Worksheets("Акт") Rows("31:61").Hidden = False If Cells(52, 4).Value = 0 Then Rows("31:61").Hidden = True End If End with End Sub [moder]Вы русский язык понимаете? Файл кладите
Спасибо большое заработало, туплю все утро))) А как сделать чтоб запускалось именно на листе "Акт", так не получается
Sub Printact() With Worksheets("Акт") Rows("31:61").Hidden = False If Cells(52, 4).Value = 0 Then Rows("31:61").Hidden = True End If End with End Sub [moder]Вы русский язык понимаете? Файл кладитеDucha
Sub Printact() With Worksheets("Акт") .Rows("31:61").Hidden = False If .Cells(52, 4).Value = 0 Then .Rows("31:61").Hidden = True End If End With End Sub
[/vba]
Так нужно? [vba]
Код
Sub Printact() With Worksheets("Акт") .Rows("31:61").Hidden = False If .Cells(52, 4).Value = 0 Then .Rows("31:61").Hidden = True End If End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
