combinar 2 columnas pero solo de celdas seleccionadas

[MarianoCruz]

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

[JSDJSD]

Prueba y comenta

[JSDJSD]

El archivo

Combinar celdas seleccionadas.xlsm

[JSDJSD]

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

 

[MarianoCruz]

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

 

[JSDJSD]

En cuanto pueda te lo miro

[MarianoCruz]

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!

[JSDJSD]

Perfecto, me alegro