macro om regels in te klappen?

[susanthuis]

Beste Helpmij,

Is het mogelijk om een macro te maken die regels in Excel uitklapt? In de bijlage is een lege Excel blad toegevoegd met een pijl. Ik wil graag wanneer ik op de pijl klik, de regels ingeklapt krijgen.

Onderstaande macro toegepast maar het loopt vast op de regel btnAddress:
Sub Uitklappen()
Dim r As Long, btnAddress As String
btnAddress = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
r = Range(btnAddress).Row
On Error Resume Next
ActiveSheet.Rows(r + 1).ShowDetail = True
End Sub

 

[Syvvis]

Is dit wat?

Bekijk bijlage Map3.xlsm

 

[susanthuis]

Super! Kan het ook zonder een message box?

 

[Syvvis]

Met deze code klappen de desbetreffende rijen in, maar krijg je geen keuze.

Sub inklappen()
Rows(" 8:12").Hidden = True
End Sub

mvg,

 

[susanthuis]

Het werkt hartstikke goed. Kan dit ook met uitklappen?

 

[OctaFish]

Heel simpel:

Sub inklappen()
    Rows(" 8:12").Hidden = Not Rows(" 8:12").Hidden
End Sub

 

[Syvvis]

Als je met twee pijlen wilt werken, één voor inklappen en één voor uitklappen van de rijen dan kun je de volgende macro doen en die koppelen aan een andere pijl.

Sub uitklappen()
Rows(" 8:12").Hidden = False
End Sub