Select NonZero rows

[NTB]

I have 5 columns of data sorted by the Fees (highest to lowest) column D

I would like to select rows that have fees > 0 to create a Pivot Table.

Would you help me with a vba code that just select rows from D3 until the last value >0 please?

Simplify version of column D starting @ D3
I would like to select rows from 25 thru 1 using vba

Fees:
25
23
20
19
12
4
2
1
0
0
0

Please advice,

Thanks,

NTB

[Andy Pope]

Any reason why you can not simply use the pivot table to exclude those records?

No need for code. Create an named range,

PDATA: =OFFSET(Sheet1!$A$3,0,0,COUNTIF(Sheet1!$D:$D,">"&0)+1,5)

Use PDATA as the source data from your pivot table

[NTB]

Thank you, but I donot know how to apply your method. The code I need is a small portion of a big macro I try to put together.

I hope I will get the vba for this.

[Andy Pope]

Then just use the COUNTIF function to tell your code the last row to use as the source data.

Please Login or Register  to view this content.

[NTB]

I will test w/ this code later on this afternoon, but I am sure it will work.

Thanks a lot,

NTB