Como cambiar el valor numérico de una celda.
Hola, ojala me puedan ayudar con esta pregunta...
Tengo un valor en A1 que puede ser del 1 - 5, quiero ver si se puede cambiar el valor de A1 de esta manera...
1=malo
2=regular
3=bueno
4=excelente
Si yo dígito en mi celda A1 cualquier dígito del 1 al 5 quiero que me ponga en automático si es malo, regular, bueno o excelente según corresponda.
Gracias!
Tengo un valor en A1 que puede ser del 1 - 5, quiero ver si se puede cambiar el valor de A1 de esta manera...
1=malo
2=regular
3=bueno
4=excelente
Si yo dígito en mi celda A1 cualquier dígito del 1 al 5 quiero que me ponga en automático si es malo, regular, bueno o excelente según corresponda.
Gracias!
1 Respuesta
Respuesta de calvuch
1
Acá esta el macro, debe ir en el evento change de la hoja
Sobre la pestaña de la hoja botón derecho del mouse y selecciona "Ver código", en el editor que se abrió pegas esto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case [a1]
Case Is = 1
[a1] = "malo"
Case Is = 2
[a1] = "regular"
Case Is = 3
[a1] = "bueno"
Case Is = 4
[a1] = "excelente"
End Select
End If
End Sub
Grabas y cierras el editor,
Cada vez que pongas algún numero entre 1 y 4 te asignara el rotulo indicado
Cierra la pregunta
Sobre la pestaña de la hoja botón derecho del mouse y selecciona "Ver código", en el editor que se abrió pegas esto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case [a1]
Case Is = 1
[a1] = "malo"
Case Is = 2
[a1] = "regular"
Case Is = 3
[a1] = "bueno"
Case Is = 4
[a1] = "excelente"
End Select
End If
End Sub
Grabas y cierras el editor,
Cada vez que pongas algún numero entre 1 y 4 te asignara el rotulo indicado
Cierra la pregunta
