Excel - Cómo usar "case" con 2 condiciones en VBA?

 
Vista:
Imágen de perfil de celia
Val: 773
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo usar "case" con 2 condiciones en VBA?

Publicado por celia (383 intervenciones) el 31/03/2021 13:07:24
Buenas, qué tal?
Intento aprender a usar "case" con dos condiciones.
Tengo este código que funciona referido a una celda pero si quiero que se refiera a 2 ya no sé cómo añadirle el "Y" en vba. En los if veo que sería añadir "And" entre las 2 condiciones pero con case lo probé y no funciona.
Subo el libro con 3 hojas. La 1ª es la que funciona.

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
   If Target.Address = "$B$2" Then
        Select Case Target.Value
        Case Is = "D": Macro_SI
        Case Is = "P": Macro_SI
        Case Else
        Macro_NO
    End Select
End If
End Sub


Muchas gracias por adelantado.
Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.841
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo usar "case" con 2 condiciones en VBA?

Publicado por Antoni Masana (1758 intervenciones) el 31/03/2021 16:50:37
El código para la segunda hoja.

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
 
    If Target.Address = "$B$2" Or Target.Address = "$C$2" Then  'SI LA CELDA ES TXT
        Select Case Range("B2") + Range("C2")
            Case "AB": Macro_SI
            Case Else: Macro_NO
        End Select
    End If
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de celia
Val: 773
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Cómo usar "case" con 2 condiciones en VBA?

Publicado por celia (383 intervenciones) el 31/03/2021 20:05:57
Muchas gracias.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar