Copiar fila de acuerdo a un criterio a otra hoja
La siguiente macro copia a otra hoja un rango de celdas (A:E) si encuentra que en la fila U el valor 1.
Sub Ejecutar()
'Encuentra el valor 1 en la celda U y los pasa a hoja PDF
Dim w As String
Application.ScreenUpdating = 0
With Sheets("PDF")
.[E2,A4:V8000].ClearContents
[A5:U5].AutoFilter 21, ">=1"
Rows("5:5").EntireRow.Insert
[a6].CurrentRegion.Copy
.[a4].PasteSpecial xlValues
[G1].Copy: .[E2].PasteSpecial xlValues
Application.CutCopyMode = False
w = .[E2].Value
.[E2] = "FECHA: " & w
Rows("5:5").Delete xlUp
Selection.AutoFilter
.[F:U].EntireColumn.Delete
.[A1:E4].Font.Bold = True
End With
Sheets("PDF").Select
Application.ScreenUpdating = 1
End SubLo que estaría necesitando es que debajo de esa informacion copie otra información.
El criterio para pegarla sería que encuentre el numero 2 en la columna "Y" y al momento de pasarlos también copie el encabezado del mismo situado en la fila 5 de la hoja donde se extrae la información.
1 Respuesta
Te anexo la macro actualizada
Sub Ejecutar()
'Encuentra el valor 1 en la celda U y los pasa a hoja PDF
Dim w As String
Application.ScreenUpdating = 0
With Sheets("PDF")
.[E2,A4:V8000].ClearContents
[A5:U5].AutoFilter 21, ">=1"
Rows("5:5").EntireRow.Insert
[a6].CurrentRegion.Copy
.[a4].PasteSpecial xlValues
[G1].Copy: .[E2].PasteSpecial xlValues
w = .[E2].Value
.[E2] = "FECHA: " & w
Rows("5:5").Delete xlUp
Selection.AutoFilter
'
[A5:Y5].AutoFilter 25, "=2"
Rows("5:5").EntireRow.Insert
[a6].CurrentRegion.Copy
u = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & u).PasteSpecial xlValues
Rows("5:5").Delete xlUp
Selection.AutoFilter
'
Application.CutCopyMode = False
.[F:U].EntireColumn.Delete
.[A1:E4].Font.Bold = True
End With
Sheets("PDF").Select
Application.ScreenUpdating = 1
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias Dante por el aporte! Sin embargo me sale un error al correr la macro "error en tiempo de ejecución 1004"
No termina de correr la macro porque se arma un autofiltro y si yo en forma manual quito el filtro si pasa a la informacion a la hoja PDF.
Saludos
Exactamente qué mensaje de error te aparece
¿Y en cuál línea de la macro se detiene?
Dante, el error del que te hablaba. En relación a donde se detiene la ejecución es en "Rows("5:5").Delete xlUp" en la parte ampliada de la macro.
Saludos y gracias.
¿Modificaste algo de la macro?
Envíame tu archivo para probar con tus datos, ya que con mis datos no tengo problemas
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario: "Juan Soprano"
