Saltar al contenido

Necesito copiar tantas columnas como datos separados tengo en una celda

publicado

Hola a todos

necesitaria,como podeis ver en el libro de ejemplo que acompaño,un macro que me copiara el resto de las filas pero que esa en concreto me la separar por el signo+ y que me la fuera copiando consecutivamente

gracias a todos por vuestro tiempo

Prueba .xls

Featured Replies

publicado

________________________________________________________

Añade una hoja con el nombre Hoja2 y ejecuta esta macro desde la Hoja1.

Sub ExplotarColumnaE()
fila = 2
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
líneas = Split(Range("F" & x), "+")
For y = 0 To UBound(líneas)
Range("A" & x & ":E" & x).Copy Hoja2.Range("A" & fila)
Hoja2.Range("F" & fila) = líneas(y)
fila = fila + 1
Next
Next
End Sub[/CODE]

________________________________________________________

.

publicado
  • Autor

MUCHAS GRACIAS POR TU PRONTA RESPUESTA

LO ACABO DE VER HOY

MUCHISIMAS GRACIAS POR TODO

UN SALUDO

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.