Estou querendo comparar as informações de duas Colunas A e B, então criei uma verificação linha por linha, ou seja para A1 o código irá verificar todas as linhas Preenchidas da coluna B, para A2 o o código irá verificar todas as linhas Preenchidas da coluna B, e assim sucessivamente. Para quando a Informação na linha da coluna A for igual, a coluna B independente da linha, o código deveria retorna na Coluna C na mesma linha que A o Texto Suidaw. Exemplo
A1: 1 B1: 3 C1:
A2: 2 B2: 5 C2:
A3: 3 B3: 8 C3: Suidaw
A4: 4 B4: C4:
A5: 5 B5: C5: Suidaw
Tentei dessas duas Formas
1° Código
Sub Find_Matches()
lin = 1
w = 1
Do Until Sheets("Plan1").Cells(lin, 1) = ""
Do Until Sheets("Plan1").Cells(w, 2) = ""
If Sheets("Plan1").Cells(lin, 1) = Sheets("Plan1").Cells(w, 2) Then
Sheets("Plan1").Cells(lin, 3) = "Suidaw"
End If
w = w + 1
Loop
lin = lin + 1
Loop
End Sub
Resultado: Nada Acontece
________________________________________________________
2° Código
Sub Find_Matches ()
Dim CompareRange As Variant, x As Variant, y As Variant
Matrix = Range("A1:A5")
CompareRange = Range("B1:B2")
For Each x in Matrix
For Each y in CompareRange
If x = y then
Cells(x, 3) = "Suidaw"
Next y
Next x
End Sub
Resultado :
A1: 1 B1: 3 C1: Suidaw
A2: 2 B2: 5 C2: Suidaw
A3: 3 B3: 8 C3: Suidaw
A4: 4 B4: C4:
A5: 5 B5: C5:
Alguém poderia me ajudar? já não sei mais o que fazer.
A1: 1 B1: 3 C1:
A2: 2 B2: 5 C2:
A3: 3 B3: 8 C3: Suidaw
A4: 4 B4: C4:
A5: 5 B5: C5: Suidaw
Tentei dessas duas Formas
1° Código
Sub Find_Matches()
lin = 1
w = 1
Do Until Sheets("Plan1").Cells(lin, 1) = ""
Do Until Sheets("Plan1").Cells(w, 2) = ""
If Sheets("Plan1").Cells(lin, 1) = Sheets("Plan1").Cells(w, 2) Then
Sheets("Plan1").Cells(lin, 3) = "Suidaw"
End If
w = w + 1
Loop
lin = lin + 1
Loop
End Sub
Resultado: Nada Acontece
________________________________________________________
2° Código
Sub Find_Matches ()
Dim CompareRange As Variant, x As Variant, y As Variant
Matrix = Range("A1:A5")
CompareRange = Range("B1:B2")
For Each x in Matrix
For Each y in CompareRange
If x = y then
Cells(x, 3) = "Suidaw"
Next y
Next x
End Sub
Resultado :
A1: 1 B1: 3 C1: Suidaw
A2: 2 B2: 5 C2: Suidaw
A3: 3 B3: 8 C3: Suidaw
A4: 4 B4: C4:
A5: 5 B5: C5:
Alguém poderia me ajudar? já não sei mais o que fazer.
Última edição por Suidaw em 12/3/2017, 18:33, editado 1 vez(es)