** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Vincular con otro libro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVincular con otro libro

 Responder Responder
Autor
Mensaje
edur Ver desplegable
Habitual
Habitual


Unido: 16/Diciembre/2007
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Tema: Vincular con otro libro
    Enviado: 09/Enero/2011 a las 21:14
HoLA
 
Tengo la siguiente macro
 
sub macro1()
Dim Libro as workbook
Set Libro=  Workbooks("Presupuesto1")
 
Quisiera cambiar "Presupuesto1" vinculandolo a una celda de un libro principal, de tal forma que pudiera ser variable.
 
¿ Se puede hacer ?
 
SAludos
Edu
 
 
 
 
 
 
 
 
Arriba
oirausu Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 25/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 4217
Enlace directo a este mensaje Enviado: 09/Enero/2011 a las 21:28
Sin haberlo probado, y suponiendo que la celda sea A1, te propongo que purebes lo siguiente
 
Set Libro=  Workbooks(Range("A1"))
 
y si no funciona mirate el siguiente hilo
 
Arriba
edur Ver desplegable
Habitual
Habitual


Unido: 16/Diciembre/2007
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Enviado: 09/Enero/2011 a las 21:36

HoLA

 
Lo he probado pero no funciona
 
Saludos
Edu
 
Arriba
oirausu Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 25/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 4217
Enlace directo a este mensaje Enviado: 09/Enero/2011 a las 21:42
¿Has mirado el hilo propuesto y has hecho pruebas poniendo la ruta adecuada de la cela A1 hasta que por ejemplo, un msgbox te muestre el contenido de la celda A1?
 
Es que el metodo prueba-ensayo es muy efectivo y un buen metodo de aprendizaje
Arriba
edur Ver desplegable
Habitual
Habitual


Unido: 16/Diciembre/2007
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Enviado: 09/Enero/2011 a las 22:09
Hola
 
Al final probando y probando me ha funcionado de la siguiente manera
 
 
Set LIBRO = Workbooks((Range("A1").Value))
 
Saludos
Edu
 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable