Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

libro tomanndo valores de varios mas

05/04/2006 - 02:40 por Daniel Navea | Informe spam
Ayuda Hacer una pregunta
Hola
Primero que nada les felicito por sus rspuestas tan acertadas.
Quiero decirles que siempre consulto en su base de discusion.
Mi consulta es como sigue:
Tengo una carpeta "Marzo" con libros ordenados por fecha, vale decir,
existen varios libros llamados P.E. 01 de marzo 2006, otro libro con 02 de
marzo de 2006 y asi sucesivamente hasta llegar al 31 de marzo de 2006.
De estos libros necesito sacar datos de una hoja que todos ellos contienen,
llamada produccion.Pero esto debe ser en otro libro, y sacar los valores de
cada uno de los libros para poder tener una hoja de datos generales.
Creo haber explicado bien sino es como sigue:
En un libro nuevo necesito sacar el dato de produccion de los 31 libros del
mes.Este dato (datos en realidad), sta simpre n la misma ubicacion
existe alguna forma de hacerlo con macros?
o con planillas dinamicas?
o como sea Jiji
Espero que me puedan ayudar.
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
05/04/2006 - 06:10 | Informe spam
hola, Daniel !

... una carpeta "Marzo" con... varios libros llamados P.E. 01 de marzo 2006... hasta llegar al 31 de marzo de 2006.
... necesito sacar datos de una hoja que todos... contienen, llamada produccion
... esto debe ser en otro libro... para... tener una hoja de datos generales.
... Este dato (datos en realidad), sta simpre n la misma ubicacion [...]



existen varias formas de obtener datos de los 31 otros libros, la siguientes es +/- 'sencilla/rapida/barata/...
suponiendo que en la hoja1 de un libro nuevo necesitas 'extraer'...
-> el dato que esta en la celda 'C15'
-> de la hoja llamada 'produccion' [que se encuentra en los 31 libros]
-> de cada uno de los 31 libros "xx de marzo de 200l.xls" [cuyo 'nombre' es variable SOLO en la parte del dia 1/31]
-> y que todos estan en la carpeta 'C:\Marzo\'

copia/pega la siguiente macro -> en un modulo de codigo 'normal' en el proyecto vba del libro 'nuevo'...
==Sub Copiar_produccion()
Dim Sig As Byte
Application.ScreenUpdating = False
With Worksheets("hoja1").Range("a1")
.Offset.Resize(, 2).Value = Array("dia", "produccion")
For Sig = 1 To 31
.Offset(Sig) = Sig
.Offset(Sig, 1).Formula = "='c:\marzo\[" & Format(Sig, "00") & " de marzo de 2006.xls]produccion'!c15"
.Offset(Sig, 1) = .Offset(Sig, 1)
Next
End With
End Sub

toma nota que la macro 'crea' una fomula que contiene un vinculo 'real' hacia la celda C1 de la hoja produccion de cada libro...
y la convierte a valor 'constante' en el ultimo 'paso' del bucle 'For...Next' -> .Offset(Sig, 1) = .Offset(Sig, 1)
-> si deseas 'conservar' los datos vinculados a su rango de origen... [simplemente] elimina dicha instruccion [o antrponle un apostrofo ->'<-]
-> una 'ventaja' es que no es necesario abrir los 31 libros [a menos que tengan clave contra apertura/escritura] -?-
-> si 'el asunto' es que sea necesario 'traer' [o leer] NO SOLO la celda C15... sino un rango... habria que hacerle 'ajustes' a la 'formula' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares

 

Busqueda sugerida :