VBA - Loop hide/unhide - Com base em critério

[F88]

Boas,

 

Percebo pouco de programação e acabo muito por usar numa base tentativa/erro mas faltam-me as bases de VBA.

Pretendo com base no valor de uma célula esconder ou mostras linhas ocultas e que seja dinâmico....O que acontece no código é que o mesmo só é executado quando abro a janela do VBA.

Executei os seguintes pontos:

> abri o Visual Basics atravês do Developer;

> executei modulo na sheet que pretendo;

> código: 

Private Sub Worksheet_Change(ByVal Target As Range)
If "$A$13" = "Not Ok" Then
Rows("15:100").Hidden = True
Else
Rows("15:100").Hidden = False

End If

End Sub
 

> gravei

 

Sucede que quando mudo a célula A13 o excel não está dinâmico. Alias quando corro o run no próprio VBA pede-me para gravar o nome da Macro e dá entender que crio uma nova...

Espero ter sido claro.

Obrigado.

 

[Afonso Mira]

Boas @Francisco Cruz
 

Experimente da seguinte forma:

If Range("A13") = "Not Ok" Then
    Rows("15:100").Hidden = True
Else
    Rows("15:100").Hidden = False
End If

 

No seu código:

If "$A$13" = "Not Ok" Then

Estava a comparar a String "$A$13" , ao invés de comparar o valor da célula "A13".

 

Espero ter ajudado. 🙂
 

Cumps,

Afonso Mira