Adding values that have been given string

I have a few different variables that are set with a string to be placed into the worksheet . I am trying to get the values that are placed in those cells when the string is assigned to them. The numbers will move everyday so I can't select that particular range to add. This is the code I have, but it's bringing back the error Compile error: Invalid qualifier where "I" and "k" are. I've tried just a + b + c +... as well as adding .Value & .Value2

Please Login or Register  to view this content.

you seem to be assigning formulas and trying to collect the answers before they have been allocated to the cells. Try moving and evaluating i and k until after the above code. Cant check without workbook

As for example your variable a is not an object - String or Variant - so it can't have any property like Value !
Easy to check in Locals windows … Don't forget the brackets for Evaluate, to see in VBA inner help !

Still had the same error when moved. If I just do a + b + c + … it brings back FALSE, only one that is giving me a value and not an error

if i do a typename(a) before your "i=" line, it says that it is a string. thus you will not be able to say a.value2 as "a" is not a range that you can get the value2 property.

No one is going to recreate your workbook structure to test. You seem to want to allocate formulas to offsets from a cell but offset from what??. Post a workbook without any sensitive data

I figured it out, just had a take a long way with probably too many lines of code

According to your piece of code as a beginner starter :

PHP Code: 

  Const F = "SUMPRODUCT((MONTH(Data!A2:A2000)=7)*(YEAR(Data!A2:A2000)=2019)*(Data!#2:#2000))"
    Dim V, C%
        V = [{"S","V","Y","AB","AE","AN","AK","AH"}]
    For C = 1 To 8
        cl.Offset(, C).Value2 = Evaluate(Replace(F, "#", V(C)))
    Next
        cl(1, 10).Value2 = Application.Sum(cl(1, 2).Resize(, 8))
        cl(1, 11).Value2 = Evaluate(Replace(F, "#", "AT"))
        cl(1, 12).Value2 = cl(1, 10).Value2 + cl(1, 11).Value2 


Do you like it ? So thanks to click on bottom left star icon Ğ ★ Add Reputation ğ !

This line: cl.Offset(, C).Value2 = Evaluate(Replace(F, "#", V(C))) is coming back with a Type Mismatch error

How can I test without any attachment ?

Erase my code and try again from post #9 as I mod the original code (typo) in post #8 …

Post #9 worked, Thank you