Jump to content
josegomez

separar texto en renglones

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy