Tom,

Sorry but function isnumberi not defined and I couldn't run your code.

Can u help on this?

Thanks in advanced

"Tom Ogilvy" escreveu:

Dim rng as Range, cell as Range
Dim rng1 as Range

With Worksheets("Sheet2")
set rng = .Range(.Cells(2,1),.Cells(rows.count,1).End(xlup))
End with
for each cell in rng
if not isempty(cell.offset(0,1)) then
if isnumberi(cell.offset(0,1)) then
if cell.offset(0,1).Value < 0 then
if rng1 is nothing then
set rng1 = cell
else
set rng1 = union(rng1,cell)
end if
end if
end if
end if
Next
if not rng1 is nothing then
rng1.copy Destination:= _
worksheets("Sheet1").Range("A1")
End if

--
Regards,
Tom Ogilvy


"Pedro Serra" wrote:

How can I populate the values to a column in Excel sheet 1 with the values of
the column A in sheet 2 where the values of the column B in sheet 2, are
different that zero, without using a filter in sheet 2 and then copy past the
values?