If en cambio de Libros de Excel

3 envíos / 0 nuevos
Último envío
RodrigoTG
Imagen de RodrigoTG
Offline
última acción: Hace 1 día 6 horas
alta: 11/05/2017 - 23:35
Puntos: 35
If en cambio de Libros de Excel

Hola buen día, necesito ayuda, ya que quiero saber si es posible usar la funcion "IF", para cambiar de libros o archivos de excel, es decir, tengo el archivo "A" y el "B" y mi macro copia informacion del "A" al "B", pero no siempre se pega la informacion en el "B", tambien puede ser en el "C" o en "G", la idea de la macro es tener 2 archivos abiertos, siempre el "A" y otro donde pego la informacion.

Lo he intentado cambiando con Workbooks(1) y (2), el problema es que no siempre tengo asignado el (1) al archivo "A", y ya no me funciona.

Mi intencion de usar el IF, es que valide si el Workbooks(1) es el archivo "A", entonces use el archivo (2) para pegar o viceversa.

Les doy el ejemplo de como lo tengo, pero me arroja el error


If Workbooks(2) = "A" Then

    Workbooks(1).Activate

Else

    Workbooks(2).Activate

 End If


Agradecere mucho su apoyo.

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 7 horas 18 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 6990
lo que deberías utilizar es

lo que deberías utilizar es una variable de objeto para referirte a cada libro, así utilizas la misma variable independientemente de cómo se llame el libro.

Dim miLibro as WorkBook

Set miLibro=ActiveWorkbook  'suponiendo que sea el libro activo el que te interese

 

Sobre el error que te da, pues de momento supongo que deberías comparar no el libro directamente, sino el nombre del libro 

If Workbooks(2).Name = "A" Then ...



 

Data Tools Suite
datos y tablas con Excel

RodrigoTG
Imagen de RodrigoTG
Offline
última acción: Hace 1 día 6 horas
alta: 11/05/2017 - 23:35
Puntos: 35
Muchas gracias por tu apoyo 

Muchas gracias por tu apoyo