Saltar al contenido

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

Enlace a comentario
Compartir con otras webs

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!

Enlace a comentario
Compartir con otras webs

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.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.