Comparar dos columnas y copiarlos

[DiegoLG]

Hola amigos.

aquí nuevamente molestando sobre una situación

tengo una base de datos donde bajo reportes de diferentes módulos

tengo dos columnas en la hoja1  sombreados de diferentes colores esas columnas quiero hacer una comparación y que me copie en la hoja de resultados si encuentra el dato parecido. Intente con la función buscarv pero no me dio el resultado y tambien intente con la formula si la columna A=T pero por lo que veo no me da el resultado por lo que en una columna trae varios (0).

Espero no confundirlos amigos, aquí adjunto el archivo para que se entienda mejor

De antemano muchas gracias.

Libro3.rar

[Antoni]

Prueba con esta macro:

Sub Comparar_Y_Copiar()
Hoja2.Cells.Clear
With Hoja1
   For x = 1 To .Range("A" & Rows.Count).End(xlUp).Row
      If Mid(.Range("A" & x), 3, 1) = "-" Then
         valor = "0" & Left(.Range("A" & x), 3) & "0000" & Mid(.Range("A" & x), 4)
         Set celda = .Columns("T").Find(valor)
         If Not celda Is Nothing Then
            fila = fila + 1
            Range("A" & x & ":S" & x).Copy Hoja2.Range("A" & fila)
            Range("T" & celda.Row & ":AC" & celda.Row).Copy Hoja2.Range("T" & fila)
         End If
      End If
   Next
   If fila > 0 Then Hoja2.UsedRange.Sort Key1:=Hoja2.Columns("A")
End With
End Sub

 

[DiegoLG]

Maestro @Macro Antonio Gracias por la gran ayuda, No se porque no me muestra las notificaciones ya vez que en el foro anterior si mostraba.
Doy por tema solucionado

 

[Antoni]

No te preocupes, parece que la nueva versión del foro tiene alguna laguna.