Непростой перенос данных из одной таблицы в другую

[BoJIk]

Здравствуйте, уважаемые форумчане!
Очень нужна ваша помощь по переносу данных из одной таблицы в другую, пожалуйста =)
Имеются 2 таблицы:
1) Инвентарная карточка
2) Таблица с данными (Номер по порядку, наименование оборудования, балансовая стоимость, инвентарный номер). Объектов порядка 400 штук
Задача: Выполнить перенос данных из одной таблицы в другую в указанные ячейки (ячейки я выделил цветами). Причем каждый раз в новую инвентарную карточку, которую необходимо вставлять ниже уже ранее созданной (т.к. потом это все дело надо будет еще распечатывать). Остальные поля либо являются константой, либо вовсе остаются пустыми.

Заранее спасибо и низкий поклон.

P.S. Также можете посоветовать самоучитель по программированию в Excel. Чую, что подобных задач у меня по работе еще будет много :\

[gluk_fm]

Лови, на листе 1 всё выгружается. Только если карточек больше то в модуле проставляй ТО "количество строк с данными"

[IgorGO]

см. вложение
на листе данные данные могут быть собраны хоть со всей Якутии.

[Hugo121]

Думаю, что у gluk_fm тактически не правильно.
Что теперь с этой простынёй делать? Прямо так печатать нельзя - разбивки на листы нет...
Я бы кодом в цикле подставлял данные (или вообще только номер, а остальное тянет ВПР() ) на первый лист, спрашивал одобрения печати и печатал по одному листу.
Можно ещё добавить ввод начального номера и отказ от печати.
Так и бумага будет цела, и нервы.
Если твёрдо решили печатать все 400 и будь что будет - запрос можно отключить (убрать из кода, или добавить чекбокс/запрос_запроса ).

На другом форуме я сделал почти как IgorGo - только по номеру, на ВПР() и с постоянным диапазоном.
У Игоря лучше.

[gluk_fm]

Согласен, критика полностью правильна.
Что-то протупил и не подумал о таком варианте.

[mode]

>>самоучитель по программированию в Excel
>>Что теперь с этой простынёй делать?
1. использовать таблицы (в 2007-2010 на ribon-е Главная форматировать как таблицу)
(будет куча преимуществ: включая именнованный диапазон, итоги и сводные таблицы)

2. Жмем на листе конструктор "Сводная таблица"
(Выбираем нужные столбцы и используем условное форматирование)
создаем ссылки в никуда

3. Пишем обработчик
Worksheet_FollowHyperlink для печати

[IgorGO]

Hugo121, gluk_fm, спасибо, пропиарили решение...

gluk_fm,

Согласен, критика полностью правильна

прямой критики не было, хотя... намек в моем сообщении есть. извините, не со зла. (встречаются на форуме тонкие психологи, надо следить за... речью)

[BoJIk]

Спасибо большое за помощь! Я смотрю здесь оригинальная система "лайков" =)))
Оба варианта как раз то что нужно, т.к. в бухгалтерию лучше сдать "одной большой простыней", а распечатать как по второму варианту.

Только я пока еще не силен в таких делах. Кто нибудь сможет подсказать как написать данный цикл?

Не подскажете ли как создать макросом цикл по номерам и печать, чтобы автоматически напечатать 400 страниц?

[Hugo121]

Просто, без изысков на примере Игоря http://www.programmersforum.ru/attac...8&d=1324549171 :

Sub NaPecatj()
    Dim cc As Range, rr As Range
    With Sheets("Данные")
        Set rr = .Range(.[G5], .Range("G" & .Rows.Count).End(xlUp))
    End With

    With Sheets(1)
        For Each cc In rr.Cells
            .[d16] = cc
        Next
        .PrintOut
    End With
End Sub

Можно далее усложнять - добавить возможность приостановить/остановить процесс, запустить с определённого листа, или спрашивать перед каждым листом, нужно ли его печатать...