VBA Code to extract subtotals

[howard]

I Would like VBA code to extract the row number and sub-total in Col B in sheet 1, where the value is not zero for eg if the sub-total value is for eg 50, -50 etc., but to ignore zeroes

I would like row numbers containing the sub-total values that are not zero to be extracted to sheet2

Your assistance in this regard is most appreciated


See example below

Excel Workbook
	A	B
1	501	-2,589.27
2	502	317.98
3	503	2,271.29
4	*	* * * * * * * * * * * - *
5	504	-2,589.27
6	505	317.98
7	506	2,271.29
8	507	-2,589.27
9	508	317.98
10	301460	2,271.29
11	*	* * * * * * * * * * * - *
Sheet1

 

[texasalynn]

how is the subtotal shown on the data sheet?

eg. 500 Total (column A)

 

[howard]

Thanks for the reply.

Column after the last value will be blank and Col B will contain the suntotal formula-see example with valuews Greater or smaller than zero on Col B containing the sub-total formula

<b>Sheet1</b><br /><br /><table border="1" cellspacing="0" cellpadding="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:64px;" /><col style="width:75px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >A</td><td >B</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="text-align:right; ">500</td><td style="text-align:right; ">    -2,589.27 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">501</td><td style="text-align:right; ">         100.00 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">502</td><td style="text-align:right; ">     2,271.29 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td > </td><td style="text-align:right; ">       -217.98 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">503</td><td style="text-align:right; ">    -2,589.27 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">504</td><td style="text-align:right; ">         317.98 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td style="text-align:right; ">505</td><td style="text-align:right; ">     2,271.29 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">506</td><td style="text-align:right; ">    -2,589.27 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >9</td><td style="text-align:right; ">507</td><td style="text-align:right; ">           60.00 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >10</td><td style="text-align:right; ">508</td><td style="text-align:right; ">     2,271.29 </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >11</td><td > </td><td style="text-align:right; ">       -257.98 </td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b>Spreadsheet Formulas</b></td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Cell</td><td >Formula</td></tr><tr><td >B4</td><td >=SUBTOTAL(9,B1:B3)</td></tr><tr><td >B11</td><td >=SUBTOTAL(9,B5:B10)</td></tr></table></td></tr></table> <br />Excel tables to the web - Excel Jeanie Html 4

 

[texasalynn]

So you have two sheets
sheet1 has the detail data with subtotals - ?? where is the word total found?
sheet2 has the summary data - you want to list the row where total and matching code number are?

 

[howard]

Thanks for the reply. You have analysed the requirements 100%

 

[texasalynn]

You didn't answer my questions - I can not assist