Hola buenas tardes. por el largo de mis textos es necesario hacer una combinación de celdas.

Con la macro en mi archivo he logrado hacer que al seleccionar una celda lo combine con la celda siguiente. me funciona

Pero mi necesidad es de poder seleccionar varias celdas continuas oi discontinuas y que se ejecute mi macro en cada una de las celdas.

La combinación es de la columna C y columna D.

 

Muchas gracias

Combinar celdas seleccionadas.xlsm

Prueba y comenta

El archivo

Combinar celdas seleccionadas.xlsm

Sub CombinarCeldaCyD(): Application.DisplayAlerts = False

    If Selection Is Nothing Then Exit Sub
    
    Set Celda = Selection
    If Celda.Column <> 3 Then Exit Sub
    
    TextoC = Celda.Value
    TextoD = Celda.Offset(0, 1).Value
    TextoCombinado = TextoC & " " & TextoD
    
    Set RangoACombinar = Range(Celda, Celda.Offset(0, 1))
    
    With RangoACombinar
        .Merge
        .Value = TextoCombinado
    End With
End Sub

 

hace 10 horas, JSDJSD dijo:

El archivo

Combinar celdas seleccionadas.xlsm 22.42 kB · 1 descarga

Hola buenas tardes.

Muchas gracias

Ya vi el archivo, funciona bien. Pero lo que busco es poder seleccionar yo cualquier celda o celdas ya sean continuas o discontinuas  de la columna C, y que haga la combinación de celdas con la columna siguiente.

No que me junte los datos de las celdas

 

Ejemplo si yo selecciono de la columna C la 3,5 o 6 se deberan combinar con D3,D5,D6. y asi con los que seleccione.

Muchas gracias

 

En cuanto pueda te lo miro

hace 5 minutos , JSDJSD dijo:

En cuanto pueda te lo miro

Muchas gracias.

hice algunos cambios a la macro que me proporcionaste y funciona.

 

Por favor dar como terminado.

 

Gracias y un abrazo!

Perfecto, me alegro