Salto de línea en celda

29/03/2009 - 05:10 por Juan Martín | Informe spam
Hola a todos:

Quisiera que me ayuden con lo siguiente:

Tengo un listado en el que en una de las columnas tengo varios datos
separado por un salto de línea, por ejemplo, Celda B2 tiene "Empleados",
"Contratados", Practicantes" y "Obreros", cada uno debajo del otro por el
salto de línea que le dí.

Lo que quisiera es que ese dato, se copie en otra hoja, pero no en la misma
celda, sino, cada dato en una celda distinta, una debajo de la otra, en este
caso en 4 celdas, ya que son 4 datos.

Ojalá haya sido claro y me puedan entender y ayudar.

Muchas gracias.

Saludos a todos,
 

Leer las respuestas

#1 Francisco Mty
29/03/2009 - 06:22 | Informe spam
Algo simple que te puede ayudar ...

Sub extrae()
For i = 1 To Len(Range("a1").Value)
paso = Val(Mid(Range("a1").Value, i, 1))
If paso <> "0" Then cadena = cadena & Val(Mid(Range("a1").Value, i, 1))
Debug.Print cadena
Next
For j = 1 To Len(cadena)
'Cells(j, 2).Value = Mid(cadena, j, 1)
Debug.Print Mid(cadena, j, 1)
Next
End Sub





"Juan Martín" wrote in message
news:
Hola a todos:

Quisiera que me ayuden con lo siguiente:

Tengo un listado en el que en una de las columnas tengo varios datos
separado por un salto de línea, por ejemplo, Celda B2 tiene "Empleados",
"Contratados", Practicantes" y "Obreros", cada uno debajo del otro por el
salto de línea que le dí.

Lo que quisiera es que ese dato, se copie en otra hoja, pero no en la
misma
celda, sino, cada dato en una celda distinta, una debajo de la otra, en
este
caso en 4 celdas, ya que son 4 datos.

Ojalá haya sido claro y me puedan entender y ayudar.

Muchas gracias.

Saludos a todos,

Preguntas similares