Проблема в коде (vba) переменная возвращает 0

[Mad Mike]

Подскажите почему значение b возвращает 0 вместо 13
вот код

Dim x As Integer
Dim y As Integer
Dim a As Integer
Dim b As Integer

x = ActiveCell.Row
y = ActiveCell.Column
a = ActiveCell.Value
For i = x To 1
If Worksheets(1).Cell(x, 1).Value = "13" Then
b = Worksheets(1).Cell(x, 1).Value
Else
MsgBox ("Error")
End If
Next i
MsgBox (a)
MsgBox (b)

 

[Over]

Непонятна вот эта строчка:

For i = x To 1

Что ты хотел этим циклом? Чтобы значения i убывали от х до 1 ? В таком случае нужно было написать For i = x To 1 Step -1, чтобы значения шли по убыванию.

 

[Mad Mike]

Спасибо уже разобрался