Kolom verbergen keuzerondje

[TJ86]

Hallo allemaal,

zie bijgevoegd bestand: Bekijk bijlage Keuzerondje.xlsx

Ik zou graag d.m.v. een VBA willen dat indien het keuzerondje JA wordt geselecteerd kolom C van het tabblad "Calculatieblad" wordt weergegeven en als optie NEE wordt geselecteerd kolom C van het tabblad "Calculatieblad" wordt VERBORGEN.

Kan iemand mij helpen?

Thx!

Alain

 

[Cobbe]

Kijk maar of het goed is.

 

[TJ86]

SUPPPEEERRRR !!! PRecies wat ik zoek !!!!

Nu mijn volgende vraag :

Ik ga uit van een nieuw blanco bestand : Bekijk bijlage Bladzijde aanduiding.xlsx



1. In tabblad "Klantgegevens" staat weer een Ja/Nee keuzerondje

2. In tabblad "Calculatiebestand" staat in CEL D4, D8, D21 en D25 een bladzijde aanduiding. Deze dient te worden getoond als keuzerondje "Ja" is geselecteerd en te worden verborgen als keuzerondje "Nee" is geselecteerd van het tabblad "Klantgegevens". De regel EN kolom mag echter niet worden verborgen, enkel de tekst, want in CEL A4, A8, A21 en A25 staat cruciale info welke te allen tijden dient te worden getoond. Is dit ook mogelijk ??

 

[Cobbe]

Zo goed?

 

[TJ86]

Ik ben sprakeloos! Fantastisch!

Duizend maal dank!

Grtz Alain

 

[Cobbe]

Duizend maal dank!

Eenmaal is meer dan genoeg.

 

[TJ86]

Is er een maximaal argumenten voor de Range? Ik heb er 63 en krijg nu een foutmelding..?

 

[edmoor]

Als je zegt een foutmelding te krijgen is het wel zo handig deze er ook bij te vermelden.

 

[TJ86]

Excuses, ik krijg foutmelding: "Fout 1004 tijdens uitvoering: De door de toepassing of door object gedefinieerde fout".

Dit is de code die ik gebruik:

Private Sub Option51_Click()
 If Option51 = True Then Option52 = False
  With Sheets("Calculatieblad")
   .Range("L43,L63,L70,L92,L111,L126,L147,L153,L160,L178,L187,L200,L215,L234,L250,L257,L266,L282,L293,L304,L323,L360,L373,L380,L387,L393,L402,L408,L421,L428,L444,L452,L457,L463,L477,L483,L493,L506,L515,L525,L534,L542,L555,L590,L616,L623,L629,L640,L648,L655,L660,L665,L684,L692,L733,L748,L759,L778,L803,L835,L852,L883,L904").Font.Color = 2
  End With
End Sub

--en--

Private Sub Option52_Click()
 If Option52 = True Then Option51 = False
  With Sheets("Calculatieblad")
   .Range("L43,L63,L70,L92,L111,L126,L147,L153,L160,L178,L187,L200,L215,L234,L250,L257,L266,L282,L293,L304,L323,L360,L373,L380,L387,L393,L402,L408,L421,L428,L444,L452,L457,L463,L477,L483,L493,L506,L515,L525,L534,L542,L555,L590,L616,L623,L629,L640,L648,L655,L660,L665,L684,L692,L733,L748,L759,L778,L803,L835,L852,L883,L904").Font.Color = 2
  End With
End Sub

 

[Cobbe]

Pas de code zo aan:

Private Sub OptionButton1_Click()
 If OptionButton1 = True Then OptionButton2 = False
  With Sheets("Calculatieblad")
        .Range("[COLOR="#FF0000"]bereik[/COLOR]").Font.Color = 16777215
  End With
End Sub

Private Sub OptionButton2_Click()
 If OptionButton2 = True Then OptionButton1 = False
  With Sheets("Calculatieblad")
        .Range("[COLOR="#FF0000"]bereik[/COLOR]").Font.Color = 2
  End With
End Sub

En geef uw hele bereik een naam.

 

[edmoor]

De foutmelding zal komen omdat de string in de Range langer is dan 255 telkens.

 

[TJ86]

Hoe geef ik mijn bereik een naam? Ik weet niet beter dan L43,L63,L70,L92,L111,L126,L147,L153,L160,L178,L187,L200,L215,L234,L250,L257,L266,L282,L293,L304,L323,L360,L373,L380,L387,L393,L402,L408,L421,L428,L444,L452,L457,L463,L477,L483,L493,L506,L515,L525,L534,L542,L555,L590,L616,L623,L629,L640,L648,L655,L660,L665,L684,L692,L733,L748,L759,L778,L803,L835,L852,L883,L904 ipv van de "rode" letters te zetten :$

 

[edmoor]

Zie:
https://support.office.com/nl-nl/ar...79c64#bmquickly_name_a_cell_or_range_of_cells

Overigens kan je naar mijn mening dit in de code ook weg laten omdat Excel dat zelf regelt:
If OptionButton2 = True Then OptionButton1 = False

 

[TJ86]

:thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb:

 

[TJ86]

Even terug komend op mijn allereerste vraag, als keuzerondje "Ja" wordt geselecteerd en kolom C wordt weergegeven, kan dan ook de regelhoogte worden aangepast? De standaard regelhoogte is: 15,00 (20 pixels). Als kolom C wordt weergegeven moet de regelhoogte 30,00 (40 pixels) worden.

Als kolom C weer wordt verborgen moet de regelhoogte weer terug worden gezet naar 15,00 (20 pixels). Dit geldt voor de regels 4, 8, 21 en 25

 

[edmoor]

Zie:
http://analysistabs.com/excel-vba/change-row-height-column-width/

 

[TJ86]

Kan ik dat bij +/- 78 regels toepassen? Of moet ik dan ook weer een zogenaamde "range" gebruiken? Het zijn niet 78 opeen volgende regels, maar 78 willekeurige regels

 

[edmoor]

Het voorbeeld staat op de pagina waar ik naar verwees:
Rows("3:25").RowHeight

Daar worden de regels 3 t/m 25 gebruikt.

 

[TJ86]

Dankje voor je toelichting. Ik wil echter enkel de hoogte van regel 10, regel 46, en regel 65 wijzigen.. hoe doe ik dat ? 10:10,46:46,65:65 weigert VBA

 

[edmoor]

Daar kan je de eerder aangemaakte naam "bereik" voor gebruiken als het om die regels gaat:

range("bereik").RowHeight=25

Of maak ook daar een naam voor aan.

Maar dit mag ook:

Range("A10, A46, A65").RowHeight = 25