VBA kode som viser de skjulte rækker...

Private Sub Worksheet_Activate()
    If Range("D89") > 0 Then
        Rows("93:164").Hidden = False
    End If
End Sub

Sorry mente ungroup rækker 93 til 164

Desuden kan jeg ikke få dit script til at virke, har du testet det ?

Ja

Jeg er ikke så skarp til VBA. Men når jeg står i arket taster jeg ALT + F11  for VBA og derefter klikker jeg på det ark hvor jeg skal bruge scriptet og kopier det ind. Men rækkerne 93 til 164 bliver ikke vist når jeg taster en værdi større en 0 i D86 ??
Gør jeg noget forkert !!

Mente D89 og ikke D86 ;-)

Som jeg har skrevet koden - så igangsættes den når arket bliver aktiveret:

Private Sub Worksheet_Activate().

Altså prøv at skifte til et andet ark og tilbage igen.

Du havde jo ikke beskrevet under hvilke omstændigheder koden skulle virke.

Ok så kan jeg få det til at virke.
Kan du lave scriptet således under følgende omstændigheder:

- Når man indtaster værdi > 0 i felt D89 på "ark 1" vises rækkerne 93:164
- Når værdi < 0 i felt D89 i "ark 1" skjules rækkerne 93:164 igen.

Scriptet skal altså aktiveres så snart der indtastes en værdi i celle D89 på "ark 1"

Skal jeg oprette et nyt spørgsmål til dig med point !!!

Vender tilbage...

Har selv fundet ud af det:


Private Sub Worksheet_Change()

If Range("D89") > 0 Then

Rows("93:164").EntireRow.Hidden = False
Else
Rows("93:164").EntireRow.Hidden = True

End If

End Sub

ok - fint..