Cómo usar "case" con 2 condiciones en VBA?
Publicado por celia (437 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.
Muchas gracias por adelantado.
Saludos.
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.ValueCase Is = "D": Macro_SI
Case Is = "P": Macro_SI
Case Else
Macro_NO
End Select
End If
End Sub
Muchas gracias por adelantado.
Saludos.
- CASE-CON-2-CONDICIONES-Y.rar(17,4 KB)
Valora esta pregunta
0
