verschillende kolommen onder elkaar zetten via macro

[jokeralk]

Goedemorgen,

Ik heb een bestand met meerder kolommen naast elkaar en die wil ik via een macro onder elkaar zetten zodat ik dit kan inlezen in mijn salarispakket.
Nu ben ik al een tijdje bezig maar ik kom er helaas niet uit. Wie kan mij helpen.
Als voorbeeld heb ik een stukje van de sheet bijgevoegd. Het probleem namelijk is dat het aantal kolommen kan verschillen als het aantal werknemers.
Ook zijn niet alle cellen in alle kolommen gevuld.

Met vriendelijke groet,

Jan
Bekijk bijlage Map2.xls

 

[cow18]

met een macro en een knop in tabblad "uitkomst"

 

[jokeralk]

Hoi Cow18,

Geweldig, dit is wat ik bedoelde. Bedankt.

mvg

jan

 

[jokeralk]

Hoi Cow18,

Nog een klein vraagje, is het ook mogelijk om de uitkomst in een andere sheet te plaatsen?

Mvg

Jan

 

[cow18]

in het laatste stuk van de macro kan je het werkblad en de cel linksboven wijzigen

  With Sheets("[COLOR="#FF0000"]uitkomst[/COLOR]").Range("[COLOR="#FF0000"][/COLOR][COLOR="#FF0000"]A2[/COLOR]")                      'naar hier wegschrijven
    .Resize(1000, 4).ClearContents                         'oorspronkelijke gegevens wissen
    If dict.Count Then .Resize(dict.Count, UBound(arr, 2)).Value = Application.Index(dict.items, 0, 0)  'heb je nieuwe gegevens, schrijf ze dan weg
  End With

 

[jokeralk]

Beste Cow18,

Sorry heb mijn vraag niet goed geformuleerd, ik bedoel is het mogelijk om de uitkomst ook naar een ander excel bestand te verplaatsen.

 

[cow18]

ja, geen probleem.
Bestaat het bestand al, zoja wat is de naam en de directory, of moet het nieuw aangemaakt worden ?

 

[jokeralk]

Hoi het is een bestaand bestand genaamd Template en staat op c:\