Out of Memory Message

[edrobyn]

Hello,

I am getting an out of memory message when I try to run a macro and the debugger is highlighting this command line below. Is this line too long? If so, is there a way to split it and still work?

I started out with a smaller command list and since I have expanded it it gives me this error message. I have several different other data types and I only need to sum the ones listed below and not the others.

Can you show me how to fix this?

Thanks.

.Range("B2:B" & Lastrow).FormulaR1C1 = "=SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""Collar Sensor""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""SideSensor NoBag""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""SideSensor Baggd""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""JeansPantsDresses""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""SensorBagsPurses""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""Sensor Seat Belt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""SensorLeatherBelt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""SensorElasticBelt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""CutPlstcSideSnsrBg""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""RmvTcktApplyTckt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""CtPlstcSnsrSeatBlt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""CtPlstcSnsrElasBlt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""CtPlstcSnsrLthrBlt""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""TicketsApplied-CD""))+" _
& "SUMPRODUCT(--(" & strRngA & "=RC1),--(" & strRngB & "=""SensormaticApply""))"

 

[edrobyn]

I see now where I was short by one ".

Thanks so much!

 

[Jonmo1]

If the code Rorya provided works,

Then try this

.Range("B2:B" & LastRow).FormulaR1C1 = _
   "=SUMPRODUCT(--(" & strRngA & "=RC1)--(ISNUMBER(MATCH(" & strRngeC & "," & strRngeB & ",0))))"

where strRngeC is a range containing all the strings you're looking for.