Задача: пользователь выделил диапазон, где есть пустые строки, в результате пустые строки должны скрыться. Вот что у меня получилось:
Sub Sum()
Dim i As Integer
Dim cur_range As Range
With ActiveSheet 'Активный расчетный лист
Set cur_range = Selection 'Включаем выделенный диапазон
cur_range.Activate 'Активизируем Range
i = 0
For X = 1 To cur_range.Rows.Count '
For y = 1 To cur_range.Columns.Count '
If cur_range(X, y) = 0 Then
i = i + 1
End If
Next y
If i = 0 Then
Rows(X + ":" + X).Select 'Выбор строки
Selection.EntireRow.Hidden = True 'Скрытие строки
End If
i = 0
Next X
End With
End Sub

Ошибок не выдает, но и рабоать не хочет. Подскажите, если такое возможно. Очнеь буду ждать.

Заранее спасибо.

Может дело в том, что я уже выделила диапазон, а потом еще и строку в нем хочу выделить?

У меня цифры :)

Большое спасибо @->--

Простите, а если задача: скрыть только те строки, где ячейки все пустые, а те строки, где часть ячеек заполнена, а часть пустая - оставлять. Что изменится?
Исправить у меня не получается :(

Спасибо.

Вот, что есть у меня. НО макрос сворачивает все строки, где есть хотя бы одна пустая ячейка. А хотелось бы сворачивать строки, где все ячейки пустые
Sub Sum2()
Dim i As Integer
Dim j As Integer
Dim curr_r As Range
Set curr_r = Selection
Range("A1").Select
i = 0
j = 0
For Each Row In curr_r
For Each Cell In Row
j = j + 1
If Cell.Value = "" Then
i = i + 1
End If
Next
If i = j Then
Row.Select
Selection.EntireRow.Hidden = True
End If
i = 0
j = 0
Next
End Sub

Я не могу найти свою ошибку. Помогите, если такое возможно.

Все поняла, большое спасибо. Так много тонкостей.

Спасибо большое @->--