Concatenar columnas segudas

Gracias a todos, probare para ver cual me sirve mas. Luego les cuento.

Saludos, tengo una duda para ver si alguien me dice si se puede o no:

Deseo concatenar 3 columnas seguidas pero estas columnas pueden ser
cualesquiera, es decir, una hoja puede ser B, C y D y otra hoja, O, P y Q.
Las columnas puden ser variables, lo que deseo es que en la columna en la
cual esta el cursor me concatene las 3 columnas siguientes. Este codigo lo
ingresria por Macro en mi mi libro Personal.xls para usarlo con cualquier
libro abierto.

Gracias y espero haberme expliado bien.

Aplique este codigo pero me sale error: #¿NOMBRE?

Claro que no uso CONCATENATE sino CONCATENAR, lo hago manual y me
funciona bien, pero con la macro sale el error, son los mismos datos y
me da la misma formula pero la macro sale el error.

¿Que será?

Otra opción (modificada un poco de la grabadora de macros):

Sub ConcatenarSiguientes()
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],RC[2],RC[3])"
End Sub

Saludos.



"Alejandro Garcia" escribió:

Saludos, tengo una duda para ver si alguien me dice si se puede o no:

Deseo concatenar 3 columnas seguidas pero estas columnas pueden ser
cualesquiera, es decir, una hoja puede ser B, C y D y otra hoja, O, P y
Q. Las columnas puden ser variables, lo que deseo es que en la columna
en la cual esta el cursor me concatene las 3 columnas siguientes. Este
codigo lo ingresria por Macro en mi mi libro Personal.xls para usarlo
con cualquier libro abierto.

Gracias y espero haberme expliado bien.

Gracias me sirvio este codigo, muy amale por su colaboración

Sub concatena()
ActiveCell.Value = ActiveCell.Offset(0, 1) & ActiveCell.Offset(0, 2)
& ActiveCell.Offset(0, 3)
End Sub


Saludos

Hola Alejandro.

Puedes hacerlo.

.- Sin macro: =CONCATENAR(B5;C5;D5)

.- Con macro:
Sub concatena()
ActiveCell.Value = ActiveCell.Offset(0, 1) & ActiveCell.Offset(0, 2) &
ActiveCell.Offset(0, 3)
End Sub

.- Con función personalizada < Llámala con: =unir(fila()) >:
Function unir(miFila As Integer)
unir = Cells(miFila, 2).Value & Cells(miFila, 3).Value & Cells(miFila,
4).Value
End Function

Saludos desde Tenerife.
***********************************
"Alejandro Garcia" escribió en el mensaje
news:

Saludos, tengo una duda para ver si alguien me dice si se puede o no:

Deseo concatenar 3 columnas seguidas pero estas columnas pueden ser
cualesquiera, es decir, una hoja puede ser B, C y D y otra hoja, O, P y Q.
Las columnas puden ser variables, lo que deseo es que en la columna en la
cual esta el cursor me concatene las 3 columnas siguientes. Este codigo lo
ingresria por Macro en mi mi libro Personal.xls para usarlo con cualquier
libro abierto.

Gracias y espero haberme expliado bien.

Otra opción (modificada un poco de la grabadora de macros):

Sub ConcatenarSiguientes()
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],RC[2],RC[3])"
End Sub

Saludos.



"Alejandro Garcia" escribió:

Saludos, tengo una duda para ver si alguien me dice si se puede o no:

Deseo concatenar 3 columnas seguidas pero estas columnas pueden ser
cualesquiera, es decir, una hoja puede ser B, C y D y otra hoja, O, P y
Q. Las columnas puden ser variables, lo que deseo es que en la columna
en la cual esta el cursor me concatene las 3 columnas siguientes. Este
codigo lo ingresria por Macro en mi mi libro Personal.xls para usarlo
con cualquier libro abierto.

Gracias y espero haberme expliado bien.