Consolidar datos.

18/02/2006 - 16:37 por Cesar H | Informe spam
Buanos días:

Resulta que tengo a cargo 30 funcionarios que quincenalmente me envian un
reporte en Excel de las horas que estuvieron en determinado cliente, ej:

Cliente1 8Hrs
Cliente2 12Hrs
.
.
.
Cliente n nHrs

Pero sucede que me toca tomar archivo por archivo copiar esos datos y
agregarlos a una nueva hoja para tener un resumen de todos en un sólo lugar,
habra forma de automatizar este proceso?

Mil gracias!

Preguntas similare

Leer las respuestas

#1 Cesar H
28/02/2006 - 15:38 | Informe spam
Apreciado Héctor:

Me arroja un error en esta línea:

Range(Range("a2"), Range("b65536").End(xlUp)).Copy _
ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(1)

Qué será?

Agradezco tu ayuda



"Héctor Miguel" escribió en el mensaje
news:
hola, Cesar !

... 30 funcionarios que quincenalmente me envian un reporte en Excel de
las horas que estuvieron en determinado cliente, ej:
Cliente1 8Hrs
Cliente2 12Hrs
.
Cliente n nHrs
... me toca tomar archivo por archivo copiar esos datos y agregarlos a
una nueva hoja para tener un resumen de todos en un solo lugar
habra forma de automatizar este proceso?



algunos 'detalles' que no has comentado... podrian 'hacer la diferecia'
:)) [sin embargo]...
si 'pones' esos archivos en una carpeta 'especifica'... podrias usar un
'FileSearch' para abrir cada libro y extraer 'sus datos' ;)
-> prueba/adapta/modifica/comenta/... algo +/- como el ejemplo al final
del presente ;)

si cualquier duda [o informacion adicional]... comentas ?
saludo,
hector.
en un modulo de codigo 'normal' -> en el libro 'resumen' ==> Sub Abre_Copia_Cierra()
Application.ScreenUpdating = False
Dim BuscarDonde As String, Sig As Integer
' en la siguiente linea ESPECIFICA el directorio donde quieres
'buscarlos' '
BuscarDonde = "c:uta y\sub-carpeta donde estan\los archivos\" ' NO
olvides al final el ->\<- '
With Application.FileSearch
.NewSearch
.LookIn = BuscarDonde
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For Sig = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(Sig)
Worksheets(1).Activate
Range(Range("a2"), Range("b65536").End(xlUp)).Copy _
ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(1)
ActiveWorkbook.Close False
Next
Else: MsgBox "No existen documentos en " & BuscarDonde
End If
End With
End Sub

Respuesta Responder a este mensaje
#2 Héctor Miguel
28/02/2006 - 19:08 | Informe spam
hola, Cesar !

... arroja un error en ...
Range(Range("a2"), Range("b65536").End(xlUp)).Copy _
ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(1)
Que sera?



1) cual es el numero de error y que dice el texto del mensaje ?
2) son 'correctas' mis suposiciones con el arreglo 'real' de tus datos [hojas y rangos] ?
3) 'pasa bien' alguno de los archivos ? [o ninguno y 'falla' desde el primer intento] -?-

comentas algun detalle mas.. 'preciso' ?
saludos,
hector.
Respuesta Responder a este mensaje
#3 Cesar H
28/02/2006 - 22:09 | Informe spam
Héctor, mil gracias por andar pendiente de los post, dejame decirte que ya
lo solucioné y lo adapte a mis necesidades, excelente solución Héctor!. Pero
ahora quisiera agregarle una cosita más...cómo puedo hacer para que mientras
está cargando los datosque son bastantes y de varios archivosme
salga un aviso que diga "procesando" o algo por el estilo.

Agradezco tu acostumbrada colaboración y una vez más MIL GRACIAS!



"Héctor Miguel" escribió en el mensaje
news:
hola, Cesar !

... arroja un error en ...
Range(Range("a2"), Range("b65536").End(xlUp)).Copy _
ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(1)
Que sera?



1) cual es el numero de error y que dice el texto del mensaje ?
2) son 'correctas' mis suposiciones con el arreglo 'real' de tus datos
[hojas y rangos] ?
3) 'pasa bien' alguno de los archivos ? [o ninguno y 'falla' desde el
primer intento] -?-

comentas algun detalle mas.. 'preciso' ?
saludos,
hector.

Respuesta Responder a este mensaje
#4 luka
01/03/2006 - 00:38 | Informe spam
Hola a los dos,
Perdonar que me meta en medio, pero estaba mirando cosas por ahí y me he
encontrado con esto

http://www.ozgrid.com/FreeDownloads...essage.zip

que tiene toda la pinta que es lo que pides.

Saludos,
Javier B.

Cesar H escribió:
Héctor, mil gracias por andar pendiente de los post, dejame decirte que ya
lo solucioné y lo adapte a mis necesidades, excelente solución Héctor!. Pero
ahora quisiera agregarle una cosita más...cómo puedo hacer para que mientras
está cargando los datosque son bastantes y de varios archivosme
salga un aviso que diga "procesando" o algo por el estilo.

Agradezco tu acostumbrada colaboración y una vez más MIL GRACIAS!



"Héctor Miguel" escribió en el mensaje
news:
hola, Cesar !

... arroja un error en ...
Range(Range("a2"), Range("b65536").End(xlUp)).Copy _
ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(1)
Que sera?


1) cual es el numero de error y que dice el texto del mensaje ?
2) son 'correctas' mis suposiciones con el arreglo 'real' de tus datos
[hojas y rangos] ?
3) 'pasa bien' alguno de los archivos ? [o ninguno y 'falla' desde el
primer intento] -?-

comentas algun detalle mas.. 'preciso' ?
saludos,
hector.





Respuesta Responder a este mensaje
#5 Cesar H
01/03/2006 - 15:03 | Informe spam
Gracias por responder, es cierto parece que esa es la solución que necesito,
pero no la he entendido ni sé como adaptarla a la mia, espero comentarios.

Mil gracias!




"luka" <luka79arrobatelefonica.net> escribió en el mensaje
news:%
Hola a los dos,
Perdonar que me meta en medio, pero estaba mirando cosas por ahí y me he
encontrado con esto

http://www.ozgrid.com/FreeDownloads...essage.zip

que tiene toda la pinta que es lo que pides.

Saludos,
Javier B.

Cesar H escribió:
Héctor, mil gracias por andar pendiente de los post, dejame decirte que
ya lo solucioné y lo adapte a mis necesidades, excelente solución
Héctor!. Pero ahora quisiera agregarle una cosita más...cómo puedo hacer
para que mientras está cargando los datosque son bastantes y de
varios archivosme salga un aviso que diga "procesando" o algo por el
estilo.

Agradezco tu acostumbrada colaboración y una vez más MIL GRACIAS!



"Héctor Miguel" escribió en el mensaje
news:
hola, Cesar !

... arroja un error en ...
Range(Range("a2"), Range("b65536").End(xlUp)).Copy _
ThisWorkbook.Worksheets(1).Range("a65536").End(xlUp).Offset(1)
Que sera?


1) cual es el numero de error y que dice el texto del mensaje ?
2) son 'correctas' mis suposiciones con el arreglo 'real' de tus datos
[hojas y rangos] ?
3) 'pasa bien' alguno de los archivos ? [o ninguno y 'falla' desde el
primer intento] -?-

comentas algun detalle mas.. 'preciso' ?
saludos,
hector.




Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida