Как связать ячейки на двух листах?

[Pirks]

Добрый день!
Прошу помочь. Есть файлик обзвонки клиентов.

На лист Список заносятся данные. С этого листа на лист Для обзвонки делается выборка.

Задача в том чтобы при заполнении ячейки Комментарий на листе Для обзвонки, этот комментарий копировался в соответствующую ячейку на первом листе Список.

Для знающих людей задача элементарна, а моих знаний в VBA пока не хватает. Буду очень благодарен за помощь!

[Mutarix]

Добрый день, Pirks

Эту задачу можно попробовать решить стандартными средствами Excel

=ИНДЕКС('Для обзвона'!$H$2:$H$9;ПОИСКПОЗ(Список! C4;'Для обзвона'!$F$2:$F$9;0);1)

[Pirks]

К сожалению такой подход не подходит.
В данном случае на листе Список отображаются как бы ссылки на комментарии с листа Для обзвона, сами комментарии не копируются.
Поэтому как только мы закроем файл и откроем снова, лист Для обзвона будет создан заново и комментариев там уже не будет...(

Нужен скрипт который будет именно копировать значения из ячейки листа обзвона в лист Список

[valerij]

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

К сожалению такой подход не подходит.
В данном случае на листе Список отображаются как бы ссылки на комментарии с листа Для обзвона, сами комментарии не копируются.
Поэтому как только мы закроем файл и откроем снова, лист Для обзвона будет создан заново и комментариев там уже не будет...(

Нужен скрипт который будет именно копировать значения из ячейки листа обзвона в лист Список

Дык перенесите формулу в макрос - рекодером

Sub Макрос1()
    ActiveCell.FormulaR1C1 = _
        "=INDEX('Для обзвона'!R2C8:R9C8,MATCH(Список!R[3]C[2],'Для обзвона'!R2C6:R9C6,0),1)"
End Sub

[Pirks]

Друзья, так не получится.
Комментарии будут исчезать после закрытия документа.
Лист для обзвона каждый раз формируется заново.

Нужно чтобы все что мы написали в комментариях на листе для обзвона физически скопировалось на лист Список. Тогда это можно будет сохранить при закрытии. Это формулой не сделать.

[IgorGO]

Валера "порожняк" гнать не будет
сказал надо использовать макрорекордер - используйте макрорекордер. с Валерой тут спорить никто не решиться, судьба Вам использовать макрорекордер...

[Pirks]

Всем спасибо, разобрался сам.=)
Сделал через событие Workbook_SheetChange (Валерий, без обид)

Кому надо результат во вложении, код ниже.
А вообще стыдно должно быть товарищи Знатоки=). Заставили меня самого разбираться. Теперь и я понимаю что эту задачу опытному человеку решить 2 минуты, а мне без опыта в VBA вечер пришлось тратить.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Для обзвона" Then
    If Target.Column = 8 Then
        If Target.Count > 1 Then
            MsgBox "Нельзя заполнять комментарии перетаскиванием!"
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
        Else
            Dim avData
            Dim sFIO As String
            Dim Lr As Long
            With Sheets("Список")
                Lr = .Cells(.Rows.Count, 2).End(xlUp).Row
                avData = .Cells(1, 2).Resize(Lr, 3).Value
                sFIO = Target.Offset(0, -7).Value
                If sFIO = "" Then Exit Sub
                For Lr = 4 To UBound(avData, 1)
                    If avData(Lr, 1) = sFIO Then
                        .Cells(Lr, 8).Value = Target.Value
                     End If
                Next Lr
            End With
         End If
     End If
 End If
End Sub

[IgorGO]

то, что Вы потратили время на свою задачу, это так же нормально как и то, что "знатоки" не захотели этого делать

очень сомневаюсь что кто-то из них испытывает чувство стыда за несодеянное. тут нет военнообязанных - интересно и хотят помочь - помогают, не интересно и не хотят - не помогают