mjmcf007

Não deu 😕 Fiz por uma ferramenta do excel mesmo, o PowerQuery. Mas ainda tinha interesse em fazer por vba, se alguém me der uma luz, já que quebrei tanto a cabeça nessa

Eu vi mais ou menos onde eu estava errando, pois o código estava copiando todas, sem fazer a comparação. Pois eu estava usando pra comparar uma seleção e ele estava devolvendo a seleção inteira. Melhorei aqui essa parte, mas não sei como fazer ele selecionar a linha que a variável do contador está Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Worksheets("GERAL").Range("C2:C411") Set CompareRange2 = Worksheets("Receita").Range("D2:D373") For Each x In CompareRange2 For Each y In CompareRange If x = y Then Range(x).Select Selection.End(xlToRight).Select Selection.Copy Sheets("Result").Select Range("A1").Activate ActiveSheet.Paste End If Next y Next x End Sub

Boa tarde, galera! Estou na missão de conseguir um código que compare duas colunas de duas planilhas diferentes, e que o código copie e cole em outra pasta de trabalho a linha inteira caso tenha esse match. Se puderem apontar onde estou errando, me ajudaria bastante. Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Worksheets("GERAL").Range("C2:C411") For Each x In Selection (no caso aqui seria a seleção da coluna da primeira planilha que quero comparar) For Each y In CompareRange (e aqui a coluna da segunda) If x = y Then Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("Result").Select Range("A1").Activate ActiveSheet.Paste End If Next y Next x End Sub Me deem uma luz, por favor kk Agradeço desde já