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

Añade antes de la línea del error:

[B]Sheets("acumulado semanal").Select[/B][/CODE]

Sheets("acumulado semanal").Range("e11:e14").Select

Reemplaza la línea fallida por:

Application.Goto Sheets("acumulado semanal").Range("e11:e14")

O, inclusive muchísimo mejor, elimina el bloque:

Sheets("reporte acabado p3").Range("c5:c8").Select

Selection.Copy

Sheets("acumulado semanal").Range("e11:e14").Select

Selection.PasteSpecial Paste:=xlPasteValues

y reemplázalo por:

Sheets("acumulado semanal").Range("e11:e14") = Sheets("reporte acabado p3").Range("c5:c8").Value

Saludos, Cacho R.

P.D.

Un gran saludo para el amigazo Antoni.