Expertos buenas tardes.
Tengo un problemita. Necesito desde un libro (a traves de un boton que posee una macro), abrir otro libro que selecciono desde una ventana emergente el cual posee una tabla en una hoja en especifico (con 7200 filas), ese macro me selecciona a traves de una variable solo la region donde hay informacion, me la copia, cierra el libro, activa el libro donde quiero pegar la informacion, se ubica en la primera celda del rango y pega la informacion con formatos y todo.
Sin embargo la macro revienta en un erro 1004 que dice: error en tiempo de ejecucion
Error en el metodo pastespecial de la clase Range
Y de verdad no se donde esta la novedad. Se que pueden ayudarme.
Gracias de antemano, aqui les adjunto la macro:
Private Sub CommandButton2_Click()
ActiveSheet. Unprotect "enamecargill"
''**********************************************************************************************************
Application. ScreenUpdating = False
strfilas = Range("E4"). Value 'H2: celda monitora del archivo receptor que calcula el numero de filas que tienen informacion en la hoja
Range("A7:O" & strfilas + 6). Select 'A18: primera celda de la tabla del archivo receptor, AB: la ultima columna de la tabla, 17: el numero de filas por encima de la primera celda de la tabla con informacion
Selection. ClearContents
Application. Dialogs(xlDialogOpen). Show
nombre = ActiveWorkbook. Name
Windows(ActiveWorkbook. Name). Activate
Sheets("IBDM"). Select
ActiveSheet. Unprotect "enamecargill"
strfilas2 = ActiveSheet. Range("I2"). Value 'H2: celda monitora que cuenta las filas con informacion en el archivo origen. En ambos casos la celda monitora es "H2"
ActiveSheet. Range("A7:O" & strfilas2 + 6). Select 'A4: En el archivo origen la primera celda con informacion es la "A4", AB: la ultima columna con informacion en la tabla
Selection. Copy
ActiveSheet. Protect "enamecargill"
ActiveWorkbook. Save
ActiveWindow. Close
Windows("Vision PDC_BDM 1. Xlsm"). Activate 'El archivo Receptor se llama pruebas macros2 'Aca el nombre del archivo receptor debe estar escrito EXACTAMENTE igual.
Sheets("EKA 1"). Select
ActiveSheet. Range("A7"). Select 'A18: nuevamente es la primera celda con informacion en la tabla destino del archivo.
ActiveSheet. Unprotect "enamecargill"
Selection. PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application. ScreenUpdating = True
ActiveSheet. Protect "enamecargill"
End Sub