Страницы: 1
RSS
Скрытие (удаление) строк
 
Всем привет!  
Есть большая таблица с формулами. В столбце 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", а не формулы. Заранее извиняюсь, ибо тема избитая, но ничего путного больше найти не удалось...
 
Как-то так.
 
Подрихтовал код :)
 
Где? ))
Страницы: 1
Наверх