Ocultar fila / Boton Opcion

22/02/2007 - 11:18 por Albymar | Informe spam
Hola a todos:
El tema es el siguiente...
a) Tengo colocados en mi hoja tres Botones de Opcion (Barra de formularios)
vinculados a la celda [B4]...
b) Tengo la Fila 5 (Row(5)) siempre oculta...
Lo que quiero hacer es que...
cuando el valor de [B4]=2, la Row(5) sea visible, y...
con, cualquier, otro valor permanezca oculta.
He colocado en la Hoja el siguiente código y ni caso ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$4" Then Exit Sub
If [B4] = 2 Then
Rows(5).Hidden = False
Else
Rows(5).Hidden = True
End If
End Sub

¿Cual es el problema?, ¿Me podeis ayudar?
Gracias de antemano a todos.
 

Leer las respuestas

#1 Ivan
22/02/2007 - 15:22 | Informe spam
hola,

no estoy seguro del todo, y posiblemente haya formas mejores, pero creo que
esto funcionaria

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column=1 And .Row=4 then
if .Value=2 Then _
.Offset(1).EntireRow.Hidden=False Else _
.Offset(1).Entirrow.Hidden=True
End If
End with
End Sub

no lo he probado, pero supongo que por ahí podrían ir los tiros
(posiblemente vaya mejor usar 'Intersect', pero no lo control

un saludo y hasta pronto
Ivan

Preguntas similares