Relacionar, asociar e importar en Excel diferentes datos de dos hojas distintas

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, puntuación, clasificación 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.

1 respuesta

Respuesta
1
Si tienes un cálculo definido (tal vez sería más fácil 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 también 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.
Estimado gualo, tal y como me pedías 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 función de los golpes dados según unas fórmulas matemáticas que tengo introducidas con distintos condicionantes.
Lo que quiero hacer es que como la hoja de calculo es genérica para todos,
1º seleccionar un jugador de la hoja "a"
2º introducir en la hoja "b" los golpes dados para que me cañcule la puntuación.
3º (y ahora lo que no se hacer) QUE ESA PUNTUACIÓN ME LA PASE AUTOMÁTICAMENTE 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.
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
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 único que quiero es que la puntuación que yo calcule en la hoja "b" me la pase a la hoja a "lista de jugadores" automáticamente sin necesidad de teclearla a mano, tal que luego seleccione otro jugador de la hoja "a" y pueda calcularle también la puntuación para que igualmente me lo pase automáticamente respetando el resultado del primer jugador.
Muchas gracias.
Julio.
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta

Macro que llame a otro archivo xls. Lea los valores de 2 columnas especificas y luego las copie en..

Tengo un libro1.xlsx El cual tiene una hoja (master) que está construida de la siguiente manera. Columna A (INDICE) - Es decir no se repite.(Numérico) Columna B (Nombre) Columna C (NumeroX) - Numérico Columna D (Descriptor) Columna E (Descriptor 2)...
1 respuesta

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

Buscar V usando una macro

Intento realizar una búsqueda vertical en un numero indeterminado de datos. La idea es que cuando yo ingrese un valor en la casilla "F1" de la hoja N° 1 me de los datos almacenados en la hoja 2 dispuestos en la calumna AyB(estos datos los puedo...
1 respuesta

¿Puedo extraer el valor de una misma celda en varias hojas diferentes y que aparezca en otra hoja?

Quería saber si existe alguna función en excel con la que pueda extraer el valor de una misma celda pero de varias hojas diferentes y que aparezca en otra hoja. Por ejemplo si tengo Hoja1, Hoja2 y Hoja3 tengo que hacer que el valor de la celda A1 de...
1 respuesta

Copiar rango de celdas a partir de la celda activa a otra hoja del mismo libro

Tengo un rango de celdas que contienen formulas que llenan la información de las celdas. Necesito copiar de este rango de celdas solo los valores de las celdas que se hayan poblado con información congruente o interesante. Para esto la columna A...
1 respuesta

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Recorrer celdas de una columna

Tengo 4 filas con 4 textbox en un formulario que me muestran los datos de la celdas de una hoja ... Tengo los datos de las celda A2, B2, C2, D2 que se muestran en unos textbox... También los dato de las celda A3, B3, C3, D3 en otros texbox... Hasta...
1 respuesta

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta