Автоматический перенос данных из нового листа.

[Алексей Устинов]

Доброго времени суток!
Прошу помощи.
при написании в ячейке А3 слова создается из шаблона лист с таким же именем.
необходимо чтоб в ячейки С3 и D3 подставились автоматический данные из ячеек (созданного листа) L19 и M19 соответственно.

Заранее огромное благодарю.

[ShAM]

Если правильно понял, добавляем в конце пару строк:

Код Выделить Развернуть

...
Sheets("Зарплата в ДАР").Range("C" & Target.Row) = Sheets(Target.Value).[l19]
Sheets("Зарплата в ДАР").Range("D" & Target.Row) = Sheets(Target.Value).[m19]
End Sub

[Алексей Устинов]

Если правильно понял, добавляем в конце пару строк:

Огромное Спасибо.

Ну есть еще просьба данные в ячейках С3 и D3 не обновляются при изменении данных в новом листе. А надо бы чтоб обновлялись если конечно такое возможно.

[ShAM]

Тогда, наверное, так.

Код Выделить Развернуть

Sheets("Зарплата в ДАР").Range("C" & Target.Row).Formula = "='" & Sheets(Target.Value).[a1] & "'!L19"
Sheets("Зарплата в ДАР").Range("D" & Target.Row).Formula = "='" & Sheets(Target.Value).[a1] & "'!M19"