kolommen verwijderen

[peerke2812]

Goedemiddag Allen,

Waarschijnlijk een hele simpele vraag voor jullie,maar ik kom er niet uit,ben de hele middag al bezig om zoiets hier op het forum te vinden.
in het bestandje staan 35 kolommen waarvan ik er maar 6 nodig heb,ook nog in een bepaalde volgorde.
nl, eerst B dan M,I,Y,T en als latste O.
is dit te realiseren met een Macro en een button,aangezien ik een leek ben op dit gebied wendt ik mij tot jullie.
alvast bedankt

grt
pieter

 

[Joske2000]

Sub KolommenVerwijderen()
    Columns("B:B").Cut
    Columns("A:A").Insert Shift:=xlToRight
    Columns("M:M").Cut
    Columns("B:B").Insert Shift:=xlToRight
    Columns("I:I").Cut
    Columns("C:C").Insert Shift:=xlToRight
    Columns("Y:Y").Cut
    Columns("D:D").Insert Shift:=xlToRight
    Columns("T:T").Cut
    Columns("E:E").Insert Shift:=xlToRight
    Columns("O:O").Cut
    Columns("F:F").Insert Shift:=xlToRight
    Columns("G:IV").Delete
End Sub

Joske

 

[peerke2812]

Hoi Joske,

als ik de macro er op los laat krijg ik dit(zie bestand)
ik heb dit nodig;taaknummrer;aangenomen;gereed;resource;lokatie en proces

grt
pieter

 

[HSV]

Sub KolommenVerwijderen()
  Columns(1).Value = Columns(2).Value
  Columns(2).Value = Columns(13).Value
  Columns(3).Value = Columns("I:I").Value
  Columns(4).Value = Columns("Y:Y").Value
  Columns(5).Value = Columns("T:T").Value
  Columns(6).Value = Columns("O:O").Value
  Columns("G:IV").Delete
End Sub

 

[peerke2812]

hoi Harry,

sorry dat ik zo laat reagee,maar dit werkt super.
hartelijk dank.

grt
pieter

 

[Warme bakkertje]

Of

Sub KolommenVerwijderen()
For i = 1 To 6
    Columns(i).Value = Choose(i, Columns(2).Value, Columns(13).Value, Columns(9).Value, _
                            Columns(25).Value, Columns(20).Value, Columns(15).Value)
Next
Columns("G:IV").Delete
End Sub

PS Zet je de vraag dan nog even op opgelost