macro para guardar valores de dos hojas de un libro en otro cuyo nombre es el contenido de una celda

2 envíos / 0 nuevos
Último envío
lfgf37
Imagen de lfgf37
Offline
última acción: Hace 12 años 1 mes
alta: 13/02/2012 - 12:50
Puntos: 25
macro para guardar valores de dos hojas de un libro en otro cuyo nombre es el contenido de una celda

Hola.

Tengo un libro de excel 2003 en el que inserto valores en distintas hojas y me suma estos valores en otra para crear una factura.

Necesito una macro que me guarde solo los valores de las columnas A1:H55 en otro libro ya creado (totales) añadiendo hojas cuyo nombre es el valor de la celda J2 del original

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 17 horas 53 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: macro para guardar valores de dos hojas de un libro en otro

puedes hacer algo parecido a esto:

voy a utilizar unas variables de objeto para referirme a los libros y a las hojas

Dim HojaOrigen As Worksheet
Dim HojaDestino As Worksheet
Dim LibroDestino As Workbook

depende de dónde ejecutes la macro y dónde la guardes, la identificación de los objetos cambiará, pero podría ser algo así:

Set HojaOrigen = ActiveSheet 'por ejemplo, si ejecutas la macro con la hoja de origen activa
Set LibroDestino = ThisWorkbook ' si la macro está guardada en el libro de destino

bueno, después de estos pasos previos, añadiría una nueva hoja al libro de destino para poner allí los datos
le pongo el nombre que dices qeu está en la celda J2 de la hoja de origen 

Set HojaDestino = LibroDestino.Worksheets.Add
HojaDestino.Name = HojaOrigen.Range("j2").Value

ahora copio los datos de la hoja de origen

HojaOrigen.Range("A1:H5").Copy

y pego valores en la hoja de destino

HojaDestino.Range("A1:H5").PasteSpecial xlPasteValues
Application.CutCopyMode = False  'esto es para desactivar el modo copiar y pegar

No olvides al final borrar los objetos utilizados

Set HojaDestino = Nothing
Set LibroDestino = Nothing
Set HojaOrigen = Nothing

y poco más ¿resuelve esto tu problema?

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.