А просто автофильтром?

Если именно ВБА, то:  
Public Sub RowHide()  
Dim i As Integer  
For i = 4 To 20  
If Cells(i, 1).Value = "" Then Rows(i).RowHeight = 0  
Next  
End Sub  
 
Public Sub RowsShow()  
   Rows("4:20").RowHeight = 15  
End Sub

Или, если строго следовать заданию:  
Public Sub RowHide()  
Dim i As Integer  
For i = 4 To 20  
If Cells(i, 1).Value = "" Then Rows(i).Hidden = True  
Next  
End Sub  
 
Public Sub RowsShow()  
   Rows("4:20").Hidden = False  
End Sub

Всем спасибо, но это конечно не решение...  
Серёг, Rows("4:20").Hidden = False я и сам макрорекордером могу записать :-)  
Количество строк для отображения/скрытия заранее неизвестно, оно получается в результате работы формул, содержащихся в этих строках.  
 
Кстати круче было бы не по кнопке скрывать строки, а по заполнению строк, реал тайм.

Соответсвенно:  
Public Sub RowsShow()  
Dim lr As Long  
lr = [A2].CurrentRegion.Rows.Count
   Rows("4:" & lr).Hidden = False  
End Sub  
В прошлом посте строка с селектом лишняя. Забыл удалить.

{quote}{login=KuklP}{date=16.08.2010 10:36}{thema=}{post}Так?  
Public Sub RowHide()  
..............................{/post}{/quote}По коду: Да, так, спасибо.  
По "хотелке": Типа. Если в результате работы формулы в скрытой строке появилось значение - она отображается. И наооборот.  
 
ЗЫ Код медленно очень работает, можно к нему прогрессбар привинтить красивый?

Ну, для меня разницы никакой.  
Так же правильно и так же медленно...

Такая фенька не всегда срабатывает при последних скрытых строках. Я сознательно пошел другим путем.  
Вообще правильней будет:  
lr = [A2].CurrentRegion.Rows.Count + [A2].CurrentRegion.Row - 1
Но в этом конкретном случае такое не важно.  
Если есть желание гляньте тему: http://www.planetaexcel.ru/forum.php?thread_id=18295    
Там о том же есть.

{quote}{login=KuklP}{date=16.08.2010 10:59}{thema=}{post}Так быстрей.{/post}{/quote}Ага! То что надо. Спасибо Серёг!  
ЗЫ Задача решена. Как насчёт онлайн изменений?

Но опять же, как ты внесешь данные в скрытую строку? Ерунда...  
Мож чего позже в голову прийдет.  
 
99550

Вот так можно, но... Пробуй.  
В модуль листа:  
Private Sub Worksheet_Calculate()  
RowHide  
End Sub  
В общий модуль:  
Public Sub RowHide()  
Dim i As Integer, lr As Long  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
lr = [A2].CurrentRegion.Rows.Count + [A2].CurrentRegion.Row - 1
For i = 4 To lr  
If Cells(i, 9).Value = 0 Then  
Rows(i).Hidden = True  
Else  
Rows(i).Hidden = False  
End If  
Next  
Application.EnableEvents = True  
Application.ScreenUpdating = True  
End Sub  
Но будет дрыгаться на каждый чих.  
 
97337

Добрый день. Как  при помощи VBA  подкорректировать ,  
что-бы можно было скрыть-отобразить незаполненные ячейкив строках  
По одной  расходной накладной можно отпустить  
несколько товара и ячейки A10,B12  нет необходимости заполнять  
 
Т.Е невсегда  ячейки А10,  B12   могут быть заполнены  
 
я в ячейках A10:A13  прописал знак ="" - работает  
После  каждого открытия книги нужно прописывать знак ="" -это неудобно  
Спасибо.  
Юра

Спасибо.Вариант отличный. А если все строки заполнены,то выдает ошибку, так как нет пустых строк. А как устранить эту ошибку?  
Спасибо.

Есть файл, в  котором есть 2 кнопки : "Скрыть" и "Отобразить".    
Условия выбираются фильтром, а затем кнопки скрывают пустые ячейки, если таковые есть в диапазоне, либо отображают все ячейки  
 
Писал макрос не я, потому ничего сказать о его содержимом не могу. Всё прекрасно работало. Добавлял строки и столбцы в таблицу....но в какой то момент просто перестал работать. Хотя в содержимое макроса не лазил нигде, кроме прописывания диапазона в котором и должно проверяться наличие/отсутствие содержимого ячеек.  
 
В данный момент скрываются абсолютно все солбцы(не важно пустые или нет), а строки наоборот: скрываются только на части диапазона.  
Прошу помощи!!! Заранее благодарен, если здесьобитающие ГУРУ просветят меня в моей безграмотности!  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>