Добрый вечер, всем тем кто еще не спит.
Есть один макрос, который отлично скрывает строки когда в конце заданного диапазона есть пустые ячейки:
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, R&
R = 4
Range("4:13").EntireRow.Hidden = False
For Each c In Range("A4:A13")
If c.Value = "" Then Exit For
R = R + 1
Next
Range(R & ":13").EntireRow.Hidden = True
End Sub
[/vba]
Появилась одна задачка которую не смог решить этим макросом. Пытался подправить сам - все ломается.
Когда появляются пустые строки внутри диапазона - макрос скрывает строки от этой пусто и все ниже (в т.ч. там где есть инфа).
Файл во вложении. Если не сложно, помогите подпилить макрос.