copy cells
Sub CopyData()
Dim rng as Range, sh as worksheet
Dim rw as Long, cell as Range
with worksheets(1)
set rng = .range(.cells(2,1),.cells(2,1).End(xldown))
End with
set sh = Worksheets(2)
rw = 2
for each cell in rng
if len(trim(cell)) = 0 and cell.offset(0,2) = "OPEN" then
cell.Entirerow.copy sh.Cells(rw,1)
rw = rw + 1
end if
Next
End sub
--
Regards,
Tom Ogilvy
"AM" wrote:
I need to copy cells from one worksheet to
another [same workbook], based on two conditions. The conditions are simple,
e.g. ISBLANK($A30) and $C30="OPEN", etc. The original column has 200 entries.
Only 50 of them may be copied in consecutive cells in a column on the new
worksheet.
Thanks for any help.
Atul
|