AYUDA CON RESUMEN DE DATOS

11/07/2009 - 21:46 por Anonimo | Informe spam
Un saludo, Excel 2007.

Tengo un libro con 39 hojas, las primera es un resumen de las otras 38
seguidas. Se trata de un documento donde viene los nombres de 16 jugadores,
que no coinciden en su localizacion, pudiendo ser por ejemplo en la hoja 2
lo siguiente:

NOMBRE MIN GOL TA TR
Jose Angel 60 1 0 1
Pedro Miguel 60 2 1 0

Y así hasta los 16 jugadores y en sus 38 jornadas de liga,. Lo que quiero es
hacer un resumen de la siguiente forma:

JUGADOR 1 2 3 4 5 6 7
8 9 10 11 ...
Jose Angel 60 60 60 24
Miguel 60 60 60 60

Lo tengo hecho mediante bucles durante todas las hojas, pero me preguntaba
si con la instrucción find me sería más facil y más rapido. Con un ejemplo
que me ha mandado Hector estoy estudiandolo, pero no acabo de poder con
ello. Alguien podría explicarme como hacerlo de una forma sencilla mediante
vba sin tanto bucle?

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
12/07/2009 - 19:44 | Informe spam
hola, !

Mostrar la cita
con los mismos "supuestos" de la formula en el mensaje anterior...

saludos,
hector.

Sub Actualiza_xBucle()
Application.ScreenUpdating = False
Dim Jornada As Range, Jugador As Range, _
Fila As Byte, Col As Byte, n As Byte, x As Byte, y As Byte
With Worksheets("resumen").Range("a3").CurrentRegion
x = .Rows.Count - 1: y = .Columns.Count - 1
.Offset(1, 1).Resize(x, y).ClearContents
For Each Jornada In .Offset(, 1).Resize(1, y): n = n + 1
Col = Application.Match(.Parent.Range("a1"), _
Worksheets(Jornada.Text).Range("a4").Offset(, 1).Resize(, 4), 0)
For Each Jugador In .Offset(1).Resize(x, 1)
Fila = Application.Match(Jugador, _
Worksheets(Jornada.Text).Range("a4").Offset(1).Resize(16), 0)
Jugador.Offset(, n) = _
Worksheets(Jornada.Text).Range("a4").Offset(Fila, Col)
Next
Next
End With
End Sub
#7 Anonimo
12/07/2009 - 20:28 | Informe spam
Va perfecto Hector, ahora tengo que estudiarlo porque hay varias
instrucciones que no conozco y para aprender ya sabes, a buscar, leer e
intentar comprender.

Gracias de todas formas.


"Héctor Miguel" escribió en el mensaje de
noticias news:
Mostrar la cita
Ads by Google
Search Busqueda sugerida