Kolommen toevoegen door hoeveelheid producten aan te geven.

[DirkWasser]

Hallo,

Ik zou graag een bestandje creëren waarin ik door de hoeveelheid producten aan te geven het aantal in te vullen kolommen wil laten verschijnen.

Ik heb een aantal productspecificaties die ik moet invullen per product. Soms is dat 1 product in excel maar soms ook 5. Ik zou graag willen dat op het moment dat ik boven aan het werkblad invul dat ik 5 producten heb. Dat er in de tabel er onder 5 kolommen verschijnen die ik kan invullen.

Ik zou graag een een voorbeeld excel bestand willen plaatsen, maar het uploaden lukt blijkbaar niet. Ben er al redelijk door gefrustreerd.

Groeten,

Dirk

 

[Cobbe]

Allereerst dien je te weten dat rijen horizontale cellen bevatten en kolommen vertikale cellen.
Dus kunnen er geen kolommen ingevoegd worden onder een invoercel.

Post eens een voorbeeldbestandje waarin de bedoeling duidelijk wordt.
Het bestand moet kleiner zijn dan 100kB.

 

[DirkWasser]

Op de een of andere manier lukt het mij niet om mijn bestandje up te loaden terwijl het maar 11kb is.

 

[Cobbe]

Via deze link kan je je bestand uploaden:

http://www.mijnbestand.nl/

 

[DirkWasser]

http://www.mijnbestand.nl/Bestand-BMFDO4RM3CYS.xlsx

 

[Cobbe]

Hier een voorbeeld van hoe je dit kunt aanpakken.

 

[DirkWasser]

Dit is precies wat ik bedoel! Hoe heb je dit gedaan?
Heb je misschien een simpele manual voor het werken met macro's?
Moet de komende tijd nog een boel van dit soort dingen gaan maken dus lijkt het me fijn als ik dit ook kan gebruiken.

 

[Cobbe]

Er bestaat geen simpele handleiding om macro's te maken.
Dat leer je door uuuuuuuuuuuuuuuuuuuuuuuuuuuren prutsen en testen totdat het werkt.

 

[DirkWasser]

Je kan mij dus ook niet uitleggen hoe je dit hebt gedaan?

 

[Cobbe]

Ja, ik heb deze code geschreven en achter blad1 gehangen:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
   Columns("B:V").Hidden = True
      For kol = 1 To [A3]
           Columns(kol + 1).Hidden = False
      Next
End Sub

Deze code kan je vinden als je Alt-F11 drukt en links blad1 selecteert/
Dan zie je rechts deze code staan.