mjmcf007
-
Total de itens
3 -
Registro em
-
Última visita
Posts postados por mjmcf007
-
-
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 CompareRangeIf x = y Then
Range(x).Select
Selection.End(xlToRight).Select
Selection.Copy
Sheets("Result").Select
Range("A1").Activate
ActiveSheet.Paste
End IfNext 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 VariantSet 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 SubMe deem uma luz, por favor kk
Agradeço desde já
Função para comparar células e colar as iguais
em VBA
Postado
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