¿Cómo combinar una celda automáticamente?

Hola,

Saludos y besos, tengo este pequeño código:

Range("B8").Copy
Sheets("HISTORICO").Select
Range("B1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Ayudenme, este comando se ejecuta cuando doy click en una macro, como hago para que cada vez que yo la ejecute, ¿dónde se peguen los datos de "b8" se combine las celdas hasta la columna "L"?

Espero haber sido clara,

Gracias Office 2013

1 Respuesta

Respuesta
1

A continuación agrega las 2 líneas que marco:

Range("B8"). Copy
Sheets("HISTORICO").Select
Range("B1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
filx = Range("B1048576").End(xlUp).Row
Range("B" & filx & ":L" & filx).Merge

Sdos

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas