Удаление строки

[женя2010]

Добрый день!
Есть таблица. Допустим в столбце [В] есть нулевые и не нулевые значения. Мне нужно так что бы все строки в которых в столбце [В] есть Нули - исчезли( были очищенны). и я получил таблицу где в столбце [В] не будет нулей.
впринципе легко,но чтото я туплю)

[The_Prist]

Здрасти.
Женя, знаю, что столбец имеет фиксированную длину, поэтому последнюю строку не определяю:

Dim li as long
For li = 5 to 1 Step -1
if cells(li,2).value = 0 then rows(li).delete
next li

[женя2010]

Спасибо ! работает. но у меня наверное с листами какаето загвоздка.
ТОесть мне надо удалять строки на новом листе- как записать ссылку именно на новый лист?( названия листа я задаю с ячейки)

[The_Prist]

Приведенный макрос работает именно с ячейками активного листа. Если надо с неактивного:

Dim li as long
For li = 5 to 1 Step -1
if Sheets("Имя листа").cells(li,2).value = 0 then Sheets("Имя листа").rows(li).delete
next li

[женя2010]

блин . не получ.
смотри я на вкладке Х нажимаю кнопку. кнопка, по условию, создает новый лист переносит туда данные ...и потом я хочу в этих перенесенных даных на новом листе удалить строчки где в столбике В есть нули....а оно не работает....

[The_Prist]

Да я не знаю почему у тебя не работает. Файл не желаем приложить? Может в ячейках не нули вовсе?

[женя2010]

про не нули я тоже думал...сча приложу файло

[женя2010]

вкладка LINEARZ

[женя2010]

вместо просто кода, сделал обращение к макроса с выше указаным(не работающим в моем случае) кодом. отлично работает!
Спасибо за усердия

[женя2010]

вместо просто кода, сделал обращение к макроса с выше указаным(не работающим в моем случае) кодом. отлично работает!
Спасибо за усердия