Добрый вечер, не могу удалить ячейки без условного форматирования.
Подскажите, пожалуйста, вариант.
[vba]
Код
Sub eeee() Dim x As Integer lr = Cells(Rows.Count, 1).End(xlUp).Row For x = 1 To lr If Cells(x, 1).FormatConditions(1).Font.Color = 393372 Then Cells(x, 1).Resize(, 4).Delete Shift:=xlUp Next x End Sub
[/vba]
Сей код должен, вроде бы делать удаления, но не хочет.
Добрый вечер, не могу удалить ячейки без условного форматирования.
Подскажите, пожалуйста, вариант.
[vba]
Код
Sub eeee() Dim x As Integer lr = Cells(Rows.Count, 1).End(xlUp).Row For x = 1 To lr If Cells(x, 1).FormatConditions(1).Font.Color = 393372 Then Cells(x, 1).Resize(, 4).Delete Shift:=xlUp Next x End Sub
[/vba]
Сей код должен, вроде бы делать удаления, но не хочет.ant6729
Sub eeee() Dim x As Integer lr = Cells(Rows.Count, 1).End(xlUp).Row For x = lr To 1 Step -1 If Cells(x, 1).DisplayFormat.Interior.Color = 13551615 Then Cells(x, 1).Resize(, 4).Delete Shift:=xlUp End If Next x End Sub
[/vba]
или если всю строку удалить то так:
[vba]
Код
Sub eeee() Dim x As Integer lr = Cells(Rows.Count, 1).End(xlUp).Row For x = lr To 1 Step -1 If Cells(x, 1).DisplayFormat.Interior.Color = 13551615 Then Rows(x).Delete Shift:=xlUp End If Next x End Sub
[/vba]
может так?
[vba]
Код
Sub eeee() Dim x As Integer lr = Cells(Rows.Count, 1).End(xlUp).Row For x = lr To 1 Step -1 If Cells(x, 1).DisplayFormat.Interior.Color = 13551615 Then Cells(x, 1).Resize(, 4).Delete Shift:=xlUp End If Next x End Sub
[/vba]
или если всю строку удалить то так:
[vba]
Код
Sub eeee() Dim x As Integer lr = Cells(Rows.Count, 1).End(xlUp).Row For x = lr To 1 Step -1 If Cells(x, 1).DisplayFormat.Interior.Color = 13551615 Then Rows(x).Delete Shift:=xlUp End If Next x End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
