Can someone help me to figure out what is wrong with my code. I'm trying to multiply two declared ranges, Length and Width, and place the product on my CCFootagesS declared range.
I've attached a copy of my project. Thanks.
Public CCFootageS As Range Public Length As Range Public Width As Range Sub CCPublish() Set CCFootageS = Range("TPC[CCFootage-S]") Set Length = Range("TPC[Length]") Set Width = Range("TPC[Width]") CCFootagePS End Sub Sub CCFootagePS() CCFootageS = Length * Width End Sub
You can also put the formula directly in the worksheet. Select the four cells of TPC[CCFootage-S]Sub CCFootagePS() Dim LArray As Variant, _ WArray As Variant, _ LArray = Length.Value WArray = Width.Value ' convert rows to columns WArray = WorksheetFunction.Transpose(WArray) CCFootageS = WorksheetFunction.MMult(LArray, WArray)
enter this array formula in the formula bar:
and commit with Ctrl+Shift+Enter=MMULT(TPC[Length],TRANSPOSE(TPC[Width]))
Last edited by protonLeah; 02-07-2014 at 06:42 PM.
Ben Van Johnson
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks