Помогите найти ошибку в коде VbА

  • Автор темы Mad Mike
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mad Mike

#1
Вот написал программу которая дожна брать значение из ячейки с первого листа и вычитать его из строки на втором листе при условие что ячейка из которой вычитают не пуста и ее значение не равно нулю вот код

Код:
 Dim x As Long
Dim y As Long
Dim myValue As Long
Dim myEmpty

myEmpty = ""

With ActiveCell
x = .Row
y = .Column
myValue = .Value
End With

For y = 1 To 256
If Worksheets(2).Cells(5, y) <> myEmpty Or Worksheets(2).Cells(5, y) <> vbNull Then
Worksheets(2).Cells(5, y) = Worksheets(2).Cells(5, y) - myValue
Exit For
End If
Next y
Но программа всеравно вычитает и из нуля и из пустой клетки, помогите пожалуйста найти ошибку
 
Статус
Закрыто для дальнейших ответов.