• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kolommen verbergen middels checkbox

Status
Niet open voor verdere reacties.

Chiel001

Gebruiker
Lid geworden
16 dec 2008
Berichten
41
Ik wil in een userform aanvinken (checkboxex) welke kolommen al dan niet verborgen of weergegeven moeten worden in het actieve werkblad. Wie kan mij helpen hoe dit op te zetten ??
 
Zet dit via de VBEditor in de module van het werkblad:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.EntireColumn.Hidden = True
End Sub

Als je nu in een cel dubbelkllikt wordt de kolom van de cel verborgen.
 
SNB bedankt, maar ik zoek een oplossing met een checkbox userform.
 
SNB bedankt, maar ik zoek een oplossing met een checkbox userform.

ALs je nu al eens dat userform met die checkbox hier post en der bijzet welke kolommen moet verborgen worden , dan krijg je de goede oplossing .;)
 
Heb het ondertussen gevonden; bedankt voor jullie reacties !

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Columns("A").Hidden = True
Else
Columns("A").Hidden = False
End If
End Sub
 
Heb het ondertussen gevonden; bedankt voor jullie reacties !

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Columns("A").Hidden = True
Else
Columns("A").Hidden = False
End If
End Sub

Ik had je ondertussen al een voorbeeldje gemaakt :D
met het sluiten van meerdere kolommen
Code:
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
[E:F].EntireColumn.Hidden = True
End If
If CheckBox2.Value = False Then
[E:F].EntireColumn.Hidden = False
End If
End Sub
 

Bijlagen

Laatst bewerkt:
Het mag korter.;)

@Chiel
Code:
Private Sub CheckBox1_Click()
Columns("A").Hidden = CheckBox1.Value

End Sub

@Trucker
Code:
Private Sub CheckBox2_Click()
Columns("E:F").Hidden = CheckBox2.Value

End Sub

Met vriendelijke groet,


Roncancio
 
Het mag korter.;)



@Trucker
Code:
Private Sub CheckBox2_Click()
Columns("E:F").Hidden = CheckBox2.Value

End Sub

Met vriendelijke groet,


Roncancio

Roncancio , wa doen we als debutant tegen de ervaring van jullie , goed opletten en naar de ervaring van jullie kijken en onthouden , ik ben al heel tevreden dat ik op 10 min deze kleine toepassing op zijn pootjes krijg .

Bij deze met de code van Roncancio een duidelijk verschil :thumb:
 

Bijlagen

Laatst bewerkt:
Kolommen verbergen via checkbox

Even een nieuwe vraag!
Hoe kun je met de VBA code van meerdere tabbladen kolommen laten verbergen?
Dus als ik bijvoorbeeld checkbox 1 aanvink, dat hij dan van meerdere tabbladen de kolommen laat zien. En bij uitvinken de kolommen verbergt.

Het vinkje blijft namelijk niet staan.
 
Cibdy,

Je zit in iemand zijn vraag van 4 jaar oud.
Begin zelf een vraag en doe daar dan een voorbeeldje bij, zoals je het wil hebben.
 
Je zit in iemand zijn vraag van 2 jaar oud.

Hallo ExcelAmateur leef jij dan nog in 2011?
Het topic is bijna 4 jaar oud!!!

Jou leven gaat snel!! :p :p
 
Ooh sorry ik dacht dan dat je weer naar dit topic verwezen wordt.
Het leek me wel handig omdat ik dit voorbeeld heb gebruikt. Ik heb namelijk geen verstand van VBA.
Dat scheelt me een hoop uitleg.

Dus kan ik dan beter zelf een vraag beginnen?
 
idd. anders wordt het wat verwarrend voor vraagsteller en helpers.
Je kan eventueel ter verduidelijking wel een link toevoegen naar deze topic
 
Als een vraag is opgelost, en de aangedragen oplossing voldoet niet voor jouw probleem, dan zou ik zowiezo een eigen vraag aanmaken. En het is inderdaad niet netjes om in te breken in een vraag van iemand anders.
 
Oké bedankt voor de informatie! ik zal morgen een vraag beginnen en een voorbeeld er bij zetten.
 
Op de tijd die je nodig had om dit antwoord te typen had je de vraag al kunnen stellen en waarschijnlijk al een antwoord gekregen hebben ook :p
 
Dit topic is gedateert, m.a.w. het is ouder dan drie maanden en mag dus met rust gelaten mag worden. Topic gaat op slot en wordt overgedragen aan de afdeling BNw(Betere Naslagwerken)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan