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

[SAS888]

А почему не используются, если надо в столб2 кн2 добавить значение столб2 кн1?

Давайте рассмотрим подробнее. Имеем код:

For j = 2 To 5: .Cells(i, a(j)) = Cells(cell.Row, j): Next

и имеем массив a = Array(0, 0, 2, 3, 8, 15).
Получаем соответствие:
j = 2 : a(j) = 2
j = 3 : a(j) = 3
j = 4 : a(j) = 8
j = 5 : a(j) = 15
Что и требовалось. Такой подход позволит осуществить требуемый перенос данных в произвольные столбцы с использованием простого цикла при любом количестве данных в строке. Тем более, что Вы говорите

...и т.д. Много.

А почему кнопки мешают? Они фиксируют строки что-ли?

Не знаю. Давайте пример. При скрытии/отображении строк, кнопки, расположенные на рабочем листе (как "форма", так и "элемент управления"), не должны мешать. Тем более, что все это происходит на неактивном листе и к тому же при запрещенном обновлении экрана.

[kipish_lp]

После долгих перестановок столбцов (иначе не пойму) получилось вот что:

    Dim j As Integer, a(): a = Array(0, 0, 2, 3, , , , , , , , , , 4, 5, 6, 7, 8, 9, 10)

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

Как я поняла. Но, почему-то, строка заголовка кн2 меняет значения ячеек на данные столб12 кн1.

[SAS888]

Давайте так (может будет более понятно):
Создадим 2 массива.
1-й будет содержать номера столбцов книги 1, из которых требуется копировать значения.
2-й будет содержать номера столбцов книги 2, в которые требуется копировать значения.
Обязательное условие: количество элементов обоих массивов одинаковое и строгое соответствие порядка следования номеров столбцов (элементов массива).
Так, в приведенном ниже примере, данные найденной строки в книге 1 будут присвоены следующей свободной строке в книге 2 в таком соответствии:
из столбца 2 в столбец 9
из столбца 3 в столбец 5
из столбца 5 в столбец 3
из столбца 7 в столбец 8
из столбца 10 в столбец 18
из столбца 12 в столбец 12
Замените элементы обоих массивов на требуемые, соблюдая оговоренные правила.

Dim a(), b()
a = Array(2, 3, 5, 7, 10, 12) 'это номера столбцов книги 1 ИЗ КОТОРЫХ копировать значения
b = Array(9, 5, 3, 8, 18, 12) 'это номера столбцов книги 2 В КОТОРЫЕ копировать значения
If y Is Nothing Then
    i = .Cells(Rows.Count, 5).End(xlUp).Row + 1
    For j = LBound(a) To UBound(a): .Cells(i, b(j)) = Cells(cell.Row, a(j)): Next
End If

Что не понятно? Что не получается? Будут вопросы - прикрепляйте пример.

[kipish_lp]

Да! Получилось!!! Если вам будет легче - вы объяснили блондинке так, что она поняла.
Спасибо огромное!

[Mpgeshka]

Добрый вечер, умнейшим из умнейших. Раньше когда то работала с Excel часто и долго, но на данный момент очень давно без практики. А задачка у меня сейчас сложилась следующая. есть две книги. Каждая включает в себя по 12 листов(по месяцам). Одна из этих книг уже является сводной ведомостью. но ее макрос мне не прочитать, стоит пароль, а человек делавший ее уже давно у нас не работает. Так вот Мне необходимо так скажем обеспечить переход данных из одной книги (которая сводная ведомость) в другую. Причем ячейки которые должны быть скопированы находятся в разбросанном состоянии например из c5 в b15 и тд

[SAS888]

Создайте новую тему, прикрепите файл с данными и подробно опишите задачу.