M
Mad Mike
Вот написал программу которая дожна брать значение из ячейки с первого листа и вычитать его из строки на втором листе при условие что ячейка из которой вычитают не пуста и ее значение не равно нулю вот код
Но программа всеравно вычитает и из нуля и из пустой клетки, помогите пожалуйста найти ошибку
Код:
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
Но программа всеравно вычитает и из нуля и из пустой клетки, помогите пожалуйста найти ошибку