Macro pegar valores de una celda a otra hoja donde situemos el cursor.

[PACTO7TL]

Hola, estoy realizando una hoja para llevar las estadistica de baloncesto del equipo de mi hijo y una cosa que me gustaria es ir marcando en las posiciones donde falla o donde mete la canasta, para ello, realice una plantilla con mas o menos la forma de media cancha de basket, Lo que necesito es como puedo copiar el valor de una celda (Hoja1 - Rango A1) en la Hoja2 - y la posicion se la doy con el ratón, mas o menos en la posicion del lanzamiento. Tendria que pegar el valor justo despues de selecionar la celda y luego,volver a la hoja1 - Rango A1.. Ya tengo preparado el formato para que si es error de tiro, salga en rojo y si acierta, en verde.

Muchas gracias de antemano.

[Lázaro]

Hola PACTO7TL

Trata de colgar tu archivo (Zipiado, preferiblemente 2003) con lo que tengas y lo que quieres manualmente como especifican las Normas del Foro, quizás de esa forma te puedan ayudar.

Saludos

Lázaro

[ioyama]

Hola PACTO7TL

Con una pequeña macro de evento, con el evento SelectionChange te puede valer (si es que te he entendido)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, Range("B5:H25")) Is Nothing Then Exit Sub

    Target = Sheets("Hoja1").Range("A1")

    Range("A1").Select

    Sheets("Hoja1").Select

End Sub[/CODE]

En el adjunto escribes en A1 de la Hoja1, vas a la Hoja2 y seleccionas una celda en la zona en amarillo, el valor de la hoja anterior pasará a la hoja2

Un saludo desde Vitoria

PasarDatos_io_120316.zip

[PACTO7TL]

Hola ioyama.

Muchísimas gracias por el código, me a solucionado el problema que tenía y como siempre en estos casos, cuando hay una solución aparece otro problema. en el rango A1 con cada jugada ira apareciendo un valor (rebote en defesa o ataque, falta recibida o efectuada, etc. ) para la plantilla de tiro solo necesito eso, solo los tiros, de 2 y 3 puntos ¿habría alguna manera que si en el valor que aparece en A1 hay un 2C (tiro de 2 convertido) o 2F (tiro de 2 fallado) y también para los casos de 3 puntos, 3F (fallado) o 3C (convertido) funcionara el código que me pasaste? El resto de datos (rebotes, faltas, perdida y recuperación de balones, no sería necesario reflejarlo.

Muchas gracias de nuevo

Saludos desde la Macaronesia.... (mas cerca de Africa que de Europa)

Desde Gran Canaria.

[ioyama]

Hola PACTO7TL

No entiendo tu pregunta. La macro pasa cualquier cosa que escribas en la celda A1, si pone 2F te pasará a la segunda hoja 2F. Como no te expliques un poco más poco podré hacer por ayudarte.

Un saludo desde Vitoria

[PACTO7TL]

Hola ioyama.

El tema es que pasa cualquier cosa y solo me interesaría pasar cuando en la celda aparezca en el texto F o C, que serían tiros de 2 o 3 puntos, el resto, sería rebotes, perdidas o recuperaciones de balón, faltas recibidas o efectuadas y esa información no sería necesario en la plantilla de tiro.

Gracias

Paco

[ioyama]

Hola PACTO7TL

Revisa el adjunto.

Un saludo desde Vitoria

PasarDatos_io_120319.zip

[PACTO7TL]

Hola ioyama.

Siento el contestarte tan tarde, pero ando liado entre viajes entre islas. Probe el codigo y es correcto, no pega valores si no contiende F o C pero sigue pasando por la plantilla de tiro, modifique los codigos que estaba utilizando para pegar el dato 3F o 3C para que pase a plantilla de tiro, para el resto de los valores (rebotes, faltas, etc.. ) no va a la plantilla de tiro.

Muchisimas gracias por tu ayuda.

Ahora hace falta que el equipo gane mas partidos pero eso si que no depende de uno.

Saludos

Paco