combinar 2 columnas pero solo de celdas seleccionadas

MarianoCruz · el 15 de mayo

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 · el 16 de mayo

Prueba y comenta

JSDJSD · el 16 de mayo

El archivo

Combinar celdas seleccionadas.xlsm

JSDJSD · el 16 de mayo

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 · el 16 de mayo

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