удалить значение, если оно не равно числу

Пользователь

Сообщений: 96 Регистрация: 31.03.2015

27.06.2016 17:09:24

Как удалить значение, если в следующей ячейке, под ней, стоит слово. Если так удаляем, если стоит цифра то не удаляем. у меня не работает мой код(

Код

With Sheets("Заказ")
      For Each y In Sheets("Заказ").Range("F1:F250")
      If LCase(y.Text) Like "*кол-во*" Then
             
      
         If IsNumeric(y.Offset(1, 0)) = False Or y.Offset(1, 0) = "" Then
      y.EntireRow.Delete
      End If
          End If
        
         Next y
      End With

Изменено: kleo90 - 27.06.2016 17:10:07

Jack Famous Пользователь Сообщений: 12274 Регистрация: 07.11.2014 OS: Win 10 Корп. x64 \| Excel 2016 x64: \| Browser: Chrome	#2 27.06.2016 17:10:44 kleo90, загрузите файл-пример Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

Максим Зеленский

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

27.06.2016 17:13:22

а так?

Код

With Sheets("Заказ")
      For Each y In Sheets("Заказ").Range("F1:F250").Cells
          If LCase(y.Offset(1,0).Text) Like "*кол-во*" Then
              If Not IsNumeric(y) Or y = "" Then y.EntireRow.Delete
          End If
      Next y
End With

Изменено: Максим Зеленский - 27.06.2016 17:14:48

F1 творит чудеса

Читают тему