ejecutar una macro al cambiar el texto de una celda
Publicado por celia (437 intervenciones) el 19/06/2020 13:08:09
Hola otra vez.
Tengo 2 hojas, la hoja 1 usa números y funciona bien y la hoja 2 usa letras y no funciona.
Le copié el código de la hoja 1 a la hoja 2 y solo le cambié las 2 líneas que empiezan por Case pero no sé qué está mal.
Gracias como siempre por vuestra ayuda.
Hoja 1:
Hoja 2:
Tengo 2 hojas, la hoja 1 usa números y funciona bien y la hoja 2 usa letras y no funciona.
Le copié el código de la hoja 1 a la hoja 2 y solo le cambié las 2 líneas que empiezan por Case pero no sé qué está mal.
Gracias como siempre por vuestra ayuda.
Hoja 1:
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$B$2" Then
Select Case Target.Value Case 1 To 5: SI Case 5 To 10: NOEnd Select
End If
End Sub
Hoja 2:
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$B$2" Then
Select Case Target.ValueCase Is = "D": SI
Case Is = "P": SI
End Select
End If
End Sub
Valora esta pregunta
0
