Estou com uma dificuldade em pegar valores de celulas comparadas pelo For Each e popular outras celulas com seus valores relacionados.
O resultado me retorna n valores, pelo offset consigo os valores retornados, mas preciso dos valores das celuas a direita
ex:
Os resultados de A1:A10 preciso colar em outra planilha B5:B15.
Segue meu codigo
Código: Selecionar todos
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Sheets("Relogio").Range("d5:d99")
For Each x In Sheets("Espelho").Range("a5:a39")
For Each y In CompareRange
If x = y Then
x.Offset(0, 17) = x ' Aqui mostram os valores achados e copiados pelo offset
'preciso pegar os valores de celulas e colar em outra
'celula de destino = x.Offset(0, 3).Value
End If
End If
Next y
Next x
End Sub