сбор значений с листов в один

[Lyova]

прошу помощи!

проблема:
есть несколько листов пронумерованых 1,2,3,4... и т.д.
есть главный лист в первом столбце которого также 1,2,3,4... и т.д.
хотелось бы сделать так, чтобы при заполнении первого столбца подбирались данные из конкретных и одинаковых ячеек с конкретного листа и вставлялись на главный лист в ячейки справа от заполняемой.

например при вставке в А2 значения "1" ищем лист "1", берём значение ячейки В10 и вставляем на главный лист в В2.
в А3 вставляем "2" и в ячейку В3 вставляется значение ячейки В10, но уже с листа "2" и т.д.

ручками всё это сделано, но хотелось бы чтоб один раз задал формулу или макрос и всё само подбиралось, так как значений несколько.

[b00s]

Что то вроде этого ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As String
If Target.Column = 1 Then
    If Target <> "" Then
        sh = Sheets(1).Cells(Target.Row, 1)
        Debug.Print sh
        Sheets(1).Cells(Target.Row, 2).Value = Sheets(sh).Range("B10").Value
    End If
End If

End Sub

[Юнлинг]

Сообщение от Lyova

прошу помощи!

проблема:
есть несколько листов пронумерованых 1,2,3,4... и т.д.
есть главный лист в первом столбце которого также 1,2,3,4... и т.д.
хотелось бы сделать так, чтобы при заполнении первого столбца подбирались данные из конкретных и одинаковых ячеек с конкретного листа и вставлялись на главный лист в ячейки справа от заполняемой.

например при вставке в А2 значения "1" ищем лист "1", берём значение ячейки В10 и вставляем на главный лист в В2.
в А3 вставляем "2" и в ячейку В3 вставляется значение ячейки В10, но уже с листа "2" и т.д.

ручками всё это сделано, но хотелось бы чтоб один раз задал формулу или макрос и всё само подбиралось, так как значений несколько.

Попробуй так

=ДВССЫЛ(A2&"!$b$10";ИСТИНА)

а остальные просто скопируй

[Lyova]

Может и оно, только вот работать не хотит. :-(

[Юнлинг]

Сообщение от Lyova

Может и оно, только вот работать не хотит. :-(

Проверял работает.
Только внимательно посмотри где ковычки. сделаешь ошибку в написании не будет работать.

[Lyova]

Сообщение от Юнлинг

Попробуй так

=ДВССЫЛ(A2&"!$b$10";ИСТИНА)

а остальные просто скопируй

Да! Именно оно! СПАСИБО!

предыдуший пост был про макрос.