Betinget skjul rækker

Nåe ja forresten, hvis cellerne A39 til F39 bliver tømt igen skal række 40 til og med 83 skjules igen.
Pågældende celler bliver nemlig tømt når arket gøres kler til næste måned.

kler=klar ;-)

indsæt i Kasserapport's kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A39:F39")) Is Nothing Then Exit Sub
If [A39] & [B39] & [C39] & [D39] & [E39] & [F39] = "" Then
Range("A40:A83").Select
Selection.EntireRow.Hidden = True
End If
If [A39] & [B39] & [C39] & [D39] & [E39] & [F39] <> "" Then
Range("A40:A83").Select
Selection.EntireRow.Hidden = False
End If
ActiveCell.Offset(-1, 0).Select
End Sub

udskift lige næst sidste linie med denne

Target.Select

Kan se ideen, men det kører ikke!
Jeg har prøvet at indsætte koden i et modul og i Ark1 (Kasserapport) og i ThisWorkbook.
Det virker ikke i nogen af tilfældene.
Det skal nok teste ved enhver forandring i pågældende celler.

Prøver lige din kommentar 19:29:07

Excelent excelent.
Det virker lige efter hensigten.
Tak for hjælpen.
Læg et svar så du kan få dine velfortjente point.

ok velbekom :-)

Der var jeg alligevel lidt for hurtig.
Jeg får en fejlmelding når der ændres i en celle i området A39 til F39, men kun når arket er beskyttet.

Fejlmeldingen ser sådan ud:
Run-time error '1004'

Kan ikke angive egenskaben Hidden for klassen Range.

Desværre er det nødvendigt at beskytte arket!
Kan du også løse den, eller skal jeg oprette et nyt spørgsmål?

Fandt selv ud af det.
Satte beskyttelsen sådan at man kunne markere ikke-låste celler og formatere rækker.
Så virker det igen. ;-)

kiker på det

prøv

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A39:F39")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If [A39] & [B39] & [C39] & [D39] & [E39] & [F39] = "" Then
Range("A40:A83").Select
Selection.EntireRow.Hidden = True
End If
If [A39] & [B39] & [C39] & [D39] & [E39] & [F39] <> "" Then
Range("A40:A83").Select
Selection.EntireRow.Hidden = False
End If
Target.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ok så ikke du havde klaret det selv