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

Тема в разделе "Visual Basic", создана пользователем Mad Mike, 10 дек 2007.

Статус темы:
Закрыта.
  1. Mad Mike

    Mad Mike Гость

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

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

    Mad Mike Гость

    Спасибо, уже разобрался
     
Загрузка...
Похожие Темы - Помогите найти ошибку
  1. OlgaZag
    Ответов:
    1
    Просмотров:
    1.291
  2. OlgaZag
    Ответов:
    0
    Просмотров:
    523
  3. Google313
    Ответов:
    0
    Просмотров:
    999
  4. Marikd
    Ответов:
    2
    Просмотров:
    1.209
  5. ruivit
    Ответов:
    2
    Просмотров:
    1.329
Статус темы:
Закрыта.

Поделиться этой страницей