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 de Dante Amor
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
