Поиск по листам и вывод соседнего значения,

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Поиск по листам и вывод соседнего значения, - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск по листам и вывод соседнего значения, (Формулы/Formulas)

Поиск по листам и вывод соседнего значения,

DreOne

Дата: Четверг, 10.12.2015, 11:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте!
Не силен в коде.
Вылетает ошибка для цикла 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]

Заранее Спасибо.