Consulting

Results 1 to 4 of 4

Thread: Columns toevoegen met behulp van macro

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    VBAX Regular
    Joined
    Nov 2014
    Posts
    10
    Location

    Columns toevoegen met behulp van macro

    Hoi, kan iemand mij helpen met het volgende probleem?

    Ik heb de volgende code toegepast in een werkblad waarin ik telkens één column links wilde invoegen naast elke column van een aantal columns. Nu wil ik dit doen maar dan in een ander bestand waar de tabel in een andere sheet staat en op een andere plek in het sheet. Dit betekent dat de code moet worden aangepast maar ik ben vrij nieuw met VBA en weet niet welke aanpassingen ik precies moet doen.


    Het gaat om onderstaande code:

    Sub M_snb()
    sn = Split(Join(Application.Index(Sheet1.Cells(1).CurrentRegion.Rows(1).Value, 1, 0), "||"), "|")
    Sheet1.Cells(1).Resize(, UBound(sn) + 1) = sn
    End Sub
    - De draaitabel staat in het werkblad genaamd: 'Quotation Template (1)'
    - De 'oorspronkelijke' tabel begint in cel V32 en eindigt in cel DM309
    - We willen graag een colomn toevoegen links naast elke column in de range W tot en met DK.

    Als het mogelijk is wil ik deze code laden in een andere code

    Ik hoop dat iemand mij uit de brand kan helpen!!

  2. #2
    VBAX Regular
    Joined
    Jan 2016
    Posts
    7
    Location
    solved?

  3. #3
    VBAX Newbie
    Joined
    Aug 2016
    Posts
    1
    Location
    Quote Originally Posted by Decision View Post
    Hoi, kan iemand mij helpen met het volgende probleem?

    Ik heb de volgende code toegepast in een werkblad waarin ik telkens één column links wilde invoegen naast elke column van een aantal columns. Nu wil ik dit doen maar dan in een ander bestand waar de tabel in een andere sheet staat en op een andere plek in het sheet. Dit betekent dat de code moet worden aangepast maar ik ben vrij nieuw met VBA en weet niet welke aanpassingen ik precies moet doen.


    Het gaat om onderstaande code:

    Sub M_snb()
    sn = Split(Join(Application.Index(Sheet1.Cells(1).CurrentRegion.Rows(1).Value, 1, 0), "||"), "|")
    Sheet1.Cells(1).Resize(, UBound(sn) + 1) = sn
    End Sub
    - De draaitabel staat in het werkblad genaamd: 'Quotation Template (1)'
    - De 'oorspronkelijke' tabel begint in cel V32 en eindigt in cel DM309
    - We willen graag een colomn toevoegen links naast elke column in de range W tot en met DK.

    Als het mogelijk is wil ik deze code laden in een andere code

    Ik hoop dat iemand mij uit de brand kan helpen!!

    I'm also pretty knew to this one but I just hope you solve the code you wanted to load to another page. Hope you got it!

    "Ik ben ook vrij wist dit, maar ik hoop dat je de code die u wilde te laden naar een andere pagina op te lossen. Ik hoop dat je het hebt!"

  4. #4
    Moderator VBAX Sage SamT's Avatar
    Joined
    Oct 2006
    Location
    Near Columbia
    Posts
    7,814
    Location
    Thread started in 2014
    I expect the student to do their homework and find all the errrors I leeve in.


    Please take the time to read the Forum FAQ

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •