Автом перенос инфы из базы в шаблон квитанции

[Денис Часенко]

Ребята, есть проблемка, пожалуйста помогите в решении! А именно:

Есть клиентская база, где:
1 Лист - это сама база, где в каждой строке есть данные о клиенте и заказе.
2 -ой Лист это Шаблон\Форма квитанции с соответствующими полями, которые должны дублировать некоторую информацию 1-го Листа.
Возможно ли сделать так, чтоб при активации любой ячейки в каждой строке заказа  на 1-ом Листе, автоматически копировались данные 1-ой ячейки (номер заказа), 3-ей ячейки(наименование товара) ,5-ой ячейки(сумма) соответствующей строки 1-го листа в форму\шаблон Квитанции на 2-ой лист тоже в соответствующие поля в квитанции.
Таким образом, чтоб если я активировал любую ячейку нужной мне строки заказа, я уже знал, что на Втором листе уже есть заполненная Квитанция готовая к печати.

Если возможно, прошу помощи!   

[kuklp]

В модуль листа 1:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect([a1].CurrentRegion, Target) Is Nothing Then Exit Sub
    Dim r&: r = Target.Row
    Range("B" & r & ",D" & r & ",F" & r & ",H" & r & ",J" & r).Copy _
    [Лист2!h65536].End(xlUp)(2)
End Sub
Только что Вы с этим счастьем делать будете...

[cheshiki1]

вот посмотрите может как вариант подойдет.
http://www.planetaexcel.ru/techniques/7/93/

[Денис Часенко]

Вы мне очень помогли!!! Спасибо, мне такое решение очень даже подойдет, сейчас буду разбираться, и применять!

[Денис Часенко]

вот посмотрите может как вариант подойдет.
http://www.planetaexcel.ru/techniques/7/93/

Это решение просто супер!

[Денис Часенко]

В модуль листа 1:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect([a1].CurrentRegion, Target) Is Nothing Then Exit Sub
    Dim r&: r = Target.Row
    Range("B" & r & ",D" & r & ",F" & r & ",H" & r & ",J" & r).Copy _
    [Лист2!h65536].End(xlUp)(2)
End Sub
Только что Вы с этим счастьем делать будете...

Я и сам не знаю, что с этим делать ))) уж слишком зелен я для такого... Но спасибо за помощь! Благодаря Вашему форуму, и отзывчивости людей, я уже решил множество важных для меня задач! Всем спасибо. Всех с НГ!