Tekst of getallen in tweede cel kopieren

[Ron001]

Allen

In elke cel van kolom K (variabel, afhankelijk van het aantal rjien) staat steeds zoiets:

6fc-dgez-hj20-365
dit moet weg

nu zou steeds de onderste regel (tekst of getallen) geknipt en geplakt moeten worden naar kolom L.


Dat in cel K blijft staan: 6fc-dgez-hj20-365
Dat in cel L staat: dit moet weg

 

[edmoor]

Ok, dat kan natuurlijk.

 

[SjonR]

probeer deze eens:

Sub SjonR()
For i = 1 To Range("K" & Rows.Count).End(xlUp).Row
       If InStr(Cells(i, 11), Chr(10)) - 1 > 0 Then
            Cells(i, 12) = Right(Cells(i, 11), Len(Cells(i, 11)) - InStr(Cells(i, 11), Chr(10)))
            Cells(i, 11) = Left(Cells(i, 11), InStr(Cells(i, 11), Chr(10)))
       End If
Next 
End Sub

 

[HSV]

Sub hsv()
Dim sv, sq, i As Long
sv = Range("K1", Cells(Rows.Count, 11).End(xlUp)).Resize(, 2)
 For i = 1 To UBound(sv)
     if instr(sv(i,1),vblf) then  'als in elke regel een Alt+Enter (vblf) staat is dit overbodig
       sq = Split(sv(i, 1), vbLf)
       sv(i, 1) = sq(0)
       sv(i, 2) = sq(1)
     end if                            'idem deze
  Next i
 Range("k1").Resize(UBound(sv), 2) = sv
End Sub

 

[VenA]

Zonder macro kan het vrij eenvoudig met tekst naar kolommen. Als scheidingsteken moet je op <Ctrl> + j drukken.

Als macro wordt het dan zoiets.

Sub VenA()
  Columns(10).TextToColumns Cells(1, 10), xlDelimited, , , , , , , , "" & Chr(10) & ""
End Sub

 

[HSV]

, xlDelimited, , , , , , , ,[COLOR=#ff0000] vblf[/COLOR]