Jump to content

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


Recommended Posts

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

Link to comment
Share on other sites

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!

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy