Macro Flexability

W

wblake0926

Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
 
J

Jim Thomlinson

What do you have in R218C4? If you are adding or deleting rows this is going
to move and we need some way to find it dynamically. Is it the last cell in
column 4 or does it have a title or ...
--
HTH...

Jim Thomlinson


wblake0926 said:
Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
 
W

wblake0926

Thanks for the quick response! R218C4 is the "Grand Total", it is the last
cell in column. Here is a small example of what the sheet looks like:


Short Term Investment Total 24,772,572.00
Technology & Electronics ( Tech ) 2,187,500.00
Technology & Electronics ( Tech ) 2,144,906.00
Technology & Electronics ( Tech ) 2,275,625.00
Technology & Electronics ( Tech ) 948,750.00
Technology & Electronics ( Tech ) 2,424,375.00
Technology & Electronics ( Tech ) 1,400,000.00
Technology & Electronics ( Tech ) 2,806,875.00
Technology & Electronics ( Tech ) 4,300,000.00
Technology & Electronics ( Tech ) 6,119,250.00
Technology & Electronics ( Tech ) 4,925,000.00
Technology & Electronics ( Tech ) 3,272,500.00
Technology & Electronics ( Tech ) Total 32,804,781.00
Telecommunications ( TCom ) 2,851,875.00
Telecommunications ( TCom ) 1,734,000.00
Telecommunications ( TCom ) 1,351,500.00
Telecommunications ( TCom ) 3,111,000.00
Telecommunications ( TCom ) 3,088,125.00
Telecommunications ( TCom ) 1,944,375.00
Telecommunications ( TCom ) 9,180,000.00
Telecommunications ( TCom ) 4,987,500.00
Telecommunications ( TCom ) 3,266,250.00
Telecommunications ( TCom ) 1,953,875.00
Telecommunications ( TCom ) 2,060,000.00
Telecommunications ( TCom ) 2,984,625.00
Telecommunications ( TCom ) 2,582,250.00
Telecommunications ( TCom ) 4,512,094.00
Telecommunications ( TCom ) 5,282,812.00
Telecommunications ( TCom ) 1,732,625.00
Telecommunications ( TCom ) 2,043,750.00
Telecommunications ( TCom ) 6,183,000.00
Telecommunications ( TCom ) Total 60,849,656.00
Utility ( Util ) 6,150,000.00
Utility ( Util ) 8,079,375.00
Utility ( Util ) 6,675,000.00
Utility ( Util ) Total 20,904,375.00

Grand Total 647,019,316.00

Thanks again!

Jim Thomlinson said:
What do you have in R218C4? If you are adding or deleting rows this is going
to move and we need some way to find it dynamically. Is it the last cell in
column 4 or does it have a title or ...
--
HTH...

Jim Thomlinson


wblake0926 said:
Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
Click to expand...
 
W

wblake0926

Just a question after I find the cells with the word total in them, I would
use offset(0,2) which would replace range("xx").select... This is still very
new to me and I am trying to record, learn and write with more flexability. I
know that the recorded macro does not work when data is added or deleted. I
am trying to see if I can cut this down a little myself but with very little
luck... Thanks for your help it appreciated!!

wblake0926 said:
Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
 
J

Jim Thomlinson

What goes in what columns? Just a short excerpt will do.
--
HTH...

Jim Thomlinson


wblake0926 said:
Thanks for the quick response! R218C4 is the "Grand Total", it is the last
cell in column. Here is a small example of what the sheet looks like:


