Excel - Problema en Workbook_open

   
Vista:

Problema en Workbook_open

Publicado por Di-eM ocouselo@violettacosmeticos.com.ar (4 intervenciones) el 23/01/2013 16:55:24
Buenos dias a todos:
Es mi primer mensajes en este foro, asi que si estoy haciendo algo mal a la hora de mostrar mi pregunta, haganmelo saber.
Estoy trabajando dentro del evento Workbook_open, la macro intenta actualizar 2 bases de datos que estan dentro de el libro activo, el error surge a la hora de querer cerrar los dos libros abiertos donde tomo los datos para volcarlos a las bases del libro en cuestion.
Sucede el error "9" en tiempo de ejecucion - Subindice fuera de intervalo-
No entiendo aun por que se produce este error ya que las especificaciones de Windows(" ").select estan bien escritas.
desde ya muchas gracias por su pronta respuesta.
dejo el codigo que estoy utilizando.

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Sheets("Proveedores").Select
ActiveSheet.Unprotect Password:="Damian"
baseabre = "\\DC10004\Usuarios\Wmartinez\Mis documentos\Base TAF de Proveedores.xlsx"
Workbooks.Open Filename:=baseabre, UpdateLinks:=False
[C4:F4].Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("T-A-F de devoluciones.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial (xlPasteValuesAndNumberFormats)
ActiveSheet.Protect Password:="Damian"
' Windows("Base TAF de Proveedores.xlsx").Activate
' ActiveWorkbook.Close False

Sheets("Base de Devoluciones").Select
ActiveSheet.Unprotect Password:="Damian"
baseabre2 = "\\DC10004\Usuarios\Wmartinez\Mis documentos\Base TAF de Devoluciones.xlsx"
Workbooks.Open Filename:=baseabre2, UpdateLinks:=False
[A1:J1].Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("T-A-F de devoluciones.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial (xlPasteValuesAndNumberFormats)
ActiveSheet.Protect Password:="Damian"
Sheets("Inicio").Select
' Windows("Base TAF de Devoluciones.xlsx").Activate
' ActiveWorkbook.Close False

End Sub

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Problema en Workbook_open

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 28/01/2013 19:24:13
si el error se produce al cierre de los libros, el código publicado no sirve de mucho...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar