Pegar datos de una hoja a otra con condición con una macro
Tengo un libro de exel con dos hojas (1 y 2 ) en la 1 tengo los datos que comienzan en la fila A4 y necesito que me copie a la Hoja2 desde la columna DE hasta la P siempre que el dato de la columna C coincida con el dato de la celda T1 de la misma hoja1, este dato siempre será un número pero variable
1 Respuesta
Respuesta de Dante Amor
Prueba lo siguiente:
Sub PegarDatos()
Dim c As Range, r As Range
With Sheets("Hoja1")
For Each c In .Range("C4", .Range("C" & Rows.Count).End(3))
If c.Value = .Range("T1").Value Then
If r Is Nothing Then Set r = .Range("D" & c.Row & ":P" & c.Row) Else Set r = Union(r, .Range("D" & c.Row & ":P" & c.Row))
End If
Next
End With
If Not r Is Nothing Then r.Copy Sheets("Hoja2").Range("A" & Rows.Count).End(3)(2)
End Sub
