Не удаляются строки в Excel.

[chempion]

.. копирую лист, затем вставляю значения в новый лист с учетом форматов (причем только значения). Затем удаляю все строки значения которых в столбце С = "фак.". Затем удаляю не нужные мне стобцы.
Короче мне нужно из гиганского листа получить ежемесячный отчет и сохранить его.

Трабл: в оригинале строки со значением "фак." удаляются, а вот при попытке сделать ту же процедуру с другим столбцом и другим значением ячейки нет. Попытался создать небольшой аналог для наглядности, но в нём вообще не работает макрос.

Помогите устранить ошибку!!!!!

[Genyaa]

Я бы предложил для сохранения ширины столбцов скопировать весь лист и вставить (PasteSpecial) только данные по месту (если это действительно нужно):

Код: Выделить всё

    Sheets("Лист1").Copy Before:=Sheets("Лист1")
    With ActiveSheet
        .Cells(1, 1).Select
        .Name = "Расстановка+"
        .UsedRange.Copy
        .UsedRange.PasteSpecial Paste:=xlValues
    End With

Удаление столбцов Range("B:B,D:E").Delete у меня отработалось без проблем.

А вот поиск "фак" у Вас происходит не в том столбце - поэтому и не находит их, и поэтому строки не удаляются.

Чтобы сделать высоты строк по содержимому, нужно эти строки и иметь в виду, а не столбцы... т.е. я думаю нужно убрать Columns("B:H").Select.

[Чудовище под кроватью]

Не понял... копируешь лист, а потом на скопированный лист копируешь значения? А какой смысл? - Они ведь уже там будут после копирования листа. Аналогично - не ясен смысл подгона форматов листа-копии под исходный лист.
Если хочешь убрать формулы, то, видимо, после копирования листа надо добавить:

Код: Выделить всё


Rem: если не знаешь, где конкретно находятся формулы, то:
With ActiveSheet.UsedRange
.Value = .Value
End With

Rem: Если знаешь, где расположены формулы, то:
With Range(диапазон_с_формулами)
.Value = .Value
End With

[Genyaa]

Код: Выделить всё

With ActiveSheet.UsedRange
.Value = .Value
End With


Да, это проще. Согласен.