COPIAR CELDAS DE UN LIBRO A OTRO

2 envíos / 0 nuevos
Último envío
anthuan100
Imagen de anthuan100
Offline
última acción: Hace 3 años 6 meses
alta: 12/05/2014 - 14:06
Puntos: 37
COPIAR CELDAS DE UN LIBRO A OTRO

Buen día,

Al pulsar el botón guardar del formulario el archivo se guarda con 2 EXTENSIONES (.PDF Y .XLSM) en el mismo destino C:, ambos se guardan con la misma información.

Que me gustaría:

Poder abrir el libro desde excel y que se copien las siguiente celdas automáticamente.
h8-g9-b10-f10-e11-f11 de la b13 a la b15. que se copie del libro que se guarda en .XLSM en disco C: a el libro de facturación.

ya la macro para buscar el libro esta lista solo falta poder hacer que se copien las celdas y cierre el  libro ABIERTO automáticamente.


Feliz dia muchas gracias

AdjuntoTamaño
File facturacion_-_copy_2.xlsm256.14 KB

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 35 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7590
Re: COPIAR CELDAS DE UN LIBRO A OTRO

Como quieres intercambiar datos entre el libro actual y el libro que vas abrir, te sugiero que utilices una variable de tipo libro para referirte al nuevo libro

Suponiendo que en la variable rutaArchivo tengas la ruta completa al archivo

 

Dim ElOtroLibro as Workbook

Set ElOtroLibro =Workbooks.Open(rutaarchivo)

 

Por ejemplo para poner en la celda activa el valor que haya en la hoja "datos", celda "B32" del otor libro, puedes hacer lo siguiente:

ActiveCell.Value=ElOtroLibro.Sheets("datos").Range("B32").value

 

Para escribir datos en el otro libro, tomándolos de otro sitio, pues más o menos igual, por ejemplo, para escribir en la celda B54 de la hoja "resultados" del otro libro un valor que tengo en la variable MiVariable, podrías hacer esto

ElOtroLibro.Sheets("resultados").Range("B54").value = MiVariable

 

ves que se puede hacer de muchas maneras, depende de lo que quieras hacer y de dónde tengas los datos y dónde los quieras copiar.

 

Cuando termines, para cerrar el libro

ElOtroLibro.Close True   ' True es para guardar los cambios

Set ElOtroLibro=Nothing

 

 

 

Data Tools Suite
datos y tablas con Excel