Saltar al contenido

Comparar 2 listas y copiar el valor de las celdas contiguas si lo comparado son iguales

publicado

Hola amigo,quisiera su ayuda, lo que quiero es comparar 2 listas, lista1 y lista2 y si el valor de la lista2 es igual al valor de la lista1 entonces que me copie el dato de la celda de al costado ejm si lo encontre en b5 entonces que me copie el valor de c5 y lo copie en la hoja2 del mismo libro.El formato y una mejor explicacion lo adjunto en un archivo.

Desde ya gracias por su cooperacion.

Comp.rar

Featured Replies

publicado

Hola.

Tambien te dejo esta macro:

Sub n()
Dim cel, cel1 As Range
For Each cel In Hoja1.Range("I10:I15")
x = 1
On Error Resume Next
Range("B4,E4,H4,K4,B19").Find(cel.Value).Select
p = ActiveCell
For Each cel1 In Hoja1.Range("A10:A17")
If p = cel1.Value Then
x = x + 1
ActiveCell.Offset(x, -1) = cel1.Offset(, 1)
ActiveCell.Offset(x, 0) = cel1.Offset(, 4)
End If
Next
Next
End Sub

Un saludo.

publicado
  • Autor

Amigo te adjunto un macros que estoy trabajando, pero tengo un problema con el IF dentro de un FOR. en el libro te dejo una explicacion, gracias por tu funcion ,si funciona bien , pero quisiera hacerlo por un macros.

Problema con if.rar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.