Ver originales (Francés)

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

Resuelto
Fat17 Mensajes publicados 90 Estado Miembro -  
 Usuario anónimo -
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
  2. Fat17 Mensajes publicados 90 Estado Miembro
     
    Gracias RoMa
    Funciona muy bien siempre que la hoja no esté protegida.
    De lo contrario, se traba.
    ¿Posibilidad de adaptación?

    Saludos
    Fat
    0
  3. 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