Short Term Investment Total 24,772,572.00
Technology & Electronics ( Tech ) 2,187,500.00
Technology & Electronics ( Tech ) 2,144,906.00
Technology & Electronics ( Tech ) 2,275,625.00
Technology & Electronics ( Tech ) 948,750.00
Technology & Electronics ( Tech ) 2,424,375.00
Technology & Electronics ( Tech ) 1,400,000.00
Technology & Electronics ( Tech ) 2,806,875.00
Technology & Electronics ( Tech ) 4,300,000.00
Technology & Electronics ( Tech ) 6,119,250.00
Technology & Electronics ( Tech ) 4,925,000.00
Technology & Electronics ( Tech ) 3,272,500.00
Technology & Electronics ( Tech ) Total 32,804,781.00
Telecommunications ( TCom ) 2,851,875.00
Telecommunications ( TCom ) 1,734,000.00
Telecommunications ( TCom ) 1,351,500.00
Telecommunications ( TCom ) 3,111,000.00
Telecommunications ( TCom ) 3,088,125.00
Telecommunications ( TCom ) 1,944,375.00
Telecommunications ( TCom ) 9,180,000.00
Telecommunications ( TCom ) 4,987,500.00
Telecommunications ( TCom ) 3,266,250.00
Telecommunications ( TCom ) 1,953,875.00
Telecommunications ( TCom ) 2,060,000.00
Telecommunications ( TCom ) 2,984,625.00
Telecommunications ( TCom ) 2,582,250.00
Telecommunications ( TCom ) 4,512,094.00
Telecommunications ( TCom ) 5,282,812.00
Telecommunications ( TCom ) 1,732,625.00
Telecommunications ( TCom ) 2,043,750.00
Telecommunications ( TCom ) 6,183,000.00
Telecommunications ( TCom ) Total 60,849,656.00
Utility ( Util ) 6,150,000.00
Utility ( Util ) 8,079,375.00
Utility ( Util ) 6,675,000.00
Utility ( Util ) Total 20,904,375.00

Grand Total 647,019,316.00

Thanks again!

Jim Thomlinson said:
What do you have in R218C4? If you are adding or deleting rows this is going
to move and we need some way to find it dynamically. Is it the last cell in
column 4 or does it have a title or ...
--
HTH...

Jim Thomlinson


wblake0926 said:
Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
Click to expand...
Click to expand...
 
J

Jim Thomlinson

This may need to be adjusted if my guesses as to what lands in what columns
were wrong...
--
HTH...

Jim Thomlinson


Jim Thomlinson said:
What goes in what columns? Just a short excerpt will do.
--
HTH...

Jim Thomlinson


wblake0926 said:
Thanks for the quick response! R218C4 is the "Grand Total", it is the last
cell in column. Here is a small example of what the sheet looks like:


Short Term Investment Total 24,772,572.00
Technology & Electronics ( Tech ) 2,187,500.00
Technology & Electronics ( Tech ) 2,144,906.00
Technology & Electronics ( Tech ) 2,275,625.00
Technology & Electronics ( Tech ) 948,750.00
Technology & Electronics ( Tech ) 2,424,375.00
Technology & Electronics ( Tech ) 1,400,000.00
Technology & Electronics ( Tech ) 2,806,875.00
Technology & Electronics ( Tech ) 4,300,000.00
Technology & Electronics ( Tech ) 6,119,250.00
Technology & Electronics ( Tech ) 4,925,000.00
Technology & Electronics ( Tech ) 3,272,500.00
Technology & Electronics ( Tech ) Total 32,804,781.00
Telecommunications ( TCom ) 2,851,875.00
Telecommunications ( TCom ) 1,734,000.00
Telecommunications ( TCom ) 1,351,500.00
Telecommunications ( TCom ) 3,111,000.00
Telecommunications ( TCom ) 3,088,125.00
Telecommunications ( TCom ) 1,944,375.00
Telecommunications ( TCom ) 9,180,000.00
Telecommunications ( TCom ) 4,987,500.00
Telecommunications ( TCom ) 3,266,250.00
Telecommunications ( TCom ) 1,953,875.00
Telecommunications ( TCom ) 2,060,000.00
Telecommunications ( TCom ) 2,984,625.00
Telecommunications ( TCom ) 2,582,250.00
Telecommunications ( TCom ) 4,512,094.00
Telecommunications ( TCom ) 5,282,812.00
Telecommunications ( TCom ) 1,732,625.00
Telecommunications ( TCom ) 2,043,750.00
Telecommunications ( TCom ) 6,183,000.00
Telecommunications ( TCom ) Total 60,849,656.00
Utility ( Util ) 6,150,000.00
Utility ( Util ) 8,079,375.00
Utility ( Util ) 6,675,000.00
Utility ( Util ) Total 20,904,375.00

Grand Total 647,019,316.00

Thanks again!

