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

Hvis det kun drejser sig om at vise de skjulte rækker så kan du indsætte denne kode:

Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    If Range("D89").Value > 0 Then
      For række = 93 To 164
          If Rows(række).Hidden = True Then
            Rows(række).Hidden = False
          End If
      Next række
    End If
End Sub

Problemet er blot at når du laver en ny beregning hvor værdien i celle D89 igen bliver mindre eller lig med 0, så vil cellerne stadig være synlige.

Er det meningen at de celler automatisk skal blive skjulte igen hvis værdien i D89 bliver mindre eller lig med 0?? og i så fald: Er det kun de samme rækker der skal skjules? eller er det alle rækkerne i fra 93 til 164?

Denne version skjuler eller viser alle rækkerne alt efter værdien i D89

Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    If Range("D89").Value > 0 Then
      For række = 93 To 164
        Rows(række).Hidden = False
      Next række
    Else
      For række = 93 To 164
        Rows(række).Hidden = True
      Next række
    End If
End Sub

Lukker