макрос для копирования строк из одной таблицы в другую

[IRI_NA]

Привет всем! Помогите, пожалуйста, сделать макрос. Задача: необходимо копировать с листа1 данные по определенному признаку из 9 столбца, и раскладывать их по листам, не удаляя с первого. Заранее спасибо!

[EducatedFool]

Макрос сделать, в принципе, несложно.

Но:
1) Надо раскидывать по цехам все строки первого листа, или только выделенные?

2) Потребуется как-то объяснить макросу, как искать лист, на который копировать. (названия цехов в выпадающем списке столбца 9 не совпадают с названиями листов)
Тут есть 2 варианта:
а) переименовать листы
б) в 13-й столбец рядом со списком цехов для выпадающих списков добавить 14-й столбец - с соответствующим каждому цеху названием листа.

3) Что делать, если для цеха из обрабатываемой строки не найден соответствующий лист в книге?
А если поле "цех" - пустое?

PS: Данные для выпадающих списков можно вынести на отдельный (возможно, скрытый) лист.

[IRI_NA]

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

[EducatedFool]

Проверяйте:



Нажмите зеленую кнопку для запуска макроса.

Вот весь код:

Sub ОсновнойМакрос()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([i9], Range("i" & Rows.Count).End(xlUp))
    For Each cell In ra.SpecialCells(xlCellTypeConstants)
        ОбработатьСтроку cell
    Next cell
End Sub

Sub ОбработатьСтроку(ByRef cell As Range)
    ИмяЛиста = [Критерии].Find(cell).Next.MergeArea.Cells(1)
    ' если для данного цеха определён лист, и указана дата в столбце 2
    If Len(ИмяЛиста) And Len(cell.EntireRow.Cells(2)) > 0 Then
        On Error Resume Next
        Set МестоДляВставки = Worksheets(ИмяЛиста).Range("a" & Rows.Count).End(xlUp).Offset(1)
        'МестоДляВставки.Resize(1, 8).Value = cell.EntireRow.Range("a1:h1").Value
        cell.EntireRow.Range("a1:h1").Copy МестоДляВставки
    End If
End Sub

Кое-что переделал: вынес данные для выпадающих списков на отдельный лист Настройки

Принцип работы макроса:

• Перебираются все заполненные ячейки в столбце ЦЕХ
• Если для данного цеха на листе Настройки прописан существующий в книге лист, и для данной позиции проставлена дата во 2-м столбце, то строка копируется на нужный лист.
• Если лист не найден, ничего не происходит

[IRI_NA]

Спасибо за старания!
Проверила:
1) данные появляются не на всех листах - есть только на трех: газ. цех, печ.цех, переп.цех, в других нет.
2) при повторном применении макроса (при, например, обновлении данных на листе заказов) строки дублируются, а нужно, чтобы при перемещении заказа из цеха в цех, он (заказ) менял лист и убирался из старого; Т. е.списки каждый раз обновлялись.
3) 9 столбец нужен тоже - он описывает этап в цехе

благодарю!

[IRI_NA]

9 столбец исправила сама, а вот все остальное...

[IRI_NA]

нашла ошибку у себя - листы неправильно назывались. А все-таки как обновлять, а не добавлять списки?

[Teslenko_EA]

Здравствуйте IRI_NA.
надеюсь правильно понял Вашу задачу, предлагаю решение с использованием библиотеки ADO. У этой конструкции нет ограничения по количеству строк, ограничения только по формату данных в столбцах - они должны быть одного типа.
Евгений.

[IRI_NA]

Сообщение от Teslenko_EA

Здравствуйте IRI_NA.
надеюсь правильно понял Вашу задачу, предлагаю решение с использованием библиотеки ADO. У этой конструкции нет ограничения по количеству строк, ограничения только по формату данных в столбцах - они должны быть одного типа.
Евгений.

вот здесь, кажется, все получается!!! завтра проверю на работе! Спасибо!

[IRI_NA]

Евгений
Большое спасибо за вашу помощь! Очень помогли!