Jim Thomlinson said:
What do you have in R218C4? If you are adding or deleting rows this is going
to move and we need some way to find it dynamically. Is it the last cell in
column 4 or does it have a title or ...
--
HTH...

Jim Thomlinson


:

Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
Click to expand...
Click to expand...
 
J

Jim Thomlinson

That last post would have made more sense if I had posted the code...

Public Sub AddPercents()
Dim rngGrandTotal As Range
Dim rngToSearch As Range
Dim rngFound As Range
Dim strFirstAddress As String
Dim wks As Worksheet

Set wks = ActiveSheet
With wks
Set rngGrandTotal = .Cells(Rows.Count, "B").End(xlUp)
Set rngToSearch = .Range(.Cells(2, "B"), rngGrandTotal.Offset(-1, 0))
End With
Set rngFound = rngToSearch.Find(what:="Total", _
LookAt:=xlPart, _
LookIn:=xlValues)
If Not rngFound Is Nothing Then
strFirstAddress = rngFound.Address
Do
rngFound.Offset(0, 2).Formula = "=" & rngFound.Offset(0,
1).Address _
& "/" & rngGrandTotal.Offset(0, 1).Address
Set rngFound = rngToSearch.FindNext(rngFound)
Loop Until rngFound.Address = strFirstAddress
End If
End Sub
--
HTH...

Jim Thomlinson


Jim Thomlinson said:
This may need to be adjusted if my guesses as to what lands in what columns
were wrong...
--
HTH...

Jim Thomlinson


Jim Thomlinson said:
What goes in what columns? Just a short excerpt will do.
--
HTH...

Jim Thomlinson


wblake0926 said:
Thanks for the quick response! R218C4 is the "Grand Total", it is the last
cell in column. Here is a small example of what the sheet looks like:


Short Term Investment Total 24,772,572.00
Technology & Electronics ( Tech ) 2,187,500.00
Technology & Electronics ( Tech ) 2,144,906.00
Technology & Electronics ( Tech ) 2,275,625.00
Technology & Electronics ( Tech ) 948,750.00
Technology & Electronics ( Tech ) 2,424,375.00
Technology & Electronics ( Tech ) 1,400,000.00
Technology & Electronics ( Tech ) 2,806,875.00
Technology & Electronics ( Tech ) 4,300,000.00
Technology & Electronics ( Tech ) 6,119,250.00
Technology & Electronics ( Tech ) 4,925,000.00
Technology & Electronics ( Tech ) 3,272,500.00
Technology & Electronics ( Tech ) Total 32,804,781.00
Telecommunications ( TCom ) 2,851,875.00
Telecommunications ( TCom ) 1,734,000.00
Telecommunications ( TCom ) 1,351,500.00
Telecommunications ( TCom ) 3,111,000.00
Telecommunications ( TCom ) 3,088,125.00
Telecommunications ( TCom ) 1,944,375.00
Telecommunications ( TCom ) 9,180,000.00
Telecommunications ( TCom ) 4,987,500.00
Telecommunications ( TCom ) 3,266,250.00
Telecommunications ( TCom ) 1,953,875.00
Telecommunications ( TCom ) 2,060,000.00
Telecommunications ( TCom ) 2,984,625.00
Telecommunications ( TCom ) 2,582,250.00
Telecommunications ( TCom ) 4,512,094.00
Telecommunications ( TCom ) 5,282,812.00
Telecommunications ( TCom ) 1,732,625.00
Telecommunications ( TCom ) 2,043,750.00
Telecommunications ( TCom ) 6,183,000.00
Telecommunications ( TCom ) Total 60,849,656.00
Utility ( Util ) 6,150,000.00
Utility ( Util ) 8,079,375.00
Utility ( Util ) 6,675,000.00
Utility ( Util ) Total 20,904,375.00

Grand Total 647,019,316.00

Thanks again!

:

What do you have in R218C4? If you are adding or deleting rows this is going
to move and we need some way to find it dynamically. Is it the last cell in
column 4 or does it have a title or ...
--
HTH...

Jim Thomlinson


:

Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
Click to expand...
Click to expand...
 
W

wblake0926

