Inicio > Microsoft Excel > gualo > SOS a todos los expertos

SOS a todos los expertos

Experto:
Usuario:
juliovegar
Fecha: 30/08/2008
Valoración: (4,00 sobre 5) Categoría: Microsoft Excel
30/08/2008
juliovegar, usuario preguntando en Microsoft Excel
Usuario
Hola amigos:

Mi problema es que tengo dos hojas en excel de tal forma que la primera es una lista de personas con diferentes columnas nombre, puntuacion, clasificacion etc. y en la segunda hoja tengo un programa de calculo de puntuaciones. Lo que quiero hacer es que seleccionando una persona de la primera hoja pueda irme a la segunda hoja y calcular sus puntos de tal forma que me los importe a su celda correspondiente de la primera hoja sin necesidad de teclearlo a mano.
Agradezco de antemano vuestra ayuda.

Un saludo.

Julio.
30/08/2008
juliovegar, experto respondiendo en Microsoft Excel
Experto
Si tienes un cálculo definido (tal vez sería más facil si me lo describes cómo se hace el cálculo) lo que puedes hacer es una función que haga el cálculo, y luego sólo utilizarla como cualquier otra función de excel, aunque esta sólo te serviría para ese libro (tendrías que copiarla a otro para que tambien se pudiera usar en otro).
Esto lo haces desde el editor vb.
Detállame cómo quieres que calcule y te digo cómo hacer la función.
30/08/2008
juliovegar, usuario preguntando en Microsoft Excel
Usuario
Estimado gualo, tal y como me pedias en tu respuesta voy a intentar axplicarte de forma simplificada cual es mi problema.

Tengo un libro de excel con dos hojas de la siguiente forma:

HOJA "A"
Nombre hcp. puntuacion
Perico Perez 16 ¿ ?
Antonio fax 12 ¿ ?
Jose Lopez 14 ¿ ?
Julio Vega 11 ¿ ?

como puedes ver solamente es una lista de jugadores para anotarles sus puntuaciones correspondientes.

HOJA "B"
Hoyo hcp. golpes puntos
1 11 3 2
2 10 4 1
3 7 4 3
................
totales 36 41

esta hoja es de calculo de puntos en funcion de los golpes dados segun unas formulas matematicas que tengo introducidas con distintos condicionantes.

LO QUE QUIERO HACER ES QUE COMO LA HOJA DE CALCULO ES GENERICA PARA TODOS,
1º SELECIONAR UN JUGADOR DE LA HOJA "A"
2º INTRODUCIR EN LA HOJA "B" LOS GOLPES DADOS PARA QUE ME CAÑCULE LA PUNTUACION.
3º (y ahora lo que no se hacer) QUE ESA PUNTUACION ME LA PASE AUTOMATICAMENTE A LA CELDA DE PUNTOS DE LA HOJA "A" SIN NECESIDAD DE TECLEARLO A MANO.
4º SELECCIONAR OTRO JUGADOR Y VOLVER A REPETIR EL PROCESO.

MUCHAS GRACIAS.

JULIO.
30/08/2008
juliovegar, experto respondiendo en Microsoft Excel
Experto
Mira, para lo que me pides te mando una macro en la que estoy suponiendo que inician tus datos en el renglón 2, y que quieres mantener la relación de los renglones (el 2 de la hojaA corresponde al 2 de la hojaB) si algo no funciona, sólo dime.

Sub calcula_puntos()
'
' calcula_puntos Macro
' Macro grabada el 14/10/2002 por Eduardo Marañón
'

'
Sheets("hojaB").Select
Range("B2").Select
Sheets("hojaA").Select
Range("B2").Select
While ActiveCell.Value <> ""
Selection.Copy
Sheets("hojaB").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, -1).Select
' Aquí pídele el número de hoyo
ActiveCell.Offset(0, 2).Select
' Aquí pídele en número de golpes
ActiveCell.Offset(0, 1).Select
Selection.Copy
ActiveCell.Offset(1, -2).Select
Sheets("hojaA").Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(1, -1).Select
Wend
End Sub
30/08/2008
juliovegar, usuario preguntando en Microsoft Excel
Usuario
ESTIMADO GUALO:

HA PROBADO DE TODAS LAS FORMAS POSIBLES LA MACRO QUE ME ENVIASTE PERO NO REALIZA EL RESULTADO QUE BUSCO.

LO QUE HACE LA MACRO ES CALCULARME PUNTUACIONES, COSA QUE YO YA TENGO HECHO.
LO UNICO QUE QUIERO ES QUE LA PUNTUACION QUE YO CALCULE EN LA HOJA "B" ME LA PASE A LA HOJA A "LISTA DE JUGADORES" AUTOMATICAMENTE SIN NECESIDAD DE TECLEARLA A MANO, TAL QUE LUEGO SELECCIONE OTRO JUGADOR DE LA HOJA "A" Y PUEDA CALCULARLE TAMBIEN LA PUNTUACION PARA QUE IGUALMENTE ME LO PASE AUTOMATICAMENTE RESPETANDO EL RESULTADO DEL PRIMER JUGADOR.

MUCHAS GRACIAS.

JULIO.
30/08/2008
juliovegar, experto respondiendo en Microsoft Excel
Experto
No he encontrado la solución óptima, pero te van 2 opciones:
La primera es que metas el nombre del jugador en E2 y luego corres la macro (explicada en la segunda):

Sheets("hojaA").Select
Cells.Find(What:=Sheets("hojaB").Range("E2").Text, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Offset(0, 2).Value = Sheets("hojaB").Range("$D$21").Value
Sheets("hojaB").Select

La segunda es para que haga el proceso mientras la celda E2 no esté vacía, el problema es que no he visto cómo hacer para que te permita introducir el dato del jugador entre cada ciclo, (es lo que estoy poniendo hasta abajo):
Sub buscar()
While ActiveCell.Value <> ""
Sheets("hojaA").Select
' busca en la hojaA el nombre del jugador
Cells.Find(What:=Sheets("hojaB").Range("E2").Text, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
' Trae a la columna "C" el dato de la hojaB celda D21
ActiveCell.Offset(0, 2).Value = Sheets("hojaB").Range("$D$21").Value
Sheets("hojaB").Select

'Run "Letrero"
'Range("E2").Value = nombre_del_jugador
Wend
End Sub
30/08/2008
juliovegar, usuario preguntando en Microsoft Excel
Usuario
Muy Bien. Me ha sido de gran utilidad
Compártelo
Más opciones
Enlaces patrocinados
Respuestas relacionadas
Inicio | Publicidad | Condiciones de uso | Declaración de privacidad | Blog
© 1999 - 2008 Todoexpertos.com. Todos los derechos reservados. Desarrollado por Avanzis.