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

Hola Ramo72

Este código te vale para la estructura de la "Hoja1".

Sub InsertCol()

For i = 370 To 6 Step -7

Cells(1, i).EntireColumn.Insert

Next

End Sub

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.