I apologize I did not label the columns
I need to find the percentage of each category total.
the number of categories differs
It appears what you sent worked Thanks a ton! sorry for the poor explanation.
C D
E
Technology & Electronics 2,187,500.00
Technology & Electronics 2,144,906.00
Technology & Electronics 2,275,625.00
Technology & Electronics Total 25,912,231.00 (% of Grand
Total)
Telecommunications 2,851,875.00
Telecommunications 1,734,000.00
Telecommunications 1,351,500.00
Telecommunications Total 5,937,375.00 (% of Grand
Total)
and so on



Jim Thomlinson said:
What goes in what columns? Just a short excerpt will do.
--
HTH...

Jim Thomlinson


wblake0926 said:
Thanks for the quick response! R218C4 is the "Grand Total", it is the last
cell in column. Here is a small example of what the sheet looks like:


Short Term Investment Total 24,772,572.00
Technology & Electronics ( Tech ) 2,187,500.00
Technology & Electronics ( Tech ) 2,144,906.00
Technology & Electronics ( Tech ) 2,275,625.00
Technology & Electronics ( Tech ) 948,750.00
Technology & Electronics ( Tech ) 2,424,375.00
Technology & Electronics ( Tech ) 1,400,000.00
Technology & Electronics ( Tech ) 2,806,875.00
Technology & Electronics ( Tech ) 4,300,000.00
Technology & Electronics ( Tech ) 6,119,250.00
Technology & Electronics ( Tech ) 4,925,000.00
Technology & Electronics ( Tech ) 3,272,500.00
Technology & Electronics ( Tech ) Total 32,804,781.00
Telecommunications ( TCom ) 2,851,875.00
Telecommunications ( TCom ) 1,734,000.00
Telecommunications ( TCom ) 1,351,500.00
Telecommunications ( TCom ) 3,111,000.00
Telecommunications ( TCom ) 3,088,125.00
Telecommunications ( TCom ) 1,944,375.00
Telecommunications ( TCom ) 9,180,000.00
Telecommunications ( TCom ) 4,987,500.00
Telecommunications ( TCom ) 3,266,250.00
Telecommunications ( TCom ) 1,953,875.00
Telecommunications ( TCom ) 2,060,000.00
Telecommunications ( TCom ) 2,984,625.00
Telecommunications ( TCom ) 2,582,250.00
Telecommunications ( TCom ) 4,512,094.00
Telecommunications ( TCom ) 5,282,812.00
Telecommunications ( TCom ) 1,732,625.00
Telecommunications ( TCom ) 2,043,750.00
Telecommunications ( TCom ) 6,183,000.00
Telecommunications ( TCom ) Total 60,849,656.00
Utility ( Util ) 6,150,000.00
Utility ( Util ) 8,079,375.00
Utility ( Util ) 6,675,000.00
Utility ( Util ) Total 20,904,375.00

Grand Total 647,019,316.00

Thanks again!

Jim Thomlinson said:
What do you have in R218C4? If you are adding or deleting rows this is going
to move and we need some way to find it dynamically. Is it the last cell in
column 4 or does it have a title or ...
--
HTH...

Jim Thomlinson


:

Hello,
I am looking to make this macro a little more flexible, if I am to add or
remove data I want this to preform the same function. can anyone help me
adjust this so this is possible Thanks for the assistance
Sub Percentages()
'
' Percentages Macro
' Macro recorded 9/30/2009 by e447207
'

Cells.find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E15").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E30").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E33").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E45").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E69").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E80").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E97").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E103").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E111").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
ActiveWindow.SmallScroll Down:=6
Cells.FindNext(After:=ActiveCell).Activate
Range("E113").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E132").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E164").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E179").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E181").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E193").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E212").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E216").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R218C4"
Cells.FindNext(After:=ActiveCell).Activate
Range("E218").Select
Selection.FormulaR1C1 = "="
Range("E218").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-212]C:R[-1]C)"
End Sub
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro 3
Creating Pivot Table with Macro using Multiple Sheets 0
Macro Loop 1
Macro from cell specific to whole column 4
Problem with Macro 7
Macro Question formula 8
Macro - very slow run in 2003 3
Hard reference in a macro 1

Top