Здравствуйте я совсем недавно начала изучать VBA, очень нужен совет по коду:
вообщем надо копировать информацию с основного листа содержащую признак на выбранную вкладку, и проверять если данные уже заполнены, не копировать.
как сделать по двум/трем и более признакам не доходит, в общем как и проверку сделать. Помогите((
Код |
---|
Sub Test() Dim iCell As Range, Priznak As Variant Priznak = Application.InputBox("признак переноса сроки", "Екатеринбург", "Екатеринбург") For Each iCell In Range("A2", [A2].End(xlDown)) If iCell = Priznak Then With Sheets("ЕКБ") iCell.EntireRow.Copy Destination:=.Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") End With End If Next iCell MsgBox "строки содержащие" & Priznak & "в столбце а скопированы на другой лист", vbInformation, "" End Sub |
вообщем надо копировать информацию с основного листа содержащую признак на выбранную вкладку, и проверять если данные уже заполнены, не копировать.
как сделать по двум/трем и более признакам не доходит, в общем как и проверку сделать. Помогите((