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 estás conectado. Conéctate o registrate

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

1RESUELTO SEPARADOR EN CELDAS CONCATENADAS el 11/01/17, 06:05 pm

edwinjo


Muy buenas Tardes y gracias Hasta victoria y a todos,
Agradeciéndoles su ayuda con el macro para concatenar, al mismo tiempo solicitándoles, su ayuda por favor, para mejorar el código; resulta que aveces para separar las series concatenadas ademas de , en otras utilizo /,  _, "", etc. por lo que mucho les agradecería, si me indican que se le debe agregar al macro para ingresarle, el separador con un imputbox  
 Sub Concatena()
Set Rango = Application.InputBox("Elige el rango a concatenar", Type:=Cool
Set Donde = Application.InputBox("Elige la celda donde irá el concatenado", Type:=Cool
For Each Celda In Rango.Cells
    'Si la celda NO está vacía, entonces concatenarla
    If Celda.Value <> "" Then
        resultado = resultado & ", " & Celda.Value
    End If
Next Celda
'Se remueve el ; y espacio inicial
resultado = Right(resultado, Len(resultado) - 2)
Range(Donde.Address) = resultado
End Sub

2RESUELTO Re: SEPARADOR EN CELDAS CONCATENADAS el 12/01/17, 09:01 am

ioyama

avatar
Hola Ed

La solución es sencilla, vale con poner una variable en la que un nuevo InputBox vuelque el dato y modificar un poco la sentencia que lleva ", "

Fijate que le he llamado seprador y que le añado un espacio al final, si quieres quitarlo elimina & " " tras separador

En el adjunto tienes la modificación

Analiza la macro y verás que el cambio, como digo, es muy fácil

Un saludo desde Vitoria
Archivos
ConcateneanarCeldas_io_170112.zip
No tienes los permisos para descargar los archivos.
(11 KB)

3RESUELTO MIL GRACIAS el 12/01/17, 10:08 am

edwinjo


Buenos días,
Lo habia intento de todo y no me dio, el que sabe sabe, gracias por tu ayuda, la verdad, si que me han ayudado mucho, un gran saludo para el foro y gracias por todo, ya lo estoy utilizando mucho.
Edwinjo

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.