verschillende kolommen samenvoegen in 1 kolom

[1102merrick]

Hoi,

In het bijgevoegde bestand vind je mijn voorbeeld:
Ik wil de gegevens in het gearceerde gebied in 1 kolom verwerken.
Zodat ik deze gegevens weer kan gebruiken in een ander bestand.

Kan iemand mij helpen?

Alvast bedankt.

Zie bijlage.

 

[MirjamHelp]

Ik kan niet helemaal volgen welk resultaat je wil hebben

Ik wil de gegevens in het gearceerde gebied in 1 kolom verwerken.

Wil je alle waarden van bv cel B2, C2 .... tm S2 in cel T2 hebben?

Zodat ik deze gegevens weer kan gebruiken in een ander bestand.

Hoe dient het resultaat eruit te zien om te gebruiken in het andere bestand?

Misschien kun je wat duidelijker zijn?

Gr. Mirjam

 

[Leotaxi]

bedoel je zo ?

Gr Leo

 

[1102merrick]

Bedankt voor alle reacties.
Maar ik zou alle gevulde cellen onder elkaar in 1, naast liggende, kolom willen zien. Zonder lege cellen dus.

In de bijlage hoop ik het te verduidelijken.

Zie bijlage

Bekijk bijlage voorbeelds2.xlsx

 

[arrie23]

Een ietwat aangepaste code die ik vermoedelijk ooit eens van dit forum heb gehaald (ere wie ere toekomt alleen weet ik helaas niet wie).
Celeigenschappen na uitvoeren macro nog even op getal zetten

Sub Matrix2lijst()

    Dim r As Range
    
    Range("V:V").ClearContents
    Range("V1").Value = "Nieuwe kolom"
    
    For Each r In Range("B2:S119").SpecialCells(xlCellTypeConstants, xlTextValues)
    
        If r.Value > 0 Then
        
            Range("V" & Rows.Count).End(xlUp).Offset(1).Value = r.Value
                    
        End If
    
    Next

End Sub