Formulacion Y Evaluacion De Proyectos

Sub Macro1()

'

' Macro1 Macro

'

'

Selection.EntireRow.Delete

Columns("A:A").Select

Selection.NumberFormat = "0000000000000"

Selection.ColumnWidth = 13

Columns("B:B").Select

Selection.NumberFormat = "00"

Selection.ColumnWidth = 2

Columns("C:C").Select

Selection.ColumnWidth = 4

Selection.NumberFormat = "General"

Columns("D:D").Select

Selection.NumberFormat = "000000000000000"

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.ColumnWidth = 15

Columns("E:E").Select

Selection.NumberFormat = "General"

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.ColumnWidth = 15

Columns("F:F").Select

Selection.ColumnWidth = 20

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Columns("G:G").Select

Selection.ColumnWidth = 8

Columns("H:H").Select

Selection.ColumnWidth = 1

Columns("I:I").Select

Selection.NumberFormat = "0000"

Selection.ColumnWidth = 4

Columns("J:J").Select

Selection.NumberFormat = "0000"

Selection.ColumnWidth = 4

Columns("K:K").Select

Selection.ColumnWidth = 4

Selection.NumberFormat = "0000"

Columns("L:L").Select

Selection.Insert Shift:=xlToRight

Selection.ColumnWidth = 16

Selection.ClearContents

Columns("M:M").Select

Selection.NumberFormat = "@"

...