Всем привет!
Есть большая таблица с формулами. В столбце Z стоят формулы выдающие только "1" или "0". Требуются 2 макроса: один скрывает строки, где в столбце Z формула выдала "0", а другой макрос удалял бы такие строки (после завершения редактирования таблицы). Здесь на форуме скопировала и с успехом пользовалась макросом:
Sub СкрытиеСтрок()
Dim cell As Range: Application.ScreenUpdating = False
For Each cell In [Z1:Z500].Cells
' скрываем строку, если в колонке Z пусто
If cell.Find("*", , xlValues, xlPart) Is Nothing Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub
но макрос почему-то работает корректно только, когда в столбце Z стоят цифры "1" или "0", а не формулы. Заранее извиняюсь, ибо тема избитая, но ничего путного больше найти не удалось...
Есть большая таблица с формулами. В столбце Z стоят формулы выдающие только "1" или "0". Требуются 2 макроса: один скрывает строки, где в столбце Z формула выдала "0", а другой макрос удалял бы такие строки (после завершения редактирования таблицы). Здесь на форуме скопировала и с успехом пользовалась макросом:
Sub СкрытиеСтрок()
Dim cell As Range: Application.ScreenUpdating = False
For Each cell In [Z1:Z500].Cells
' скрываем строку, если в колонке Z пусто
If cell.Find("*", , xlValues, xlPart) Is Nothing Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub
но макрос почему-то работает корректно только, когда в столбце Z стоят цифры "1" или "0", а не формулы. Заранее извиняюсь, ибо тема избитая, но ничего путного больше найти не удалось...
