Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Копирование данных в другую книгу по значению

Автор maragva, 11.02.2011, 20:26

« назад - далее »

maragva

Доброго времени!

Испытываю сложности из-за слабого знания vba.

есть такой код:

Sub Кнопка1()
Dim i As Long
Dim toCopyData As Range

    With Sheets("Ручки")
        For i = 3 To 100
            If Not IsEmpty(.Cells(i, 1)) Then
            Set toCopyData = Union(.Cells(i, 2), .Cells(i, 3), .Cells(i, 4))
             toCopyData.Copy _
            Destination:=Sheets("Лист3").Cells(Sheets("Лист3").Cells(Rows.Count, 3).End(xlUp).Row + 1, 3)
             End If
        Next i
         
    End With
    MsgBox "Отмеченные позиции перенесены", 64, "Конец"
End Sub

То есть, копирование происходит в эту же книгу, а мне необходимо вставить данные в другую. Причем столбцы "В", "С", "D" вставить нужно в столбцы "С", "E", "F", да еще начиная с 15 строки.
Как можно это реализовать?

lllmixalll

Добрый день.
Приложите пример, что куда скопировать.