Cuestión : Modificar la macro de la célula de la piel para incluir gamas múltiples

Tengo la macro siguiente y quiero ampliarla para incluir más condiciones. Por ejemplo, quiero decir eso si G5 = no, después la piel rema 14:16 o si G5=U, después la piel rema 18:19. Es decir quiero agregar más conditions.

How yo escribo este código ((sé que soy un estúpido, yo necesito comprar un libro de VBA). Aquí está un ejemplo de la macro funcional que tengo: El
del

Option Explicit

Private Worksheet_Change (blanco de ByVal como gama) si no se interseca (blanco, gama (“G5”)) Está nada Then
si UCase (blanco) = “Y” Then
rema (“8: 11”) .EntireRow.Hidden = True
Else
reman (“8: 11”) .EntireRow.HidEnd If
End Sub
de/>den = de False
class= del

Respuesta : Modificar la macro de la célula de la piel para incluir gamas múltiples

La solución ad hoc


Opción explícita

Worksheet_Change secundario privado (blanco de ByVal como gama)
Si no intersecarse (blanco, gama (“G5”)) Entonces está nada
    Si UCase (blanco) = “Y” entonces
        Filas (“8: 11”) .EntireRow.Hidden = verdad
   
        Filas (“8: 11”) .EntireRow.Hidden = falso
    Terminar si
       Si UCase (blanco) = “no” entonces
        Filas (“14: 15”) .EntireRow.Hidden = verdad
   
        Filas (“14: 15”) .EntireRow.Hidden = falso
    Terminar si
   Si UCase (blanco) = “U” entonces
        Filas (“18: 19”) .EntireRow.Hidden = verdad
   
        Filas (“18: 19”) .EntireRow.Hidden = falso
    Terminar si

Terminar si
Terminar el submarino