verzamelde celwaarde scheiden door pipes

[Dave35nl]

Hallo, ik heb in een cel bv de volgende waarde aa | 55 | BBBB | C33Ab, nu wil ik de waarde's in een aparte kolom hebben, de waarde's zijn altijd gescheiden door een (|) pipe.

De verzamelde celwaarde staat bv in F5, de waarde's moeten uitgesplitst worden over de cellen F1 tm F4 (F1 aa, F2 55, F3 BBBB, F4 C33Ab)

Ben benieuwd naar een evt oplossing !

 

[Roncancio]

Via Data - Tekst naar kolommen kan je de gegevens scheiden.

- Data - Tekst naar kolommen
- Selecteer Gescheiden
- Klik op Volgende
- Vink aan Overige
- Zet in de tekstvak ernaast |
- Klik op Volgende
- Kies bij Bestemming F1
- Klik op Voltooien.

De G1 T/m J1 zijn nu gevuld met de gegevens.
Selecteer deze cellen.
Klik op Kopieren
- Ga naar cel F1
- Ga naar Bewerken - Plakken speciaal
- Vink aan Transponeren en klik op Ok.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

@Roncancio

- Kies bij Bestemming F1

moet worden G1 (anders problemen bij kopieëren en plakken)

@Dave
Wil je hem geautomatiseerd

Sub TestIt()
    [F5].TextToColumns Destination:=[G1], DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
    :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1))
    [G1:J1].Copy
    [F1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    [G1:J1].ClearContents
End Sub

Mvg

Rudi

 

[Roncancio]

moet worden G1 (anders problemen bij kopieëren en plakken)

Oeps, klopt. Ik had even niet opgelet.
Gelukkig jij wel.:thumb:

Met vriendelijke groet,


Roncancio

 

[snb]

of

Sub splits()
    [F5].TextToColumns [G1], , , , False, False, False, False, True, "|"
    [F1].Resize([G1:J1].Cells.Count) = Application.WorksheetFunction.Transpose([G1:J1])
    [G1:J1].ClearContents
End Sub

 

[Dave35nl]

Hey bedankt voor jullie reactie's :thumb:

Nooit geweten dat je voor een enkele kolom text naar kolommen kon gebruiken, daar lukt het in elk geval mee.

Ga zeker proberen om het te automatiseren mocht ik het vaker nodig hebben !