Macro's combineren

[anton44]

Onderstaande codes gebruik ik om bepaalde kolommen te tonen en te verbergen.
Zijn zijn gekoppeld aan 2 figuurtjes.
Ik zou nu graag beide macro's als omschakeling zien.
- als de kolommen verborgen zijn dan zichtbaar maken en v.v.
m.a.w. de parameter Tue/False laten omklappen.

Sub kolommen_verbergen()
' kolommen_verbergen Macro
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = True
    Call Naar_Laatste_Regel
End Sub

Sub kolommen_zichtbaar()
' kolommen_zichtbaar Macro
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = False
    Call Naar_Laatste_Regel
End Sub

 

[Cobbe]

O.a. zo :

Sub cobbe()
Columns("P:Q").Hidden = Not Columns("P:Q").Hidden
Call Naar_Laatste_Regel
End Sub

 

[anton44]

Cobbe, bedankt.
De oplossingsrichting is goed denk ik maar de routine blijft in een lus.
Heb maar een bestandje toegevoegd.

Bekijk bijlage Map1.xlsm

 

[anton44]

O.a. zo :

Sub cobbe()
Columns("P:Q").Hidden = Not Columns("P:Q").Hidden
Call Naar_Laatste_Regel
End Sub

Onze berichten hebben elkaar gekruist. Deze is perfect voor mijn doel.
Bedankt.

 

[Cobbe]

Welke lus?

 

[anton44]

Welke lus?

Deugniet :d... je hebt de code in #2 aangepast.
Daar stond:

Sub kolommen_verbergen()
' kolommen_verbergen Macro
    If Columns("P:Q").EntireColumn.Hidden = True Then
      Columns("P:Q").EntireColumn.Hidden = False
    End If
     If Columns("P:Q").EntireColumn.Hidden = False Then
       Columns("P:Q").EntireColumn.Hidden = True
     End If
'Call Naar_Laatste_Regel
End Sub