Concatenar nombres

Buenos tardes me pregunatria si por favor me ayudaras con esta inquietud
tengo una macro que me concatena los datos que se encuentran en la colummna B, C, DE, E celdas y me arroja el resultado en la "f"; lo que quiero es que el resultado me concatene con los espacios neceserios ejemplo
como me concatena:
Diego felipe bedoya castañeda
Como me debería:
Diego felipe bedoya castañeda
Este es el código commo puedo adaptarlo
Gracias
Sub Concatenar1()
Dim Incremento_Fila As Integer
   Dim destino As String
   Dim cadena As String
   Set rango = Worksheets("Mana_Infantil")
   Range("F1").Select
   Selection.EntireColumn.Insert
   Set rango = Worksheets("Mana_Infantil")
   Range("B1").Select
   Incremento_Fila = 0
   Continuar = True
   Do While Continuar
        If Not IsEmpty(ActiveCell.Offset(Incremento_Fila, 0)) Then
            cadena = ActiveCell.Offset(Incremento_Fila, 0).Value & " " & ActiveCell.Offset(Incremento_Fila, 1).Value & " " & ActiveCell.Offset(Incremento_Fila, 2).Value & " " & ActiveCell.Offset(Incremento_Fila, 3).Value
            destino = "F" & Incremento_Fila + 1
            Set rango = Worksheets("Mana_Infantil")
            Range(destino) = cadena
            Incremento_Fila = Incremento_Fila + 1
        Else
            Continuar = False
        End If
   Loop
    Columns("F:F").ColumnWidth = 49.57
End Sub

2 respuestas

Respuesta
1
Como estás, mira usa tu macro de la siguiente manera:
Sub Concatenar1()
Dim Incremento_Fila As Integer
   Dim destino As String
   Dim cadena As String
   Set rango = Worksheets("Mana_Infantil")
   Range("F1").Select
   Selection.EntireColumn.Insert
   Set rango = Worksheets("Mana_Infantil")
   Range("B1").Select
   Incremento_Fila = 0
   Continuar = True
   Do While Continuar
        If Not IsEmpty(ActiveCell.Offset(Incremento_Fila, 0)) Then
        cadena = Replace(ActiveCell.Offset(Incremento_Fila, 0).Value, " ", "")
            cadena = Replace(ActiveCell.Offset(Incremento_Fila, 0).Value, " ", "") & _
            " " & Replace(ActiveCell.Offset(Incremento_Fila, 1).Value, " ", "") & _
            " " & Replace(ActiveCell.Offset(Incremento_Fila, 2).Value, " ", "") & _
            " " & Replace(ActiveCell.Offset(Incremento_Fila, 3).Value, " ", "")
            destino = "F" & Incremento_Fila + 1
            Set rango = Worksheets("Mana_Infantil")
            Range(destino) = cadena
            Incremento_Fila = Incremento_Fila + 1
        Else
            Continuar = False
        End If
   Loop
    Columns("F:F").ColumnWidth = 49.57
End Sub
Cualquier inquietud o duda me avisas.
Respuesta
1
Prueba con la función Trim que quita los espacios al final de los textos
Sub Concatenar1()
Dim Incremento_Fila As Integer
   Dim destino As String
   Dim cadena As String
   Set rango = Worksheets("Mana_Infantil")
   Range("F1").Select
   Selection.EntireColumn.Insert
   Set rango = Worksheets("Mana_Infantil")
   Range("B1").Select
   Incremento_Fila = 0
   Continuar = True
   Do While Continuar
        If Not IsEmpty(ActiveCell.Offset(Incremento_Fila, 0)) Then
            cadena = Trim(ActiveCell.Offset(Incremento_Fila, 0).Value) & " " & Trim(ActiveCell.Offset(Incremento_Fila, 1).Value) & " " & Trim(ActiveCell.Offset(Incremento_Fila, 2).Value) & " " & trim(ActiveCell.Offset(Incremento_Fila, 3).Value)
            destino = "F" & Incremento_Fila + 1
            Set rango = Worksheets("Mana_Infantil")
            Range(destino) = cadena
            Incremento_Fila = Incremento_Fila + 1
        Else
            Continuar = False
        End If
   Loop
    Columns("F:F").ColumnWidth = 49.57
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro concatenar

Quisiera saber como concateno por medio de una macro un libro que tiene un rango de datos de a hasta h con muchas filas, por lo que quiero primero insertar una columna en A y ahí en a1 concatenar lo que este en e1 Y B1. Lo he estado intentando así.....
1 respuesta

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Rellenar con 0

Ojala me puedan ayudar, bueno tengo el siguiente problema, necesito rellenar con 0 desde la izquierda, lo he hecho de la siguiente manera =1000000000000000+A1 y luego extraigo. Pero el problema es cuando tengo numeros con decimales. Ejm. Tengo 420 y...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

(Macro) Necesito recorrer Columnas (Range) entre fechas según el valor de 2 celdas

Tengo esta macro que llama a otro archivo y luego recorre el archivo desde donde es llamado. Sub Carga_Operacion() Dim Response As String Dim Fini As Date Dim Fter As Date Dim hora1 As String, fecha1 As String, user1 As String destino =...
1 respuesta

Cuando intento asignar el valor de un textbox a una celda excel me envía un error

Sucede que cuando intento asignar el valor de un textbox a una celda excel me envia un error y lo hago de la siguiente manera Sub Agregar() Sheets("Base").Select Range("B8").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select...
1 respuesta