Saltar al contenido

Insertar columnas segun condicion


Ramo72

Recommended Posts

Buenas

Necesito ayuda con un problema

El mismo consiste en la imposibilidad de establecer el codigo correcto para efectuar una insercion de columnas en funcion de una condicion preestablecida.

En el adjunto tenemos un listado de fechas horizontal donde para cada una existe en la celda superior una formula que arroja un numero del 1 al 7 haciendo referencia a un dia de la semana. Lo que yo quiero es insertar una columna despues de cada 7 (que seria cada domingo, a fin de establecer subtotales semanales.

No he podido realizar un codigo respecto a esto que funcione como deseo. Alguna idea?

Necesito si o si que sea mediante macros.

Saludos

insertarcolumnas.rar

Enlace a comentario
Compartir con otras webs

Gracias, Ama, voy a estudiar ese codigo, por que no conocia sa sintaxis.

Yo me las ingenie para armarlo asi esto, poniendo un -1 al final como referencia. Igualmente sirve, pero es bastante mas lento dado el loop.

Sheets("Hoja1").Range("E2").Activate
Do While ActiveCell.Offset(1, 0) <> -1
ActiveCell.Offset(0, 1).Activate
If ActiveCell = 7 Then
ActiveCell.ClearContents
ActiveCell.Offset(0, 0).EntireColumn.Select
Selection.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromRightOrAbove
Sheets("Hoja1").Range("E2").Activate
Else
End If
Loop

End Sub[/CODE]

Creo que el tema esta cerrado.

Nuevamente gracias.

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.