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

[kipish_lp]

Уважаемые форумчане, здравствуйте. Помогите пожалуйста. Мне нужно макросом скопировать данные из книги1 в книгу2, но только те строки, которые, например, помечены буквой «а» в столбце 1. Но не все данные, а по именам столбцов, либо, четко прописать из столбца 3 в столбец 5, из 4 в 8. Перед добавлением строки проверить, есть ли совпадение в книге2 по столбцу 5 со вставляемыми данными из столб.3 кн.1. Копируемые строки надо добавлять ниже существующих строк (создавать новые строки). Пробовала поискать на форуме похожее, не нашла, не подходит либо одно, либо другое.

[SAS888]

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".

[kipish_lp]

Спасибо, замечательно работает.

[kipish_lp]

При дальнейшем использовании макроса появляются ошибки, то копирует повторяющиеся строки, то весь диапазон, независимо от "а", то заголовок таблицы
Может быть ошибка в этой строке?

          Set y = .[C:C].Find(what:=Cells(cell.Row, 3), LookAt:=xlWhole)

Что она делает?

[SAS888]

При дальнейшем использовании макроса появляются ошибки, то копирует повторяющиеся строки, то весь диапазон, независимо от "а", то заголовок таблицы

Это Вы про какой макрос? Вы его переделали, сделав "кучу" ошибок и предъявляете претензии.
Давайте рассмотрим фрагмент Вашего кода:

Set y = .[C:C].Find(what:=Cells(cell.Row, 3), LookAt:=xlWhole)
If y Is Nothing Then
    i = .Cells(Rows.Count, 3).End(xlUp).Row + 1
    .Cells(i, 5) = Cells(cell.Row, 1): .Cells(i, 5) = Cells(cell.Row, 2)
    .Cells(i, 3) = Cells(cell.Row, 3): .Cells(i, 8) = Cells(cell.Row, 4)
    .Cells(i, 3) = Cells(cell.Row, 5): .Cells(i, 1) = Cells(cell.Row, 6)
    .Cells(i, 4) = Cells(cell.Row, 7): .Cells(i, 7) = Cells(cell.Row, 8)
End If

Глядя на него, я так и не смог понять, чего Вы хотите.
1. Вы ищите значение текущей строки 1-й книги 3-го столбца в 3-м столбце 2-й книги (помечено красным). И, если такого нет, то переносите требуемые значения. Так и надо?
2. В процессе переноса значений Вы в одну и ту же ячейку вставляете несколько раз разные значения (помечено красным). Зачем этот "винегрет"?

Либо исправьте самостоятельно, либо подробно опишите, что требуется.

[kipish_lp]

Уважаемый SAS888!
Когда переделывала под себя, запуталась. Извините пожалуйста. Ошибки исправила. Просто в нужном файле у меня очень много столбцов, где-то в одинаковый столбец данные копировать надо, где-то в разные. Я претензий не предъявляла, просто не могла сама найти ошибку, а спотыкалась на той строке. Еще раз, извините пожалуйста!

[SAS888]

где-то в одинаковый столбец данные копировать надо, где-то в разные

Все равно, не понятно. Зачем в ячейку копируется одно значение, а следующей командой - в эту же ячейку заносится другое значение, причем безусловно.

.Cells(i, 5) = Cells(cell.Row, 1): .Cells(i, 5) = Cells(cell.Row, 2)

[kipish_lp]

Те ошибки, которые вы увидели - это моя невнимательность, причем, проверяла все, кроме ошибок (ну, бывает, не у всех, но бывает). А в книге надо: кн1 столб2 --> кн2 столб2; кн1 ст3 --> кн2 ст3; кн1 ст4 --> кн2 ст8; кн1 ст5 --> кн2 ст15 и т.д. Много.
А можно еще вопрос. Почему "Hidden"

    [I:I].ColumnDifferences([I:I].Find("a")).EntireRow.Hidden = True

не работает, когда на листе кнопки с запрещением изменения размера в формате объекта?

[SAS888]

А в книге надо: кн1 столб2 --> кн2 столб2; кн1 ст3 --> кн2 ст3; кн1 ст4 --> кн2 ст8; кн1 ст5 --> кн2 ст15 и т.д. Много.

Все можно сделать просто. Так, например, для тех столбцов, которые Вы указали:
В начале макроса добавим определения:

Dim j As Integer, a(): a = Array(0, 0, 2, 3, 8, 15)

А в коде, блок вставки значений заменить на

If y Is Nothing Then
    i = .Cells(Rows.Count, 5).End(xlUp).Row + 1
    For j = 2 To 5: .Cells(i, a(j)) = Cells(cell.Row, j): Next
End If

где каждому значению j (столбец книги 1) соответствует элемент массива a(j) (столбец книги 2). Обратите внимание, что счет элементов массива начинается с 0, а цикл For...Next начинается с 2, поэтому в массиве a первые 2 элемента =0 (просто, они не используются).

А можно еще вопрос. Почему "Hidden"

Такой подход позволяет выбрать требуемые значения без использования цикла. Метод ColumnDifferences выделяет ячейки с значениями не равными искомым [I:I].Find("a"). А нам нужно наоборот. Поэтому, скрываем все, которые определены методом ColumnDifferences, и работаем с видимой областью. Изначально, никаких ограничений на этот счет не было. Если Вас по каким-либо причинам это не устраивает - давайте переделаем (будет менее изящно).

[kipish_lp]

первые 2 элемента =0 (просто, они не используются).

А почему не используются, если надо в столб2 кн2 добавить значение столб2 кн1?
И все-таки конкретно прописать что в какую ячейку вставить работает корректней. А так он выводит подряд по столбцам, а у меня надо вразноброс.
А "изящность" с "Hidden" меня вполне устраивает, просто кнопки с листа убрала на стандартную панель. А почему кнопки мешают? Они фиксируют строки что-ли?