UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Igtelo


Buenas noches.

Para concatenar rangos normalmente uso el complemento ASAP-Utilities, para Excel se ha creado la UDF (función definida por el usuario, hay varias formas para ello en la red) y normalmente la usamos como cualquier otra función o fórmula.

Para no estar copiando dicha UDF en el rango y después convertir a valores les dejo la macro que lo hace, basta con seleccionar la fila correspondiente y después un solo click. Con el ASAP también hay que copiar y pegar la función.

Les sirve para cualquier parte de la hoja donde se encuentren los datos a concatenar.

Deseo les sirva.
Saludos
Ignacio Téllez

Si la cargan a macros personales y agregan un botón en su cinta de opciones la tendrán disponible para todos los libros.
Archivos
Igtelo-Concatenar Rango.xlsm
No tienes los permisos para descargar los archivos.
(26 KB)



Última edición por Igtelo el 24/08/16, 04:31 pm, editado 2 veces (Razón : Se me pasó lo de Macros personales.)

Lehoi


Una vez más excelentes aportes, este es uno de esos que voy a fijar como aconsejas en mis macros generales porque suelo usar mucho la concatenación en mis chapuzas jeje.
Una duda solamente Igtelo: 
he querido hacer una concatenación al estilo que hace la función CONCATENATE es decir, que me una los textos de las celdas tal cual, y he modificado la línea 

Código:
dato = dato & ";" & celda.Value
por 
Código:
dato = dato & "" & celda.Value
como no me mostraba el primer carácter de la primera celda por el -1 de la línea 
Código:
dato = Right(dato, Len(dato) - 1)
he quitado el -1 y va perfecto, pero entonces si en algún momento quiero concatenar agregando un elemento espaciador como _ o espacio, etc. entonces me lo agrega también al principio al no tener el -1. 
Hay alguna forma de solucionar esta situación?
Un abrazo y gracias por tus aportes y soluciones.

Lehoi

Igtelo


Hola Lehoi.

Buena idea!!

La mía era hacer solamente 2 movimientos, seleccionar rango y dar click.
Con éste archivo da las opciones con separador y sin el, y sólo se aumenta un click. Quedó mejor, no modificamos la UDF y agregamos el mensaje.

Saludos y gracias por la sugerencia.
Ignacio Téllez
Archivos
Igtelo-Concatenar Rango2.xlsm
No tienes los permisos para descargar los archivos.
(27 KB)

Lehoi


Perfecto!
El concatenar es para mi una de las fórmulas más tediosas sobre todo cuando son muchas celdas, porque al crear la fórmula hay que ir celda a celda, con esta macro es coser y cantar, y ahora con la opción que has añadido adquiere mucha más funcionalidad.
Gracias Igtelo Smile

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.