Ver originales (Francés)

Clic en la celda envía su valor a otra celda

Resuelto
Fat17 -  
Hola,

Tengo 4 posibilidades de calificación según el resultado:
A en L7
B en L8
C en L9
D en L10
Me gustaría poder, dependiendo del resultado obtenido, hacer clic en la calificación correspondiente (A, B, C o D) y ver este resultado trasladado automáticamente a la celda P3.
¿Es posible?

Gracias por su ayuda
Cordialmente
Fat

Configuración: Windows / Chrome 87.0.4280.141

3 respuestas

  1. Usuario anónimo
    Hola,
    Es posible con una pequeña macro que debes colocar en la hoja correspondiente.

    Clic derecho en la pestaña > Ver código > Copia y pega la macro a continuación 

    Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("L7:L10")) Is Nothing Then Range("P3").Value = Target.Value End If End Sub
    0
    1. Fat17 Autor
      Gracias RoMa
      Funciona muy bien siempre que la hoja no esté protegida.
      De lo contrario, se traba.
      ¿Posibilidad de adaptación?

      Saludos
      Fat
      0
      1. Usuario anónimo
        2 soluciones :
        - La hoja está desprotegida, desbloqueamos únicamente la celda P3: Clic derecho > Formato de celda > Protección > desmarcar "Bloqueada" > Proteger la hoja. La macro funcionará tal como está.
        - Utilizar la macro modificada como se muestra a continuación. Esta quita/resta la protección sobre la marcha:
        el valor de la constante motDePasse debe, por supuesto, contener su contraseña actual. 

        Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const motDePasse = "12345" If Not Application.Intersect(Target, Range("L7:L10")) Is Nothing Then ActiveSheet.Unprotect (motDePasse) Range("P3").Value = Target.Value ActiveSheet.Protect (motDePasse) End If End Sub
        0