макрос на скрытие строк

[NooBasTiK]

Не знаю VBA поэтому прошу помощи в решении задачи:
Есть большая таблица в которой необходимо скрыть строки по критерию. Критерием является столбец в котором стоит знак *. Т.е. если есть знак звездочка то скрывать не надо, а если просто пусто то надо. Просматривать столбец необходимо до последней ячейки в которой вносились данные а не по всему столбцу до 65000 строки. Спасибо за внимание! Столбец можно использовать любой я сам потом поправлю на свой.

[Шпец Докапыч]

См. Empty2Hidden2.rar

[NooBasTiK]

Это всё хорошо, но диапазон? Можно доработать код так что бы диапазон определялся сам, т.е. до последней ячейки с данными.

[Шпец Докапыч]

Это запросто:

Код Выделить Развернуть

'Set DinDiap = [E2:E12] 'здесь уже не указывается диапазон
  LR = Range("E" & Rows.Count).End(xlUp).Row + 1
  Set DinDiap = Range("E2:E" & LR) 'здесь определяется диапазон
  SR = DinDiap.Row: fl = -2

[exceleved]

Попробуйте

Код Выделить Развернуть

columns("E").specialcells(xlcelltypeblanks).entirerow.hidden=true

[NooBasTiK]

Это запросто:

Код Выделить Развернуть

'Set DinDiap = [E2:E12] 'здесь уже не указывается диапазон
  LR = Range("E" & Rows.Count).End(xlUp).Row + 1
  Set DinDiap = Range("E2:E" & LR) 'здесь определяется диапазон
  SR = DinDiap.Row: fl = -2

Сделал по другому

Код Выделить Развернуть

Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 5).End(xlUp).Row
    Set DinDiap = Range("E2:E" & lLastRow)
Спасибо!