Extraer datos de varias hojas de acuerdo a dos condiciones para hacer un resumen

moroquito · el 19 de junio

Buena tarde a todos:

Necesito hacer un resumen de folios y con los nombres de pacientes a una hoja resumen. Pero los datos de cada hoja son extensos.

La informacion que quiero extraer son de las columnas en que se encuebntran los Folio, fecha, y nombre de paciente.

Muchas gracias

Extraccion de datos.xls

joshua · el 20 de junio

Saludos.

Una opción sencilla usando formula desde vba, pruebala y comentas.

Sub Resumen()

Application.ScreenUpdating = False

With Sheets("Resumen")

'recorremos las hojas del libro

For i = 1 To Sheets.Count

'condicionante para no tomar la hoja resumen

If Sheets(i).Name = "Resumen" Then

Else

'establecemos la ultima celda con datos

'de la hoja resumen

x = .Range("B65536").End(xlUp).Row

'establecemos los ciclos del bucle en base

'al numero de fila de la ultima celda con

'datos de la hoja correspondiente al bucle

'que recorre las hojas

vueltas = Sheets(i).Range("B65536").End(xlUp).Row

For ii = 1 To vueltas

'insertamos las formulas para referenciar los datos

Cells(x + ii, 2).Resize(, 4) = Array(Sheets(i).Name, _

"=" & Sheets(i).Name & "!B" & 4 + ii, "=" & Sheets(i).Name & "!C" & 4 + ii, _

"=" & Sheets(i).Name & "!D" & 4 + ii)

'dejamos solo valores en las celdas

Cells(x + ii, 2).Resize(, 4).Value = Cells(x + ii, 2).Resize(, 4).Value

'damos formato de fecha en la columna fecha

Cells(x + ii, 4).NumberFormat = "m/d/yyyy"

Next ii

End If

Next i

'filtramos para eliminar las filas con valor cero

.Range("B2:E2").AutoFilter Field:=2, Criteria1:="0"

.Range("B3:E3", .Range("B3:E3").End(xlDown)) _

.SpecialCells(xlCellTypeVisible).EntireRow.Delete

'quitamos los filtros

.Range("B2").AutoFilter

End With

Application.ScreenUpdating = True

End Sub[/CODE]

Atte.

joshua

moroquito · el 20 de junio

Joshua:

Muchas gracias, probe la macro y me marca un error " Subscript out of range", a que se debe cual rango es el que tengo mal.

Gracias

joshua · el 20 de junio

Saludos.

Sube el libro con el que estas trabajando, porsupuesto que con datos ficticios.

Atte.

joshua

moroquito · el 20 de junio

Joshua:

Este en mi primer post.

Ese es el ejemplo.

Saludos y gracias

joshua · el 20 de junio

Saludos.

No veo el adjunto, lo subiste....

Atte.

joshua

moroquito · el 21 de junio

Hola Joshua:

Subo mi ejemplo.

Saludos

Extraccion de datos.xls

joshua · el 22 de junio

Saludos.

El error " Subscript out of range" (Subíndice fuera del intervalo), se refiere al nombre de la hoja resumen, es decir en la macro que te adjunte al principio tengo definido el nombre de la hoja asi "Resumen", pero en tu libro tiene un espacio en blanco es decir asi "Resumen ", en el adjunto de tu ejemplo esta la macro acomodada a tu formato incluyendo el nombre

"Resumen ", bruebala y comentas.

Atte.

joshua

Extraccion de datos_joshua.xls

moroquito · el 22 de junio

Joshua:

Muchas gracias, ha quedado perfecto.

Solucionado.

li-y11 · el 22 de septiembre

Joshua:

Disculpa vi el archivo de extraccion, y creo que me puede servir para un reporte mensual que son aproximadamente 100 hojas, no se si se pueda indiar por ejemplo que me jale informacion de diferente celdas acomodando por hoja en una sola fila cada una

ejemplo jalo f50,e30,a10, etc... y que en el orden que las solicito jale en una sola fila todo.

De antemano mil gracias.