Здравствуйте есть макрос, который удаляет строки, если в столбце "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