Geselecteerde kolommen d.m.v. Togglebutton

[jamstar]

Goedeavond allemaal,

Allereerst wil ik me voorstellen, ik ben Pieter en ben 34 jaar.
Daarnaast wil ik iedereen bedanken die de site helpmij.nl in de lucht houdt, als de personen die andere mensen wilt helpen.

Ik heb het forum doorgespit maar heb nog geen oplossing, op mij probleem kunnen vinden.
Ik heb een probleem met Excel en ik zal proberen om het zo duidelijk mogelijk te omschrijven.

In VBA heb ik de volgende codering staan, het betreft het verbergen en zichtbaar maken van geselecteerde kolommen.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "Verbergen" Then
ToggleButton1.Caption = "Zichtbaar"
Range("E:E,F:F,G:G,J:J,K:K,L:L,N:N").EntireColumn.Hidden = True
Else
ToggleButton1.Caption = "Verbergen"
Range("E:E,F:F,G:G,J:J,K:K,L:L").EntireColumn.Hidden = False
End If
End Sub




Het blad heb ik beveiligd en het vinkje kolommen opmaken aangevinkt. Nu wil ik graag bovenstaande formule behouden, maar een aantal geselecteerde kolommen verbergen (kolom niet zichtbaar door het te verslepen) en beveiligd behouden.
Is dit mogelijk en wie wil mij daarbij helpen.

Alvast bedankt.

 

[sylvester-ponte]

hallo Pieter, welkom hier.

het zou voor de helpers wel handig zijn als je een excel_bestandje plaatst (zonder wachtwoord)

 

[gast0660]

Hoi,
Zoals je ziet krijg je weinig hulp zonder vbtje, maar welkom op dit forum
Bekijk mijn vbtje eens
Zolang er een waarde staat in rij 1 staat kan je in het formulier naar hartelust kolommen verbergen
Verder kan je in het formulier het werkblad ook beveiligen of niet beveiligen
het paswoord is test
Je kan naar andere tabbladen springen, druk wel op vernieuwen
Hopelijk ben je daar mee geholpen
Vragen...?

 

[jamstar]

Goedemorgen gast0660,

Bedankt voor je bestandje, hier kan ik verder mee.

Mvg Pieter

 

[jamstar]

Ik wil graag een waarde (kolomnummers bijvoorbeeld AI : FI) in werkblad 1 opgeven (bijvoorbeeld in cel A:1) zodat hij in blad 2 de kolommen (AI t/m FI) verbergt. Hoe krijg ik een koppeling van regel Range("AI:FI").EntireColumn.Hidden = True naar een cel in blad 1 en verbergen in blad 2

Private Sub ToggleButton1_Click()

' blokken
ActiveWindow.FreezePanes = True
Range("I4").Select


