Comparar columnas de hoja1 con las columnas de hoja2.

Dante Amor

Espero que me puedas ayudar con una macro para lo siguiente.

En un archivo de excel necesito comparar dos columnas de hoja1 con las columnas de hoja2 y copiar los valores de una columna de hoja2 a la misma columna de hoja1.

Adjunto imágenes para que lo entiendas mejor, salud

1 respuesta

Respuesta
2

Te paso la macro:

Sub Compara2Columnas()
  Dim dic As Object
  Dim i As Long
  Dim cad As String
  '
  Set dic = CreateObject("Scripting.Dictionary")
  '
  With Sheets("Hoja2")
    For i = 2 To .Range("G" & Rows.Count).End(3).Row
      dic(.Range("G" & i).Value & "|" & .Range("H" & i).Value) = .Range("J" & i).Value
    Next
  End With
  '
  With Sheets("Hoja1")
    For i = 2 To .Range("G" & Rows.Count).End(3).Row
      cad = .Range("G" & i).Value & "|" & .Range("H" & i).Value
      If dic.exists(cad) Then
        .Range("J" & i).Value = dic(cad)
      End If
    Next
  End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas