NOT expected result in macro

[LoganTrk]

Hello, my macro should do the following. It must be verified that all the “Project Code” declared in sheet 1704 are reflected in the “Project Code” field of sheet 1701. It works fine but when the same code is put several times on sheet 1704, it tells me that the code is not found on sheet 1701.

<code style="border: 0px; font-weight: inherit; font-style: inherit; font-family: inherit; margin: 0px; outline: 0px; padding: 0px; line-height: 12px;">Dim varrayC As Variant, varrayA As Variant
Dim lastRow As Long

Dim dict As Object
Dim j As Double

Set dict = CreateObject("scripting.dictionary")
' Definicion d rangos

lastRow = Hoja48.Range("A" & Rows.Count).End(xlUp).Row
varrayA = Hoja48.Range("A2:A" & lastRow).Value

lastRow = Hoja50.Range("A" & Rows.Count).End(xlUp).Row
varrayC = Hoja50.Range("A2:A" & lastRow).Value

On Error Resume Next
For i = 1 To UBound(varrayA, 1)
    dict.Add varrayA(i, 1), 1
Next

j = 10
' Comparar

For i = 1 To UBound(varrayC, 1)

    If dict.exists(varrayC(i, 1)) = False Then
                
        Hoja46.Cells(j, 66).Value = varrayC(i, 1)
            
       j = j + 1
      
   
    End If
Next i
</code>

sheet 1701

Code Name
CW222222 Sondaje


sheet 1704

Code System
CW222222 220
CW222222 220
CW222222 220
CW222222 220
CW222222 220
CW222222 220


Result

CW222222
CW222222
CW222222
CW222222
CW222222
CW222222


Expected result

no code, since it is found on sheet 1701

please help, I'm stuck

 

[Akuini]

Why there are no sheet 1701 & 1704 mentioned in your code?

 

[LoganTrk]

cause sheet 1701 is sheet 48 or hoja48 in spanish , and sheet 1704 is hoja50 , and in hoja46 i put results

 

[Akuini]

cause sheet 1701 is sheet 48 or hoja48 in spanish , and sheet 1704 is hoja50 , and in hoja46 i put results

then I think hoja50 is the one that should be populated into dictionary, try setting the range in reverse:

lastRow = Hoja50.Range("A" & Rows.count).End(xlUp).Row
varrayA = Hoja50.Range("A2:A" & lastRow).Value

lastRow = Hoja48.Range("A" & Rows.count).End(xlUp).Row
varrayC = Hoja48.Range("A2:A" & lastRow).Value