Error en macro, copiar información de una hoja a otra pegandola en celdas dependiendo de la fecha
publicado
Buenas tardes,
estoy trabajando en un archivo que me extrae información de un archivo externo, bajado de sap, hasta ahi todo funciona bien. Pero le quise agregar una nueva hoja que extraiga información del reporte generado y dependiendo el dia de la semana, lo pegue en su respectivo espacio en la tercer hoja. El problema es que ya con el codigo, me marca un error de aplicacion u objeto mal definido y no se como arreglar ese error. No les pude adjuntar el archivo, pero mando el código, por si le pudieran encontrar algún error.
El error me lo marca al llegar a la linea que resalté en negritas.
Buenas tardes,
estoy trabajando en un archivo que me extrae información de un archivo externo, bajado de sap, hasta ahi todo funciona bien. Pero le quise agregar una nueva hoja que extraiga información del reporte generado y dependiendo el dia de la semana, lo pegue en su respectivo espacio en la tercer hoja. El problema es que ya con el codigo, me marca un error de aplicacion u objeto mal definido y no se como arreglar ese error. No les pude adjuntar el archivo, pero mando el código, por si le pudieran encontrar algún error.
El error me lo marca al llegar a la linea que resalté en negritas.
Sub max()
Dim miRango As Range
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
Sheets("Queri").Visible = True
Sheets("Tablas").Visible = True
Set miRango = Worksheets("Queri").Range("I:I")
Worksheets("Reporte Acabado P3").Range("B1") = Application.WorksheetFunction.Min(miRango)
Worksheets("Reporte Acabado P3").Range("B2") = Application.WorksheetFunction.max(miRango)
Macro3
Sheets("Queri").Visible = False
Sheets("Tablas").Visible = False
Sheets("Reporte Acabado P3").Range("b1,b2").Select
If Range("b1") = Range("b2") Then
If Sheets("acumulado semanal").Range("e5") = Sheets("reporte acabado p3").Range("b1") Then
Sheets("reporte acabado p3").Range("c5:c8").Select
Selection.Copy
Sheets("acumulado semanal").Range("e11:e14").Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End If
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
Worksheets("Tablas").Select
Range("g14:w58").Select
Selection.Copy
Sheets("Reporte Acabado P3").Select
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Gracias de antemano. Saludos