kolom met bepaalde naam kopieren naar lege kolom

[Barbara24]

Beste,

Ik heb nog een vraagje.
Hoe kan ik in VBA kijken of in rij 1 van worksheet "origineel" een bepaalde tekstwaarde voorkomt (bijvoorbeeld de waarde "NI") waarna hij deze betreffende kolom kopieert en invoegt.
Ik wil dit doen voor meerdere kolommen.

b.v.d.
Groeten
Barbara

 

[OctaFish]

Waar moet hij de kolom invoegen?

 

[Barbara24]

Hoi,
dat maakt eigenlijk niet zoveel uit. Bijvoorbeeld rechts naast de oorspronkelijke kolom.

Dankje

 

[VenA]

Kan je even een voorbeeldje plaatsen? Deze vraagstelling is wel erg summier. Dus een excel bestandje met wat waar staat en wat de uitkomst moet worden.

 

[Barbara24]

Goedemorgen VenA,

Bij deze een voorbeeldje van wat ik bedoel. In de tab "uitkomst" heb ik nog wat uitleg gegeven.

alvast bedankt
Barbara
Bekijk bijlage voorbeeld 2.xlsx

 

[Leotaxi]

ik denk dat deze kan dienen


mvg
Leo

 

[Barbara24]

Super! dankje

Groeten
Barbara

 

[VenA]

Mij ontgaat het doel van deze actie. Ik kan mij er nog iets bij voorstellen dat het blad 'Data' op verschillende manieren gevuld kan worden. Maar wat het nut ervan is om er dan een kopie van te maken en deze ergens in te voegen? Dan blijft het nog steeds ergens verkeerd staan toch?


@Leotaxi:thumb: Doet wat de vraag is.

Met een iets andere insteek werkt het ook.

Sub VenA()
ar = Array("ni", "standard life")
    With Sheets("data")
        For j = 0 To UBound(ar)
            item = WorksheetFunction.Match(ar(j), .Range("A1").Resize(, .UsedRange.Columns.Count), 0)
            .Columns(item).Copy
            .Columns(item).Offset(, 1).Insert
        Next j
    End With
    Application.CutCopyMode = False
End Sub

Als binnenkort de vraag komt of het ook met drie of meer items kan hoef je alleen de Array aan te passen.