Excel - Necesito ayuda, por favor!

Hola.

A ver si alguien del foro puede echarme una mano con un problema que me surgió. Explico un poco el problema.

En una hoja (hoja1) he creado un botón que, únicamente introduciendo un número, me actualiza los datos de una página web en la misma hoja. Si introduzco el 1 me pega los datos de la semana 1. Si introduzco el 2, los datos de la semana 2, etc..

Las tablas pegadas en esta hoja por la consulta web contienen Nombres distintos con varias variables cada uno de ellos, pero yo sólo necesito los valores de una de esas variables ubicadas en una columna en concreto.

Lo que quiero es coger esos datos de esa variable para cada nombre y pegarlos en otra hoja (hoja2) de modo que aparezcan los valores de ese dato para cada Nombre en todas las semanas. Sería algo más o menos así:

..................Semana1 .. Semana2 .. Semana3 ....
Nombre1 .. SuDato1 .. SuDato2 .. SuDato3 ....
Nombre2 .. SuDato1 .. SuDato2 .. SuDato3 ....
Nombre3 .. SuDato1 .. SuDato2 .. SuDato3 ....
.
.
.

Podría utilizar la funcion BUSCARV para pegar el valor correspondiente al Nombre1 de la Semana 1 de la hoja1 en la hoja2. El problema esta en que cuando actualizo en la hoja1 a la Semana2 los valores cambian en esa hoja por lo que también cambiarían los valores de la Semana1 obtenidos mediante esa fórmula en la hoja2.

¿Alguien tiene alguna idea de como podría solucionarlo?

Un saludo.

1- No mencionas el orden ni tipo de datos de la hoja1
2- Mencionas "Las tablas pegadas en esta hoja". es decir, son varias tablas??? Y si fuera asi, como estan posicionadas??? Son del mismo "tamaño"??
3- Sabes bien VBA??
4- Los datos de la hoja2, deberian sobreescribirse??? o que?

Abraham

Bueno, este es el código del botón que actualiza cada semana. En la columna ''W' coloca los valores que quiero pasar a la otra hoja (hoja2).

En la hoja2, tengo ordenados los jugadores por equipos en una columna (columna C). La cuestión sería buscar el nombre del jugador que está en la fila 3 en la hoja2 dentro de la "tabla" de datos de la hoja1 e insertar su valor en la celda H3 de la hoja2. Y así con todos los jugadores de la columna C. Continuaría con H4, H5, H6,...para la primera semana. I3, I4, I5, ....para la 2ª semana, etc...Así hasta 'AO' (34 semanas).

No se si me entiendes. Es difícil explicar y de entender para el que no lo ve así sin la hoja de excel delante.

Si no entiendes me dices y te paso la hoja.

[code]
Private Sub CommandButton1_Click()
Dim a As Single
a = 50991
Range("a6", "w361").Select
Selection.Delete
For v = 1 To 34
If Range("c1") = v Then
a = a + v * 9
End If
Next v
Cells(5, 1).Select
c = 1
For b = 1 To 9
a = a + 1
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.acb.com/fichas/LACB" & a & ".php", Destination:=ActiveCell.Offset(c, 0))

.Name = "LACB" & a
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

c = c + 40
End With
Next b

For j = 8 To 344 Step 40
c = j
h = 0
i = 0
'Pasamos por todas las casillas del "primer" equipo.
Do While Not IsEmpty(Cells(c, 1))
c = c + 1
h = h + 1
Loop
'Encontramos el resultado del "primer" equipo.
e = Val(Cells(c + 1, 4))
'Pasamos por todas las casillas del "segundo" equipo.
d = c + 6
Do While Not IsEmpty(Cells(d, 1))
d = d + 1
i = i + 1
Loop
'Encontramos el resultado del segundo equipo.
f = Val(Cells(d + 1, 4))
'Hacemos la diferencia entre los resultados.
g = e - f
'Ponemos los cotadores en el lugar/sitio original.
c = c - h
d = d - i
'Hacemos los cálculos y los ponemos en la última columna de los equipos.
If g > 0 Then
Do While Not IsEmpty(Cells(c, 1))
If Cells(c, 22) > 0 Then
Cells(c, 23) = Cells(c, 22) * 1.2
Else
Cells(c, 23) = Cells(c, 22)
End If
c = c + 1
Loop
Do While Not IsEmpty(Cells(d, 1))
Cells(d, 23) = Cells(d, 22)
d = d + 1
Loop
End If
If g < 0 Then
Do While Not IsEmpty(Cells(d, 1))
If Cells(d, 22) > 0 Then
Cells(d, 23) = Cells(d, 22) * 1.2
Else
Cells(d, 23) = Cells(d, 22)
End If
d = d + 1
Loop
Do While Not IsEmpty(Cells(c, 1))
Cells(c, 23) = Cells(c, 22)
c = c + 1
Loop
End If
Next j
End Sub
[/code]

Gracias.

Pues como bien dices, sin ver la hoja, es dificl de entender. De todos modos, me dice que la web no existe. Pero, anlaizando lo que necesitas, veo que la solucion es crear una amcro que haga eso que deseas

Abraham

Hola de nuevo.

Te puedes descargar el archivo desde este enlace.

http://rapidshare.com/files/43267712/LWP.xls.html

La hoja ACTUALIZAR es donde se actualizan los datos introduciendo el número de jornada. Al actualizar a una jornada nueva desaparecen los datos anteriores.

La siguiente hoja, VALORACIONES, es donde quiero introducir los valores de cada jugador en cada jornada, es decir a partir de la columna H. En total son 34 jornadas.

Espero que ahora con la hoja ya me puedas echar un cable.

Un saludo.

Bueno, en realidad no esta dificil, un poco trabajoso, pero nada de gran dificultad. Pero, vuelvo una pregunta no respondida. Sabes vBA??? Hiciste tu la macro de datos de la web??? La verdad, particularmente, yo no tengo tiempo de ahcer macros para otros. Lo que todos hacemos aqui es ayudar. Entonces, si sabes VBA, puedes ir comenzando y ya yo u otro te vamos guiando

Abraham

En realidad la macro no la hice yo pero me gustaría completarla con lo que propongo. No se programar en VBA, aunque me estoy mirando manuales, pero esto va despacio. He hecho otras macros pero sin introducir yo el código directamente sino utilizando el menu y siguiendo los pasos para hacer la macro.

Si dices que no es complcado aunque si trabajoso quizás pueda hacerlo yo si me das las indicaciones necesarias.

Muchas gracias.