Encontrar códigos iguais nas colunas

SuperBond · 15 de novembro de 2016

O objetivo da macro é encontrar indices da coluna PROD RECEB que sejam iguais aos da coluna PROD ALMOX. Encontrando, ele deve marcar 1, na coluna B, na linha correspondente ao indice encontrado. Por exemplo na figura digamos que o 81 e o 240 estejam na PROD RECEB e na PROD ALMOX, então ele marca 1 nas linhas correspondentes.

Os errros que acontecem:

- na depuração apontava "erro de definição de aplicativo ou de definição de objeto" em cells(m, 1) e em cells(n, 3);

- indicava indices que não estão na coluna PROD ALMOX;

- só funcionava certo quando a coluna PROD ALMOX tinha menos indices, até uns 20;

- agora ele apresenta um erro de compilação que não consigo identificar;

Estou mandando a planilha em que a macro é aplicada. ALMOXARIFADO.xlsx

Sub indices_almox()
Dim m As Long
Dim n As Long
[T:T].ClearContents
Sheets("almox").Activate
 For m = 2 To 29463 
  For n = 2 To cells(2, 5)
     If Cells(m, 1) = Cells(n, 3) Then
        Cells(m + 1, 2) = "1": m = m + 1
     End If
  Next n
 Next m
End Sub