skjule rækker

Public Sub Skjul()
    Application.ScreenUpdating = False
    For Each c In Range("a1:A100").Cells
        If c.Value = 100 Then
            Rows(c.Row).Hidden = True
        Else
            Rows(c.Row).Hidden = False
        End If
    Next
    Application.ScreenUpdating = True
End Sub


tjekker her cellerne i området A1 til A100, hvis en celle har værdien 100, skjules rækken

prøver at tumle lidt med den vender nok tilb. senere i dag

Så langt så godt, vil du (gerne mod eksra p) lave det sådan at den afspilles så snart m2 skifter værdi:



Public Sub Skjul()
    Application.ScreenUpdating = False
    For Each c In Range("m2").Cells
        If c.Value = 1 Then
            Rows("59:72").Hidden = True
        Else
            Rows("59:72").Hidden = False
        End If
    Next
    Application.ScreenUpdating = True
End Sub

og kan jeg hente det fra et andet ark; dvs istedet for m2 skal det være "stamdata!b10"

denne i et modul

Public Sub Skjul()
    Application.ScreenUpdating = False
    With Sheets("Ark1") ' arket den skal skjule rækkerne i
    If Range("stamdata!b10") = 1 Then
            .Rows("59:72").Hidden = True
        Else
            .Rows("59:72").Hidden = False
        End If
  End With
    Application.ScreenUpdating = True
End Sub


denne i arket stamdatas modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$10" Then
Call Skjul
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$10" Then
Call Skjul
End If
End Sub

Ved "call skjul" får jeg en fejl: "compile error, sub or function not defined"
Jeg satte skjul i "" men det hjalp ikke

Makroen Skjul skal være i et modul for sig selv, ikke i et arkmodul

YES (jeg skal jo bare læse hvad du skriver, men jeg fatter altså ca. kun 1% af vb)
smid svar pls

et svar ;-))

http://exp.dk/spm/675450
jeg syntes der engang var sådan at man kunne ændre p men brug lige linket :-)