Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

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

Автор Денис Часенко, 27.12.2012, 20:39

« назад - далее »

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

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

Есть клиентская база, где:
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

Только что Вы с этим счастьем делать будете...
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

cheshiki1


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

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

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

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

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

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

Цитата: KuklP от 28.12.2012, 06:58
В модуль листа 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

Только что Вы с этим счастьем делать будете...

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