Agregar Columnas después de un texto en celda.. ?

[takeo]

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

[rulesagain]

verifica este enlace a ver si te sirve

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

[Antoni]

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

[takeo]

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!

[Antoni]

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.