separar texto en renglones

[josegomez]

Saludos a todos. Con la siguiente cuestión. Obtengo de un programa una base de datos de la cual al pasarla a Excel me pone una celda con varias lieneas de texto

Lo que necesito es poner en una celda diferente cada linea que esta en la misma celda, he utilizado texto en columnas para separarlo ya que la información viene separada con este carácter "|". Pero ignoro porque, al darle finalizar al texto en columnas solo me aparece el primer renglón, los demás renglones los desaparece.

 

Anexo archivo para mejor visualización.

De antemano muchas gracias 

separar texto en renglones.xlsx

[Leopoldo Blancas]

Hola,

 

Prueba con:

Sub DividirTexto_LBV()
Dim aA, n&, m&
    aA = Split(Range("C4"), Chr(10))
    m = 15
    For n = LBound(aA) To UBound(aA)
        Cells(m, "C") = Replace(Mid(aA(n), InStr(1, aA(n), "Descripción", vbTextCompare) + 14), Chr(13), "")
        m = m + 1
    Next n
End Sub

NOTA: Si tienes dudas del Código Puedes preguntar... 

Saludos

[Antoni]

Lo mismo que Leopoldo, pero con algo de cosecha propia.

Sub DividirTexto_Antoni()
Dim PRO As Variant, Texto As Variant
Dim Columna As Integer, VAL As Variant
Dim Fila As Integer, x As Integer
'--
Texto = [C4]
Texto = Replace(Texto, "Cantidad", "")
Texto = Replace(Texto, "valorUnitario", "")
Texto = Replace(Texto, "Importe", "")
Texto = Replace(Texto, "Descripción", "")
Texto = Replace(Texto, "  ", "")
Texto = Replace(Texto, "| ", "|")
Texto = Replace(Texto, " |", "|")
'--
Fila = 5
PRO = Split(Texto, Chr(10))
For x = 0 To UBound(PRO) - 1
   VAL = Split(PRO(x), "|")
   Fila = Fila + 1
   For Columna = 1 To 4
      Cells(Fila, Columna + 3) = VAL(Columna)
   Next
Next
End Sub

 

[Leopoldo Blancas]

Hace 6 horas, Antoni dijo:

Lo mismo que Leopoldo, pero con algo de cosecha propia.

Solo te falto: Texto = Replace(Texto, Chr(13), "")

Saludos.

[josegomez]

Saludos!! Leo y Antoni, antes que nada muchas gracias por responder el tema. Ya probé la macro y quedo excelente muchas gracias. Doy el tema como Cerrado.