Здравствуйте!
Не силен в коде.
Вылетает ошибка для цикла For.
Прошу помочь в определении ошибки.
[vba]Код
Public Sub CommandButton1_Click()
n = 0
While Worksheets("проба").Cells(n + 7, 2).Value <> ""
n = n + 1
Wend
For i = 1 To n
For k = 1 To 13
s = 0
While Worksheets(k).Cells(s + 6, 7).Value <> ""
s = s + 1
For v = 1 To s
If Worksheets(k).Cells(v + 5, 7).Value = Worksheets("проба").Cells(i + 6, 2).Value _
Then Worksheets("проба").Cells(i + 6, 3).Value = Worksheets(k).Cells(v + 5, 6).Value
Next v
Next k
Next i
End Sub
[/vba]
Заранее Спасибо.