Hola a todos,
Tengo varios archivos que se encuentran en una ruta de intranet, periodicamente alguien une la información de estos archivos en un archivo local para trabajar.
Todos los archivos (tanto en linea como local) tienen hojas ocultas con acceso a base de datos apra recuperar información actualizada y completar el formato.
A grandes rasgos la macro abre cada uno de los archivos en linea, copia las celdas necesarias y las pega en ela archivo local mediante ciclos For y un If.
Cuando la ejecuto me arroja un error despues de pegar la infromación, cuando intenta regresar al archivo origen. El error es el "13 - No coinciden los tipos".
Esto es parte del codigo:
Código:
For i = 1 To 16
rangos(i) = celdas(i) & "3:" & celdas(i) & fila
If i = 1 Then
copiar = rangos(i)
Else
copiar = copiar & "," & rangos(i)
End If
Next
Range(copiar).Copy
'cambiamos de archivo para pergar los datos
Windows(macro).Activate
ActiveWorkbook.Worksheets("Temporal").Select
Range("A" & total).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A" & total).Select
'Regresamos al archivo origen para copiar la siguiente columna
Windows(Serie).Activate 'aqui genera el error
Range("C3").Select
ActiveWindow.Close
El valor "Serie" corresponde al primer ciclo donde toma los nombres de los archivos.
Si necesitan el codigo completo, con gusto lo agrego. Ojala alguien pueda apoyarme a solucionar este error.