Buenas tardes a todos..

MI duda ahora es. como poder agregar columnas con un macro, después de un texto en una celda

adjunto la hoja donde esta lo que se quiere hacer y lo el original

es agregar 2 columnas en blanco o mas dependiendo después de la celda con contenido "Total"

agradezco desde ya el tiempo dedicado..

Ayuda.xls

verifica este enlace a ver si te sirve

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-insertar-columnas-22181/

Hola:

Abre el adjunto y pulsa Ctrl+e.

He añadido dos columnas por el final en la hoja "ORIGINAL". Son las columnas que se añaden.

Saludos

Expandir.xls

Macro Antonio

probe tu archivo de maravillas !! ahora lo estoy modificando

solo te pido una pequeña explicacion del codigo

ActiveSheet.Columns("BK:BL").Delete

Sheets("ORIGINAL").Select

ActiveSheet.Range("A1").Select

Sheets("ORIGINAL EXPANDIDO").Select

por que estouy modificando la cantidad de usuarios y son apro 54 a mas y son mas columnas y eso del Bk:BL no se como cambiarlo

podes explicarme un poco mas porfavor

gracias!

Si te fijas en la hoja ORIGINAL, esas 2 columnas BK:BL contienen el formato de las columnas que se añadirán, y al copiar la hoja sobre la ORIGINAL EXPANDIDO también se trasladan, ActiveSheet.Columns("BK:BL").Delete, elimina esas dos columnas.

Si añades mas columnas a la hoja ORIGINAL, ese rango evidentemente será distinto y se desplazará tantas columnas a la derecha como columnas haya añadido.

Para que quede mas claro, por ejemplo, si añades 1 columna, el rango pasará a ser BL:BM, si añades 2, BM:BN, si añades 3, BN:BO, y así sucesivamente.

Si no recuerdo mal, ese rango se utiliza mas de una vez, repasa todo el código, y sustituye todas las ocurrencias BK:BL por el nuevo rango.