ActiveSheet.Unprotect
If ToggleButton1.Caption = "Verbergen" Then
ToggleButton1.Caption = "Zichtbaar"
Range("E:G,J:L,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden = True
Range("O:FI").EntireColumn.Hidden = False
Range("AI:FI").EntireColumn.Hidden = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
ToggleButton1.Caption = "Verbergen"
Range("E:G,J:L,FK:FP,LE:LL").EntireColumn.Hidden = False
Range("O:FI").EntireColumn.Hidden = True

ActiveSheet.Protect


' blokken opheffen
ActiveWindow.FreezePanes = False


End If
End Sub



Alvast bedankt

 

[jamstar]

Ik wil graag een waarde (kolomnummers) in een werkblad 1 opgeven zodat hij in blad 2 de kolommen verbergt. Hoe krijg ik een koppeling van regel Range("AI:FI").EntireColumn.Hidden = True naar een cel in blad 1.

Private Sub ToggleButton1_Click()

' blokken
ActiveWindow.FreezePanes = True
Range("I4").Select


ActiveSheet.Unprotect
If ToggleButton1.Caption = "Verbergen" Then
ToggleButton1.Caption = "Zichtbaar"
Range("E:G,J:L,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden = True
Range("O:FI").EntireColumn.Hidden = False
Range("AI:FI").EntireColumn.Hidden = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
ToggleButton1.Caption = "Verbergen"
Range("E:G,J:L,FK:FP,LE:LL").EntireColumn.Hidden = False
Range("O:FI").EntireColumn.Hidden = True

ActiveSheet.Protect


' blokken opheffen
ActiveWindow.FreezePanes = False


End If
End Sub

 

[HSV]

Als je bv. in cel A1 van blad1 AE:FE zet.

Blad2.Range(Sheets(1).Cells(1).Value).Columns.Hidden = True

Of:

Blad2.Columns(Blad1.Cells(1).Value).Hidden = True

 

[jamstar]

Als je bv. in cel A1 van blad1 AE:FE zet.

Blad2.Range(Sheets(1).Cells(1).Value).Columns.Hidden = True

Of:

Blad2.Columns(Blad1.Cells(1).Value).Hidden = True

Bedankt HSV,

Ik denk dat ik een fout maakt in de bladnummers en cellen. Blad 1 heet (project) blad 2 heet (invoer) en ik wil in blad 1 (project) in de cellen B:11 de kolommen willen wijzigen.

Alvast bedankt voor de reacties.

 

[snb]

Plaats svp VBA code tussen codemarkeringen (code tags).

de code kan overzichtelijker

eerst de basisinstelling (kan ook met de hand/cursor/toestenbord)

sub M_snb()
  Range("E:G,J:L,AI:FI,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden = true
  Range("O:FI").EntireColumn.Hidden = False
end sub

Daarna alleen nog maar:

Private Sub ToggleButton1_Click()
  ActiveSheet.Unprotect

  Range("E:G,J:L,AI:FI,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden = not Range("E:G,J:L,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden
  Range("O:FI").EntireColumn.Hidden = not Range("O:FI").EntireColumn.Hidden

  ToggleButton1.Caption = iif(togglebutton1.caption="Verbergen","Zichtbaar","Verbergen")

  ActiveSheet.Protect
End Sub

 

[jamstar]

Plaats svp VBA code tussen codemarkeringen (code tags).

de code kan overzichtelijker

eerst de basisinstelling (kan ook met de hand/cursor/toestenbord)

sub M_snb()
  Range("E:G,J:L,AI:FI,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden = true
  Range("O:FI").EntireColumn.Hidden = False
end sub

Daarna alleen nog maar:

Private Sub ToggleButton1_Click()
  ActiveSheet.Unprotect

  Range("E:G,J:L,AI:FI,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden = not Range("E:G,J:L,FK:FP,FQ:LD,LE:LL").EntireColumn.Hidden
  Range("O:FI").EntireColumn.Hidden = not Range("O:FI").EntireColumn.Hidden

  ToggleButton1.Caption = iif(togglebutton1.caption="Verbergen","Zichtbaar","Verbergen")

  ActiveSheet.Protect
End Sub

Beste SNB,

Ik heb de codering aangepast naar jouw korte versie. Alvast bedankt daarvoor, maar kan je ook aangeven hoe ik een waarde in een cel plaatst, de kolommen kan verbergen.

 

[HSV]

De bladnamen kan je aanpassen naar:
Blad2 wordt bv. sheets("Invoer").
De waarde in de cel heb ik uitgelegd in mijn vorig schrijven.
Het is niet zo moeilijk, maar je moet er wel wat aandacht aan schenken.

 

[jamstar]

De bladnamen kan je aanpassen naar:
Blad2 wordt bv. sheets("Invoer").
De waarde in de cel heb ik uitgelegd in mijn vorig schrijven.
Het is niet zo moeilijk, maar je moet er wel wat aandacht aan schenken.

Helemaal Top, het werkt,iedereen bedankt voor het meedenken

 

[snb]

Nu nog je Rotterdamse accent aanpassen.... :d

 

[jamstar]

Nu nog je Rotterdamse accent aanpassen.... :d

Valt het op aan mij taalgebruik

 

[jamstar]

Ik had nog een andere vraag. Hoe kan ik met VBA een witte balk (alt/enter) verwijderen uit een kolom. Ik bedoel niet met = SUBSTITUTE ( A1 , " " , " " )

Alvast bedankt.

 

[HSV]

Misschien is het beter een nieuwe vraag te starten om deze niet te vervuilen voor de zoekfunctie.
Mag je daar duidelijk maken wat voor witte balk het is.

 

[jamstar]

Oke bedankt, dan kan hier een slotje op.

 

[HSV]

Dat kan je zelf doen in je openingspost.