Case funciona referido a una celda tipo texto y no funciona si se le pone una fórmula
Publicado por celia (437 intervenciones) el 01/04/2021 20:11:15
Hola de nuevo.
Este código funciona bien, en la hoja 1, cuando B2 es una celda editable tipo texto.
La hoja 2 es igual que la 1, con la única diferencia de que la celda B2 contiene una fórmula.
¿Qué habría que cambiar para que reconozca esa celda con fórmula?
Gracias por la ayuda.
Saludos.
Este código funciona bien, en la hoja 1, cuando B2 es una celda editable tipo texto.
La hoja 2 es igual que la 1, con la única diferencia de que la celda B2 contiene una fórmula.
¿Qué habría que cambiar para que reconozca esa celda con fórmula?
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then 'SI LA CELDA ES TIPO TEXTO SÍ FUNCIONA
Case Is = "D": Macro_SI
Case Is = "P": Macro_SI
Case Else
Macro_NO
End Select
End If
End Sub
Gracias por la ayuda.
Saludos.
Valora esta pregunta
0
