Export to file only values > 0

G

Gestron

I have a worksheet (about 2500 lines) that has been generated by use o
several functions. I want an automatic extraction (without manuall
filter and copy) to a file (csv extension) of the ammounts greater tha
0 (90 % = 0,00 and 10 % has a possitive amount). Goal : use of a macro
which evaluate each line and copy the lines when there is a possitiv
ammount. How do I do that
 
B

Bob Umlas, Excel MVP

Assuming columnH and to the right is available, and that the amounts are in column B, this will wor

Sub ValsOverZero(
Range("H1").Value = "amounts
Range("H2").Value = ">0
Range("B1:B" & Range("B65536").End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy,
CriteriaRange:=Range("H1:H2"),
CopyToRange:=Range("K1"),
Unique:=Fals
End Su


----- Gestron > wrote: ----

I have a worksheet (about 2500 lines) that has been generated by use o
several functions. I want an automatic extraction (without manuall
filter and copy) to a file (csv extension) of the ammounts greater tha
0 (90 % = 0,00 and 10 % has a possitive amount). Goal : use of a macro
which evaluate each line and copy the lines when there is a possitiv
ammount. How do I do that
 
Top