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