Ejecutar Macro si cambia el valor de una celda

Si tan importante es que funcione con los textos: "Visible" y "Oculta", puedes probar añadiendo a la eficiente solución
de Héctor lo siguiente:

1.- [D21:D25] Formato de celdas>Personalizada ( ;"Visible";"Oculta" ) [sin paréntesis].
2.- Agrega al código de modo que quede:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = "Visible" Then Target = -1
If Target.Value = "Oculta" Then Target = 0
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then _
Target.Offset(-14).EntireRow.Hidden = Not Target
End Sub

Saludos: Antonio.
************************************************
"Héctor Miguel" escribió en el mensaje news:

hola, (como sea que te llames), !

... la solucion q encontre: (...) o existe otra mejor.

(p.e.)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then _
Target.Offset(, -14).EntireRow.Hidden = Not Target
End Sub

saludos,
hector.

hola, chicos !

(creo que) tambien podrias recortar este codigo modificando la propuesta original +/- a lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then _
Target.Offset(, -14).EntireRow.Hidden = Target <> "Visible"
End Sub

solo asegurarse de las (may/min)isculas o cambiar la parte final de la evaluacion +/- a:
LCase(Target) <> "visible"

saludos,
hector.

__ OP __

AnSanVal escribio en el mensaje ...

Si tan importante es que funcione con los textos: "Visible" y "Oculta", puedes probar añadiendo... lo siguiente:

1.- [D21:D25] Formato de celdas>Personalizada ( ;"Visible";"Oculta" ) [sin paréntesis].
2.- Agrega al código de modo que quede:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = "Visible" Then Target = -1
If Target.Value = "Oculta" Then Target = 0
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then _
Target.Offset(-14).EntireRow.Hidden = Not Target
End Sub

Saludos: Antonio.

Héctor Miguel escribio en el mensaje ...
hola, (como sea que te llames), !

... la solucion q encontre: (...) o existe otra mejor.

(p.e.)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d21:d25")) Is Nothing Then _
Target.Offset(, -14).EntireRow.Hidden = Not Target
End Sub