OCULTAR O MOSTRAR FILAS DE ACUERDO CON EL VALOR DE UNA CELDA FUERA DEL RANG

Hola sabina:
No sé que experiencia tienes en esto de la macros o código.
Si estás familiarizada un poco con el código completando este código te
valdría.
El código, es un código de Hoja, no va dentro de un módulo.



Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("B5") Then Exit Sub
Dim Sección As String
Sección = Target.Value

Select Case Sección

Case "CONTRATOS"
MsgBox "HAS ELEGIDO CONTRATOS"
'Cambia la línea anterior por la activación de un filtro o la ocultación de
la líneas que no quieras ver.
Case "DEMANDAS"
MsgBox "HAS ELEGIDO DEMANDAS"
'Cambia la línea anterior por la activación de un filtro o la ocultación de
la líneas que no quieras ver.
Case "ACTAS"
MsgBox "HAS ELEGIDO ACTAS"
'Cambia la línea anterior por la activación de un filtro o la ocultación de
la líneas que no quieras ver.
Case Else
'Aquí iría el código a ejecutar en el caso que elijas algo diferente a los
casos anteriores

End Select

En Sub


Saludos.-


"sabina" escribió en el mensaje de
noticias news:

¡ Hola ! De antemano mil gracias por la ayuda, he revisado todas las
preguntas y respuestas en el foro relacionadas con mi problema pero no
encuentro
ninguna que me de la solución.
La situación es la siguiente:
Tengo una celda con una lista depegable que me da diferentes opciones de
texto
(por ej. CONTRATOS, DEMANDAS, ACTAS, Etc.) hacne referencia a varios
trabajos
realizados en una oficina de abogados. Ahora bien, de acuerdo con la
opcion
seleccionada por el usuario necesito que se vea un cuestionario que se
debe
diligenciar relacionado con la opción escogida y se escondan los
demás cuestionarios correspondientes a las otras ociones (filas).
Agradezco la ayuda desarrollando la macro para darle solución a este
temaAlguien me puede ayudar?

Se me olvidó comentarte que el código supone que B5 es la celda con la lista
desplegable.
Cambia este dato a tu conveniencia.

"Juan Español" escribió en el mensaje de noticias
news:l2hbno$dlb$

Hola sabina:
No sé que experiencia tienes en esto de la macros o código.
Si estás familiarizada un poco con el código completando este código te
valdría.
El código, es un código de Hoja, no va dentro de un módulo.



Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("B5") Then Exit Sub
Dim Sección As String
Sección = Target.Value

Select Case Sección

Case "CONTRATOS"
MsgBox "HAS ELEGIDO CONTRATOS"
'Cambia la línea anterior por la activación de un filtro o la ocultación
de la líneas que no quieras ver.
Case "DEMANDAS"
MsgBox "HAS ELEGIDO DEMANDAS"
'Cambia la línea anterior por la activación de un filtro o la ocultación
de la líneas que no quieras ver.
Case "ACTAS"
MsgBox "HAS ELEGIDO ACTAS"
'Cambia la línea anterior por la activación de un filtro o la ocultación
de la líneas que no quieras ver.
Case Else
'Aquí iría el código a ejecutar en el caso que elijas algo diferente a los
casos anteriores

End Select

En Sub


Saludos.-

Juan Español escribió el 02/10/2013 16:44 :

Hola sabina:
No sé que experiencia tienes en esto de la macros o código.
Si estás familiarizada un poco con el código completando este
código te
valdría.
El código, es un código de Hoja, no va dentro de un
módulo.



Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("B5") Then Exit Sub
Dim Sección As String
Sección = Target.Value

Select Case Sección

Case "CONTRATOS"
MsgBox "HAS ELEGIDO CONTRATOS"
'Cambia la línea anterior por la activación de un filtro o la
ocultación de
la líneas que no quieras ver.
Case "DEMANDAS"
MsgBox "HAS ELEGIDO DEMANDAS"
'Cambia la línea anterior por la activación de un filtro o la
ocultación de
la líneas que no quieras ver.
Case "ACTAS"
MsgBox "HAS ELEGIDO ACTAS"
'Cambia la línea anterior por la activación de un filtro o la
ocultación de
la líneas que no quieras ver.
Case Else
'Aquí iría el código a ejecutar en el caso que elijas algo
diferente a los
casos anteriores

End Select

En Sub


Saludos.-


"sabina"
escribió en el mensaje de
noticias news:

¡ Hola ! De antemano mil gracias por la ayuda, he revisado todas las
preguntas y respuestas en el foro relacionadas con mi problema pero no
encuentro
ninguna que me de la solución.
La situación es la siguiente:
Tengo una celda con una lista depegable que me da diferentes opciones de
texto
(por ej. CONTRATOS, DEMANDAS, ACTAS, Etc.) hacne referencia a varios
trabajos
realizados en una oficina de abogados. Ahora bien, de acuerdo con la
opcion
seleccionada por el usuario necesito que se vea un cuestionario que se
debe
diligenciar relacionado con la opción escogida y se escondan los
demás cuestionarios correspondientes a las otras ociones (filas).
Agradezco la ayuda desarrollando la macro para darle solución a este
temaAlguien me puede ayudar?

Hola Juan,

Muchísimas gracias por tu ayuda, la verdad soy medio "nuevona" en esto de las macros pero voy a intentar aplicar lo que me enviaste...si tengo problemas te cuento.
De nuevo gracias.
Sabina Paolini