Una macro para concatenar datos de filas

[Christco]

Buenas noches

quisiera pedir su ayuda ya que tengo un archivo de excel con aproximadamente 1000 registros.

En la columna "C" tengo datos los cuales deberían estar concatenados, sin embargo, estan dispersos, por ejemplo, la celda C1 dice HOLA, la celda C2 dice SOY y la celda C3 dice JUANITO, el resultado que quiero lograr es HOLA SOY JUANITO en una sola celda a partir de donde empieza la palabra HOLA. No importa que queden celdas vacias debajo de cada cadena concatenada.

Adjunto un archivo donde se puede ver un ejemplo de los datos que tengo.

Agradezco su apoyo.

Prueba.xls

[Invitado Gengis Khan]

Hola:

Puede que esto sea lo que quiere/necesite.

Saludos

Prueba.xls

[Christco]

Gracias amigo Gengis Khan me sirvio la macro :tan:

[chuak22]

hola...

que deberìa cambiar si quisiera que esos datos concatenados, ma aparecieran en la hoja2

desde ya muchas gracias...

[Invitado Gengis Khan]

Hola:

Modificada la macro para dar lo resultados en la Hoja2.

Sub Concatenar()


Application.ScreenUpdating = False

fila = 2

Range("D:F").ClearContents



For x = 2 To Range("A" & Rows.Count).End(xlUp).Row

   Do Until Range("C" & x) = ""

      Range("F" & fila) = Range("F" & fila) & Range("C" & x) & " "

      x = x + 1

   Loop


  [COLOR=#0000ff][B] Hoja2.Range("A" & fila)[/B][/COLOR] = Range("A" & x - 1)

   [B][COLOR=#0000cd]Hoja2.Range("B" & fila)[/COLOR][/B] = Range("B" & x - 1)

   fila = fila + 1

Next



End Sub



[/CODE]

[chuak22]

Gracias Gengis, le hice unos agregados de Hoja2.Range... a un par de lineas mas.

Me sirvio!!!