Копирование строк на другую страницу

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Копирование строк на другую страницу (Макросы Sub)

kss27

Дата: Суббота, 01.03.2014, 18:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

[vba]

Код

Sub Copy12()
Dim R1 As Range, R2 As Range
With Worksheets("Отчет")
Set R1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeConstants).EntireRow
Set R2 = .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).EntireRow
Intersect(R1, [B:F]).Copy R2.Cells(1, 1)
End With
End Sub

[/vba]

Как видно, макрос берет строки со страницы, на которой он запускается и копирует строки в страницу "Отчет". Скажите, пожалуйста, как сделать чтобы он брал строки не только со страницы, с которой он запускается, но и с других листов. Т.е. указать макросу откуда брать строки

Ответить

Hugo

Дата: Суббота, 01.03.2014, 18:56 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Думаю так должно сработать, но не проверял.
[vba]

Код

Sub Copy13()
     Dim R1 As Range, R2 As Range

     With Worksheets("нужный")
         Set R1 = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeConstants).EntireRow
         Set R1 = Intersect(R1, .[B:F])
     End With
     With Worksheets("Отчет")
         Set R2 = .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).EntireRow
     End With

     R1.Copy R2.Cells(1, 1)
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

kss27

Дата: Суббота, 01.03.2014, 19:23 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Сработал, огромное спасибо))))

Ответить

Копирование строк на другую страницу (Макросы Sub)

Страница 1 из 1
1