Дублирование выбранных ячеек.

[GrayBy]

Собсно, есть таблица продукции. В крайне левом столбце, указывается кол-во нужной продукции. Нужно сделать так, чтобы на "лист 2" отображались только выбранные позиции.
Т.е. выбираем 3-4 товара, и в столбце "кол-во" указываем n-ое число. после этого на следующей странице, в таблице отображенные эти товары.
Прошу не просто сделать, а просветить как
файл прилагается.

[Hugo121]

Что-то вроде этого нужно? Вчера налаживал...
http://www.planetaexcel.ru/docs/foru...st_205400.xlsm

Можно по этому алгоритму сделать так - на второй лист копируются все позиции, где есть количество (т.к. механизм "выбираем" Вы не описали.)
В том примере человек чекбоксы уже нарисовал, и таблицы, куда копировать, тоже уже сделал на 90%.
Так что за Вами ещё таблица
Только вот там есть объединённые ячейки (ТАЙФУН МАСТЕР № 100) - это конечно красиво, но код усложняет. Я бы сделал 3 заполненные строки, в крайних "лишних" строках шрифт в цвет фона - с виду почти как сейчас будет, зато програмеру париться не нужно.

[GrayBy]

Hugo121, да. Только желательно, чтобы не было нужды ставить галочки. Чтобы срабатывало от наличия значения в ячейке...
Я выложил только 1 страницу прайса. Таких страниц около 10...
Поэтому, был бы благодарен, если бы объяснили на пальцах, как делать

[Hugo121]

Ну я и предлагаю - если количество поставили - то копируем.
На пальцах не обяснишь. Алгоритм могу - при переключении на второй лист код его очищает, потом просматривает диапазон первого листа и копирует на второй отмеченные данные.
И в общем там под Вашу задачу почти ничего переделывать не нужно - так, диапазоны, ячейки, что проверяем...

[GrayBy]

Hugo121, ктобы объяснил, как енто реализовать))
Где эти диапазоны. я просто не вкурил, как добиться того, чтобы значения переносились. Где это можно задать))

[Hugo121]

Сделал, анализируйте
Семь строк в цикле конечно можно было в одну записать (в другой цикл), но так легче порядок поменять, если нужно, или что-то не тянуть, например описание.

[GrayBy]

Hugo121? огромное спс, но вы меня не так поняли. Мне нужно, понять чё и где жмякать). Я не догоняю, как это делается, де чё нажимается, и де какие диапазоны задаются

[Hugo121]

Хорошо. Хотя писать комментарии дольше, чем код переделывать.
Я тут немного в мелочах поменял кое-что - лучше этот код использовать.

Option Explicit

Private Sub Worksheet_Activate()
    Dim i As Long, iLastRow As Long, ind As Long
    With Application
        .ScreenUpdating = False
        '.EnableEvents = False 'вот именно это тут лишнее, отключил
        '        ac = .Calculation: .Calculation = xlCalculationManual
    End With
    'определяем последнюю строку для очистки
    iLastRow = Лист2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    'очищаем
    Range("a8:G" & iLastRow).ClearContents
    
    'определяем последнюю строку для перебора отмеченных
    iLastRow = Лист1.Cells(Rows.Count, 1).End(xlUp).Row
    ind = 7 'начало копирования будет ниже этой строки
    For i = 6 To iLastRow 'перебор диапазона
        If Лист1.Cells(i, 7).Value > 0 Then 'если есть количество
            ind = ind + 1 'увеличиваем индекс для копирования
            'собственно копирование данных (без форматов)
            Cells(ind, 1).Value = Лист1.Cells(i, 1).Value
            Cells(ind, 2).Value = Лист1.Cells(i, 2).Value
            Cells(ind, 3).Value = Лист1.Cells(i, 3).Value
            Cells(ind, 4).Value = Лист1.Cells(i, 4).Value
            Cells(ind, 5).Value = Лист1.Cells(i, 5).Value
            Cells(ind, 6).Value = Лист1.Cells(i, 6).Value
            Cells(ind, 7).Value = Лист1.Cells(i, 7).Value
        End If
    Next

    With Application
        .ScreenUpdating = True
        '.EnableEvents = True 'вот именно это тут лишнее (пара верхней строке)
        '        .Calculation = ac
    End With

End Sub

Да, забыл - код в модуле листа.

[GrayBy]

Hugo121, еслибудет 5-6 листов с прайсом, и 1 лист с таблицей. Код как-то изменится? Или в модель каждого листа данный код засовывать?

[Hugo121]

Этот код в листе, куда собираете данные.
Если листов с прайсом много, то нужно для каждого листа определить просматриваемый диапазон и перебрать его.
Т.е. после строки
Range("a8:G" & iLastRow).ClearContents
организовать цикл по этим листам, или проще (но больше кода) повторить 5-6 раз код копирования, меняя листы.
Только тогда вынести строку
ind = 7 'начало копирования будет ниже этой строки
из цикла.

P.S. Но с объединёнными разберитесь - я там одну переделал, но ещё парочка осталась.