Копирование по условию

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование по условию (Макросы/Sub)

kleo90

Дата: Понедельник, 27.06.2016, 11:17 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2013

Никак не получается по условию копировать. Необходимо из первого листа скопировать данные в заказ.
но по условию, что все введенные данные из диапазона где находятся нижние модуля, если я заполняю количество, копируется в заказ.под строку нижние модуля, и тд., пока вот так получается. Но это неправильно, не могу додуматься как еще сделать. Может кто вообще сталкивался с тем чтобы с заполненной таблицы данные вытаскивать и формировать что то типа заказа.
[vba]

Код

Sub Copy3()
Dim i&
Application.ScreenUpdating = False

Sheets("корпуса").Select
For i = 11 To 16
If IsEmpty(Cells(i, 6)) = False Then
Rows(i).Copy
Sheets("Заказ").Cells(Sheets("Заказ").Cells(2, 1).End(xlUp).Row, 2).EntireRow.Insert
Sheets("Заказ").Cells(Sheets("Заказ").Cells(2, 6).End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteValues
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

[/vba]