Vinkje om verborgen column terug zichtbaar te maken.

[mause01]

Beste mensen,

Ik heb een vinkje gemaakt on column AA4.
Wanneer deze true is zal het column zichtbaar worden en wanneer deze false is gewoon verbergen door macro_Hide.
Enkel wanneer ik dit 1 keer selecteer, zal het werken maar wanneer ik daarna het vinkje weer uit & aan wil zetten nadat ik alle column UnHide kan ik niet klikken.
Iets werkt er niet goed.

Verder zal het vinkje rechts naast het column zichtbaar zijn en niet op de loctie van column AA4.
Het vinkje zit dus nie vast op colum AA4.

Het is moeilijk uit te leggen.
Test het excel om te kijken hoe het functioneert.

Vul waarde "1" in op Column B7,C7,D7 en klik op de Press to Save knop.
Dan zullen alle columns welke geen waarde hebben in de cellen verbergen.

Dit vinkje heb ik gemaakt om wel het column te zien maar dan zonder waarde.

Sub Macro_Hide()
Dim c As Range
    For Each c In Range("B7:AI7").Cells
        If c.Value = "" Then
            c.EntireColumn.Hidden = True
        End If
    Next c
        
    Dim cbValue As Variant
    cbValue = ActiveSheet.CheckBox1.Value
    If cbValue = True Then
        Range("AA7:AA5000").EntireColumn.Hidden = False
    End If

'Wait for 1 second
Application.Wait Now + TimeSerial(0, 0, 1)
End Sub

 

[SjonR]

Volgens mij heb je deze macro niet nodig.

Je hebt al een macro voor checkbox1_click().


Probeer deze daar eens voor:

Private Sub CheckBox1_Click()

   If CheckBox1 = True Then
         Range("AA7:AA5000").EntireColumn.Hidden = False
    Else
         Range("AA7:AA5000").EntireColumn.Hidden = True
    End If
End Sub

 

[edmoor]

Als je column AA wilt verbergen afhankelijk van de status van CheckBox1 is dit voldoende:

Private Sub CheckBox1_Click()
     Columns(27).Hidden = CheckBox1
End Sub

 

[SjonR]

Kort en bondig. Weer iets geleerd

 

[mause01]

Het is zo dat wanneer het vinkje aan staat moet het column zichtbaar zijn.
Wanneer deze uit staat wordt deze al verborgen door de marco_Hidden.

Met het bovenstaande kom ik niet verder.

 

[edmoor]

Ik zou niet weten waarom je daarmee niet verder kan. Daar staat precies wat er gedaan moet worden als je die checkbox aan of uit vinkt.
Mocht je de werking andersom willen dan doe je dit:

Private Sub CheckBox1_Click()
     Columns(27).Hidden = Not CheckBox1
End Sub

 

[mause01]

Beste Edmoor,

Sorry misschien moet ik het beter vertellen.
Ja de code werkt Prima, dat is het niet.
wanneer ik dan de checkbox weer uit wil zetten, kan ik niet meer klikken en zie ik de checkbox naast mijn zichtbare column wanneer ik tracht te klikken.

Als ik dan mijn button " Show all collumns " doe dan kan ik wederom het vinkje niet meer uit of aan zetten.
de reden hiervoor kan ik niet ontdekken.
Bekijk bijlage Sync_Salto_V2.0.2 MvO.rar

 

[edmoor]

Kijk naar deze. Ik heb de Checkbox in kolom AA onder de roze cellen gezet:
Bekijk bijlage Sync_Salto_V2.0.2 MvO.rar

Uiteraard bepaal je zelf waar die checkbox hoort te staan.
En uiiteraard verschuift deze als hij staat na kolommen die je verbergt.
Zet deze dus voor de kolom die je verbergt.
Neem tevens in de code voor het tonen van alle kolommen dit op:
ActiveSheet.CheckBox1.Value = True

 

[mause01]

Kijk naar deze. Ik heb de Checkbox in kolom AA onder de roze cellen gezet:
Bekijk bijlage 291309

Uiteraard bepaal je zelf waar die checkbox hoort te staan.
En uiiteraard verschuift deze als hij staat na kolommen die je verbergt.

Oke duidelijk.
Is het mogelijk wanneer ik kolommen verberg en weer terug zichtbaar maak, dat ik het vinkje weer kan aanzetten.
als ik de checkbox op de rij 4 zet van kolom AA

 

[edmoor]

Ik had net m'n vorige bericht daar op aangepast

 

[mause01]

Ik had net m'n vorige bericht daar op aangepast

haha,

Bedankt.

Enkel is er geen andere manier zodat ik de checkbox op AA4 kan plaatsen.
Hij verplaatst dus eleke keer achter het kolom, dat is de reden.

 

[edmoor]

Ik had ook gezegd dat je de CheckBox moet plaatsen VOOR de kolom die je verbergt.
Dus niet er na of er op.

 

[mause01]

Heren,

Ik heb het anders opgelost.
Maar ik loop tegen een reset puntje aan.
Ik heb een een datavalidatie lijst gemaakt. wanneer er "OFF" value is dan zal deze het kolom zichtbaar maken.

   Dim celltxt As String
    celltxt = ActiveSheet.Range("AA5").Text
    If InStr(1, celltxt, "OFF") Then
         Range("AA7:AA5000").EntireColumn.Hidden = False
    Else
         Range("AA7:AA5000").EntireColumn.Hidden = True
    End If

Nu wil ik met de clear button welke ik heb ook de value tegen verwijzen naar datavalidatie lijst =Values!$D$2

Sub Macro_Clear()
'
' Macro_Clear

Range("B7:AI5000").ClearContents
Range("B7").Select
Range("B7:AI5000").Interior.ColorIndex = xlNone
Range("B2", Range("B2").End(xlToRight)).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
Range("B6", Range("B6").End(xlToRight)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    
    
Range("B7").Select
End Sub

Bekijk bijlage Sync_Salto_V2.0.4 MvO.rar