Get Unique counting based on multiple criteria and loop for each buyer

[-=NO=-]

Hello Guys

Please advise to use the below code to loop through the below table to get unique values (# of POs made by each buyer)

Dim MyDict As Object, c As Variant, LR1 As Long, LR2 As Long, rng As Range
Dim i

Set MyDict = CreateObject("Scripting.Dictionary")
LR1 = Sheets("PO").Range("R65536").End(xlUp).Row

    On Error Resume Next
    For i = 4 To 15
        For Each c In Sheets("PO").Range("B3:B" & LR1)
            If c.Offset(0, -1) = Sheet19.cmbBranchB Then
                If c.Offset(0, 16) = Sheets("PO Analysis").Range("J" & i) Then
                    If Not MyDict.exists(c.Value) Then MyDict.Add c.Value, Nothing
                End If
            End If
        Next c
        
        Sheets("PO Analysis").Range("J" & i).Offset(0, 1) = MyDict.Count
    Next

 

[-=NO=-]

UP, please

 

[-=NO=-]

UP, dears

 

[Peter_SSs]

I have a few suggestions that might get you more help in the forum ..

1. Provide some meaningful sample data and the expected results (preferably with XL2BB ). You asked us to loop through the table to get unique values. All the values are unique and there is nothing that resembles a "buyer"
   
   
2. Don't 'bump' too early or too often. #12 of the Forum Rules explains why and there is also information in the Guidelines (6 & 7)
   
   
3. Update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[-=NO=-]

Thanks Peter

The below is the source sheet, I need a code to count the unique POs in column B based on the below selected criteria:
1. cmbBranch (combo box for Branch)
2. cmbBuyer (combo box for buyer name)

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1	BRANCH	PO NUMBER	ORDER DATE	ITEM CODE	ITEM DESCRIPTION	UOM	CATEGORY	QTY. ORDERED	UNIT PRICE	ORDER VALUE	QTY. RECEIVED	FOC QTY.	GRN TOTAL VALUE	QTY. PENDING	SUPPLIER CODE	SUPPLIER NAME	CURRENCY	BUYER
2	City 1	140096535				Each		1	2,500.00	2,500.00	1			0			$	Buyer 1
3	City 1	140096534				Each		10	420.00	4,200.00	10			0			$	Buyer 2
4	City 3	140096531				Each		23	450.00	10,350.00	23			0			$	Buyer 3
5	City 4	140096477				Each		200	21.00	4,200.00	200			0			$	Buyer 4
6	City 5	140096436				Each		30	80.00	2,400.00	30			0			$	Buyer 5
7	City 6	140096434				Each		40	40.00	1,600.00	0			40			$	Buyer 6
8	City 2	140096433				Each		1	3,200.00	3,200.00	0			1			$	Buyer 7
9	City 4	140096353				Each		1	250,605.13	250,605.13	1			0			$	Buyer 8
10	City 4	140096300				Each		2	3,000.00	6,000.00	0			2			$	Buyer 9
11	City 2	140096298				Each		40	6.45	258.00	40			0			$	Buyer 2
12	City 5	140096298				Each		40	6.45	258.00	40			0			$	Buyer 1
13	City 3	140096293				Each		6	1,050.00	6,300.00	0			6			$	Buyer 6
14	City 3	140096293				Each		6	162.00	972.00	0			6			$	Buyer 8
Sheet1

After counting, copy data in the below sheet

KPI-Jeddah v4.xlsm
	I	J	K	L	M
1
2			Per Employee
3		Buyer	# of POs	Total Value / $	%
4
5
6
7
8
9
10
11
12
13
14
15
PO Analysis

Cell Formulas
Range	Formula
L4:L15	L4	=IF(J4="","",SUMIFS(PO_21[ORDER VALUE],PO_21[BUYER],J4))
M4:M15	M4	=IFERROR(L4/$L$17,"")

 

[-=NO=-]

Please Guys, If anyone can advise