Как исправить данную ошибку в Excel?

Question

[beduin01]

Вылетает вот такая ошибка. Как понимаю ему не нравится тип. Не подскажите как исправить?

Answer 1

[Антон Федорян]

Работает. Dim j As Integer

Sub ololo()
    Sheets("List").Select
    Dim j As Integer
    j = 1
    Do Until Range("A" & j) = ""
        Range("B" & j) = CDate(Range("A" & j)) + 14
        Range("C" & j) = CDate(Range("A" & j)) + 21
        j = j + 1
    Loop
End Sub

С отловом ошибок:

Sub ololo()
On Error GoTo WTF
    Sheets("List").Select
    Dim j As Integer
    j = 1
    Do Until Range("A" & j) = ""
        Range("B" & j) = CDate(Range("A" & j)) + 14
        Range("C" & j) = CDate(Range("A" & j)) + 21
        j = j + 1
    Loop
    MsgBox ("No errors! Success!")
    GoTo StopThisShit:
WTF:
    MsgBox ("ololo!!! Error there: " & Str(j))
    Range("B" & j) = "ololo"
    Range("C" & j) = "ololo"
    Resume Next
StopThisShit:
End Sub

Comments

[beduin01]

Так, я вроде бы сделал как вы предлагаете, однако та же ошибка img.ctrlv.in/img/15/12/22/56795ce594127.png

[h8nor]

beduin01: В ответе написал, почему у Вас ошибка.

[Антон Федорян]

beduin01: дык отладку для кого придумывали? Исправил код. И ведь Дѣаволъ: не один раз вам уже писал что с типами данных непорядок!

Answer 2

[h8nor]

Не нужно Вам использовать функцию CDate; в Excel по умолчанию даты - это числа, - хорошо складываются.
Как написал Антон Федорян задайте тип переменной j. Без указания типа переменной получается j As Variant. Если будет возникать указанная ошибка, у Вас в колонке A попалось "не число". Примечание: Типы данных.