Здравствуйте есть макрос, который удаляет строки, если в столбце "B" шрифт ячейки красного цвета: [vba]
Код
Sub Макрос11() Dim sh As Worksheet, i As Long Set sh = Sheets("склад") With sh.UsedRange.Columns("B:B") For i = .Rows.Count To 1 Step -1 With .Cells(i) If .Font.ColorIndex = 3 Then .EntireRow.Delete End With Next i End With End Sub
[/vba] как можно изменить макрос, чтобы строки удалялись, если в ячейках столбца "B" обнаружены числа от 0 до 100, соответственно строки с ячейками от 101 и выше не удалялись *в числах, возможно, есть пробелы - в начале числа или в конце, пробелы нужно игнорировать *в ячейках столбца "B" имеются числа, не по порядку от 0 до 900
Здравствуйте есть макрос, который удаляет строки, если в столбце "B" шрифт ячейки красного цвета: [vba]
Код
Sub Макрос11() Dim sh As Worksheet, i As Long Set sh = Sheets("склад") With sh.UsedRange.Columns("B:B") For i = .Rows.Count To 1 Step -1 With .Cells(i) If .Font.ColorIndex = 3 Then .EntireRow.Delete End With Next i End With End Sub
[/vba] как можно изменить макрос, чтобы строки удалялись, если в ячейках столбца "B" обнаружены числа от 0 до 100, соответственно строки с ячейками от 101 и выше не удалялись *в числах, возможно, есть пробелы - в начале числа или в конце, пробелы нужно игнорировать *в ячейках столбца "B" имеются числа, не по порядку от 0 до 900sashgera
а убрать пробелы из чисел можно или надо, чтобы они оставались?
kapacik, нет, пробелы из чисел, если они есть, удалять не надо. Важно чтобы макрос правильно "понял" это число пробелы могут появиться, если менеджер случайно нажал пробел, а потом набрал число. Или набрал число, а потом еще случайно нажал пробел
а убрать пробелы из чисел можно или надо, чтобы они оставались?
kapacik, нет, пробелы из чисел, если они есть, удалять не надо. Важно чтобы макрос правильно "понял" это число пробелы могут появиться, если менеджер случайно нажал пробел, а потом набрал число. Или набрал число, а потом еще случайно нажал пробелsashgera
а можно сделать дополнительный столбец к таблице в котором будут стоять такие числа, но без пробелов?
ну или допустим создать его макросом, а потом удалить
надо в соседнем столбце применить формулу СЖПРОБЕЛЫ, а дальше через дополнительный IF провеять значения в этом столбце чтобы они были менее 100 и удалять
а можно сделать дополнительный столбец к таблице в котором будут стоять такие числа, но без пробелов?
ну или допустим создать его макросом, а потом удалить
надо в соседнем столбце применить формулу СЖПРОБЕЛЫ, а дальше через дополнительный IF провеять значения в этом столбце чтобы они были менее 100 и удалятьkapacik
RAN, выдает ошибку: Compile error: Invalid or unqualified reference [vba]
Код
Sub Макрос22() Dim sh As Worksheet, i As Long Set sh = Sheets("склад") With sh.UsedRange.Columns(2) For i = .Rows.Count To 1 Step -1 With .Cells(i) If CDbl(Replace(.Value, " ", "")) <= 100 Then .EntireRow.Delete End With Next i End With End Sub
[/vba]
RAN, выдает ошибку: Compile error: Invalid or unqualified reference [vba]
Код
Sub Макрос22() Dim sh As Worksheet, i As Long Set sh = Sheets("склад") With sh.UsedRange.Columns(2) For i = .Rows.Count To 1 Step -1 With .Cells(i) If CDbl(Replace(.Value, " ", "")) <= 100 Then .EntireRow.Delete End With Next i End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
