Kolom erbij na druk op een "knop"

[Jack Nouws]

Hey Jack... bedankt voor je reply

Het rare is dat, als ik jouw code gebruikte ik die ## kreeg
gebruikte ik de code van "warme bakkertje" dan kreeg ik die ## helemaal niet en het ging over dezelfde referentie-cel en dezelfde waarde erin...
bestudeer dan maar eens jullie code als leek

JP

Hallo,

Ik krijg alleen ## als het getal niet in de kolom past (Bijv. 254) Verder is de code gewoon goed. Mocht je er nog vaker last van hebben plaats dan je bestandje op het forum ontdaan van gevoelige info. P.S. Heb je de laatste code nog geprobeerd?

Met vr gr
Jack

 

[JEPEDEWE]

Jack
Ik stuur jullie 2 bestanden...
een met de code van Warm bakkertje
en 1 met jouw (vorige) code
hier zie je als je op de knop "kolom toevoegen" drukt het verschil
Het leuke bij jouw code is dat de layout van de "headers" meegenomen wordt...
de ## is wel raar... temeer omdat je dat in het andere bestand niet hebt

Greetz

 

[Warme bakkertje]

Het probleem zit 'm in je cel L1. Wijzig de uitlijning naar gecentreerd of rechtse uitlijning.

 

[JEPEDEWE]

Perfect warm bakkertje...
Als ik nu nog vragen mag....
De knop "Filter" werd door mijn Amerikaanse vriend ontwikkeld.
Het idee is als volgt
De lijst die je ziet is een lijst van vaardigheden die iemand die een opleiding grootkeuken volgt, op het einde van zijn schoolloopbaan zou moeten beheersen
Sommige vaardigheden worden al bijgebracht van jaar 1, andere pas van jaar 4 of 5
Dit vind je in kolom C tot G terug
De volgende 3 kolommen zijn de trimesters.
Op basis van wat je in B1-B2 ingaf wordt een filtering uitgevoerd.
Je zal dus alleen die items te zien krijgen die voor dat jaar van toepassing zijn.
Ik heb begrepen dat tijdens het uitvoeren van de filtering, de "headers" behouden blijven op basis van hun kleur.
Echter, de "header" met grijze achtergrond en blauw lettertype wordt ook weggefilterd, en dat zou niet mogen.
Zou er iemand zo vriendelijk willen zijn dit voor mij eens te bekijken?
Zou reuze zijn...
Alvast bedankt
Ik stuur een aangepast, verkleind bestand
(het "teachers" en "Students" gedoe zijn niet langer van belang)

Bedankt beste mensen

 

[Jack Nouws]

Het leuke bij jouw code is dat de layout van de "headers" meegenomen wordt...
de ## is wel raar... temeer omdat je dat in het andere bestand niet hebt

Greetz

Hallo,
Wat ik doe in de code is een kolom invoegen (Insert) Deze kolom is een copy van de vorige kolom (L) En als je dan in cel "L1" kijkt (celeigenschappen) dan zie je dat er 3 tabs (inspringing) staan om het woord in "L1" op zijn plaats te zetten. Deze 3 tabs worden dus meegenomen naar je nieuwe kolom in cel "M1" en geeft samen met "B1" ##
Nu kun je dit simpel oplossen door alles eerste te verwijderen voordat de gegevens geplaatst worden.

    Columns(x).Resize(4).Clear

Door dit stukje code er tussen te plaatsen worden de eerste 4 rijen van kolom x schoon gemaakt.
Dus dan zou ik het zo doen,

Dim x As Integer
  x = Cells(1, Columns.Count).End(xlToLeft).Column + 1
  With Columns(x)
    .EntireColumn.Insert
    .Resize(4).Clear
    .Offset(, -1).Resize(2) = [B1:B2].Value
    .Offset(, -1).AutoFit
  End With
  With Cells(4, x)
    .Value = [B3].Value
    .VerticalAlignment = xlTop
    .Orientation = 90
  End With

Met vr gr
Jack