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.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Problema con el evento Workbook_Open

Autor del tema DamianDi-eM
Fecha de inicio 23 Ene 2013

DamianDi-eM

New member

23 Ene 2013

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...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Problema con BeforeClose NO funciona el evento Cancel

Respuestas: 8

7 Jun 2021

Eddy001

Pregunta

Problema Evento-Macro

Respuestas: 2

15 Ene 2020

KrisPhoenix10

Pregunta

Problema con el evento SelectionChange

Respuestas: 2

4 Ene 2013

oruiz

Pregunta

Problema al abrir un archivo xlsm

Respuestas: 4

10 Ago 2026

jelsir79

Pregunta

Problema con referencias a Autocad en un Addin en VBA

Respuestas: 2

13 Jul 2026

rogman

Resuelto

Problema al colocar BuscarV

Respuestas: 3

8 Oct 2025

Roberto2010

Pregunta

Problema con mi combobox.

Respuestas: 1

20 Sep 2025

Dante Amor M

Cerrado
Pregunta

Problema de filtro dentro Listbox

Respuestas: 14

4 Sep 2025

TodoExcel

Pregunta

Problema con Macro, recalcular coberturas dinamicas

Respuestas: 1

10 Jul 2025

Leopoldo Blancas

Pregunta

Problema Macro

Respuestas: 10

3 Jul 2025

FGV

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba