VBA Code to loop through Array and with criteria

[Wafee]

I have below code where we arrived at the list based on criteria and I have assigned it to an array called arr1. Now I am looking to apply a filter in "K" colum to select "Yes" alone loop through this array of items which are in "I" column and get the total sum from R column. I am fine if array is not to be used and we can loop through the list.

Sub Dcount()
Dim Lastrow As Long
Dim Rng As Range
Dim List As Object
Dim Listcount As Long
Dim arr1 as Variant
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set List = CreateObject("Scripting.Dictionary")
With Range("A1:I1")
.AutoFilter 1, "Temp", xlOr, "tem"
.AutoFilter 5, "MX"
End With
For Each Rng In Range("I2:I" & Lastrow).SpecialCells(xlVisible)
List(Rng.Value) = empty
Next Rng
ActiveSheet.AutoFilterMode = False
arr1 = Application.Transpose(Array(List.Keys, List.Items))

 

[Wafee]

Sorry, but I'm not understanding what the ultimate goal is.
Do you only want the sum according to some criteria?

I am really sorry if it is confusing. Leave all the above code and consider that I have few items in array called arr1 = (item1,item4,item6) and these items will be there in "I" column of the worksheet. Now I want to filter "CX" in F column and and then if it the item is there in "I" column then it should get value from "R" column. There might be multiple lines for singles item.

 

[DanteAmor]

Leave all the above code and consider that I have few items in array called arr1 = (item1,item4,item6) and these items will be there in "I" column of the worksheet. Now I want to filter "CX" in F column and and then if it the item is there in "I" column then it should get value from "R" column.

But the result of the sum, you want it in a msgbox or in a cell, because to make the sum it is not necessary to use the arrays, perhaps the sumifs formula.

 

[Wafee]

But the result of the sum, you want it in a msgbox or in a cell, because to make the sum it is not necessary to use the arrays, perhaps the sumifs formula.

I want it in a cell.

 

[DanteAmor]

Now I want to filter CX in sheet and find the total sum from R column against my arr1 items. In this case total sum would be 665. item1 - 100,103,109; item4- 119; item6 - 114, 120.

How about:

Dante Amor
	A					F			I									R	S	T
1	Head1					Head6			Head9									Head18
2	Temp					CX			Item1									100		665
3	Temp					CX			Item2									112
4	Temp					MX			Item3									101
5	Temp					MX			Item4									113
6	Temp					MX			Item5									102
7	Temp					CX			Item6									114
8	Temp					CX			Item1									103
9	Temp					CX			Item2									115
10	Temp					CX			Item3									104
11	Temp					MX			Item4									116
12	Temp					MX			Item5									105
13	Temp					MX			Item6									117
14	Temp					MX			Item1									106
15	Temp					MX			Item2									118
16	Temp					MX			Item3									107
17	Temp					CX			Item4									119
18	Temp					CX			Item5									108
19	Temp					CX			Item6									120
20	Temp					CX			Item1									109
Sheet2

Cell Formulas
Range	Formula
T2	T2	=SUM(SUMIFS(R2:R20,F2:F20,"CX",I2:I20,{"Item1","Item4","Item6"}))