Sub TESORERIA_459()

' Macro grabada el 21/02/2011 por ARTURO LOMBANA

Application.DisplayAlerts = False

Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "FUENTE"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[17]=1,""TESORERIA"",""RED"")"

Range("A2").Select
Selection.Copy

Range("B2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Select
ActiveSheet.Paste
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("E1").Select
ActiveCell.FormulaR1C1 = "CAPITAL"
Range("H1").Select
ActiveCell.FormulaR1C1 = "FECHA_VENC"
Range("L1").Select
ActiveCell.FormulaR1C1 = "INT_PROVIS"
Range("M1").Select
ActiveCell.FormulaR1C1 = "NIT"
Columns("M:M").Select
Selection.Insert Shift:=xlToRight
Range("M1").Select
ActiveCell.FormulaR1C1 = "TIPO_IDE"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[1])=9,""N"",""C"")"
Range("M2").Select
Selection.Copy

Range("K2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste

Range("M2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
 Range("A1").Select

'Workbooks.Open Filename:= _
"D:\stella\CDT_PESOS\CARGUECDTS\VFP\BASES\NIT_F338.xlsx"

Workbooks.Open Filename:= _
"C:\Users\higue\OneDrive\Documents\MONA\MAcro\NIT_F338.xlsx"
Windows("Cdt_Tesoreria.xlsx").Activate

Range("T2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-6],[NIT_F338.xlsx]F338!
C1:C5,5,FALSE)),"""",VLOOKUP(RC[-6],[NIT_F338.xlsx]F338!C1:C5,5,FALSE))"
Selection.Copy
Range("S2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Range("T2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U2").Select

ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]="""",RC[-8]=""N""),""38005"",IF(AND(RC[-1]="""",RC[-
8]=""C""),""38010"",RC[-1]))"

Selection.Copy
Range("T2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste

Range("U2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns("U:U").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Cut
Columns("T:T").Select
ActiveSheet.Paste
Range("T1").Select
ActiveCell.FormulaR1C1 = "UC_RENG"

Columns("A:T").Select
Range("T1").Activate

ActiveWorkbook.Names.Add Name:="Origen", RefersToR1C1:="=FFETI080!C1:C20"

Windows("NIT_F338.xlsx").Activate
ActiveWindow.Close
Sheets.Add
 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Origen", Version:=xlPivotTableVersion12).CreatePivotTable TableDestination
_
:="Hoja1!R3C1", TableName:="Tabla din�mica5", DefaultVersion:= _
xlPivotTableVersion12
Sheets("Hoja1").Select
Cells(3, 1).Select
Range("B11").Select
With ActiveSheet.PivotTables("Tabla din�mica5").PivotFields( _
" Vlr Hoy")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica5").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica5").PivotFields(" Vlr Hoy"), _
"Cuenta de Vlr Hoy", xlCount
With ActiveSheet.PivotTables("Tabla din�mica5").PivotFields("UC_RENG")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla din�mica5").PivotFields( _
"Cuenta de Vlr Hoy")
.Caption = "Suma de Vlr Hoy"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tabla din�mica5").RowGrand = False
With ActiveSheet.PivotTables("Tabla din�mica5").PivotFields("UC_RENG")
.PivotItems("(blank)").Visible = False
End With
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A4"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 2), Array(2, 2)), TrailingMinusNumbers:=True
Range("A3").Select
ActiveCell.FormulaR1C1 = "Uc"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Renglon"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Sdo_Total"
Columns("A:C").Select
Selection.ColumnWidth = 15.71
Columns("A:C").EntireColumn.AutoFit
Rows("3:3").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
 .IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Columns("C:C").Select

Selection.NumberFormat = "[Blue]#,##0.00;[Red]-#,##0.00"

Range("D3").Select
ActiveCell.FormulaR1C1 = "En Miles"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=ROUND((RC[-1]/1000),0)"
Selection.Copy
Range("C4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Range("D4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("D:D").Select
Selection.NumberFormat = "[Blue]#,##0.00;[Red]-#,##0.00"
Sheets("Hoja1").Select
Sheets("Hoja1").Name = "338"
Sheets("FFETI080").Select
Range("U1").Select
ActiveCell.FormulaR1C1 = "Rango"
Range("U2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],TABLA_RANGOS_UC1,3)"
Selection.Copy
Range("T2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 1
Range("U2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Range("U1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U1").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False

Columns("A:U").Select
Range("U1").Activate
ActiveWorkbook.Names.Add Name:="BASE_COMPLETA", RefersToR1C1:= _
"=FFETI080!C1:C21"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BASE_COMPLETA", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R1C23", TableName:="Tabla din�mica1", _
DefaultVersion:=xlPivotTableVersion12
 Sheets("FFETI080").Select
Cells(1, 23).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("Rango")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("Titulo "), "Cuenta de Titulo ", _
xlCount
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields(" Vlr Hoy"), _
"Cuenta de Vlr Hoy", xlSum
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields( _
"Cuenta de Vlr Hoy")
.Caption = "Suma de Vlr Hoy"
.Function = xlSum
End With
Range("W2").Select
ActiveWindow.SmallScroll ToRight:=4
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("Rango")
.PivotItems("(blank)").Visible = False
End With
Range("X1").Select
Selection.CurrentRegion.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X1").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Cut
Sheets("UC1").Select
Range("F1").Select
ActiveSheet.Paste
Range("C2").Select

'modificar

ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],R2C6:R13C8,2,FALSE)),0,VLOOKUP(RC[-
2],R2C6:R13C8,2,FALSE))"

Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-3],R2C6:R13C8,3,FALSE)),0,VLOOKUP(RC[-
3],R2C6:R13C8,3,FALSE))"
Range("C2:D2").Select
Selection.Copy
Range("C3:D12").Select
ActiveSheet.Paste
Range("C2:D12").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 Range("D13").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-1]C)"
Range("G1").Select
Selection.CurrentRegion.Select
Selection.ClearContents

'OJO
Sheets("FFETI080").Select
ActiveWindow.SmallScroll ToRight:=-6
Range("N1").Select
Selection.Copy
Range("W1").Select
ActiveSheet.Paste
Range("U1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll ToRight:=2
Range("X1").Select
ActiveSheet.Paste
Range("U1").Select
Application.CutCopyMode = False
Range("BASE_COMPLETA").AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Range("W1:X1"), Unique:=True
Columns("W:X").Select
ActiveWorkbook.Names.Add Name:="CUENTA_NIT", RefersToR1C1:= _
"=FFETI080!C23:C24"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CUENTA_NIT", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R1C26", TableName:="Tabla din�mica2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(1, 26).Select
With ActiveSheet.PivotTables("Tabla din�mica2").PivotFields("Rango")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica2").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica2").PivotFields("NIT"), "Cuenta de NIT", xlCount
ActiveWindow.SmallScroll ToRight:=4
With ActiveSheet.PivotTables("Tabla din�mica2").PivotFields("Rango")
.PivotItems("(blank)").Visible = False
End With
Selection.CurrentRegion.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Cut
Sheets("UC1").Select
Range("F1").Select
ActiveSheet.Paste
Range("B2").Select
 'hasta aqui me trajo el rio

ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],R1C6:R12C7,2,FALSE)),0,VLOOKUP(RC[-
1],R1C6:R12C7,2,FALSE))"
Selection.Copy
Range("B3:B12").Select
ActiveSheet.Paste
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("FFETI080").Select
Range("W1").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Range("A1").Select

'Hasta aqui corrio bien

Sheets("FFETI080").Select
Columns("A:A").Select
ActiveWorkbook.Names.Add Name:="FUENTE", RefersToR1C1:="=FFETI080!C1"
Columns("K:K").Select
ActiveWorkbook.Names.Add Name:="VLR.HOY", RefersToR1C1:="=FFETI080!C11"
ActiveWindow.SmallScroll ToRight:=7
Columns("S:S").Select
ActiveWorkbook.Names.Add Name:="SUC", RefersToR1C1:="=FFETI080!C19"
Sheets("UC2").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(FUENTE,""RED"")"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(FUENTE,""TESORERIA"")"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=SUMIF(SUC,""<>1"",VLR.HOY)"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=SUMIF(SUC,""1"",VLR.HOY)"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:D4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Application.CutCopyMode = False
 Columns("D:D").EntireColumn.AutoFit
Sheets("FFETI080").Select
Range("N1").Select
Selection.Copy
Range("Y1").Select
ActiveSheet.Paste

'MODIFICAR12

Range("A1").Select
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Columns("A:S").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("X1:Y1"), Unique:=True
Columns("X:Y").Select
ActiveWorkbook.Names.Add Name:="BASE_UC2", RefersToR1C1:= _
"=FFETI080!C24:C25"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BASE_UC2", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R1C27", TableName:="Tabla din�mica1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(1, 27).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("FUENTE")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("NIT"), "Cuenta de NIT", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("FUENTE")
.PivotItems("(blank)").Visible = False
End With
Range("AB2:AB3").Select
Selection.Copy
Sheets("UC2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("B2:B4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
Columns("U:BQ").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("UC2").Select
Range("A1").Select

'UC_3

Sheets("FFETI080").Select
 Range("U2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-8]=""N"",""03080"",""03005"")"
Selection.Copy
Range("T2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("V2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-8],nit_459!RC[-20]:R[184]C[-
16],5,0)),0,VLOOKUP(RC[-8],nit_459!RC[-20]:R[184]C[-16],5,0))"
Selection.Copy
Range("U2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Range("V2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("W2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=0,RC[-2],RC[-1])"
Selection.Copy
Range("V2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Range("W2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("U:W").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("U:V").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft

Range("U1").Select
ActiveCell.FormulaR1C1 = "UC_3"

Columns("A:U").Select
Range("U1").Activate
ActiveWorkbook.Names.Add Name:="BASE_UC3", RefersToR1C1:="=FFETI080!C1:C21"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BASE_UC3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R2C23", TableName:="Tabla din�mica1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(2, 23).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_3")
.Orientation = xlRowField
.Position = 1
 End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("Titulo "), "Cuenta de Titulo ", _
xlCount
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields(" Vlr Hoy"), _
"Cuenta de Vlr Hoy", xlCount
ActiveSheet.PivotTables("Tabla din�mica1").DataPivotField.Orientation = _
xlHidden
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields(" Vlr Hoy"), _
"Cuenta de Vlr Hoy", xlCount
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields( _
"Cuenta de Vlr Hoy")
.Caption = "Suma de Vlr Hoy"
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("Titulo ")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("Titulo "), "Cuenta de Titulo ", _
xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_3")
.PivotItems("(blank)").Visible = False
End With
Range("W4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("UC3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
Range("Y4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UC3").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
Range("X4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UC3").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
 'MODIFICAR14

Columns("W:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'MODIFICAR15
Range("X2").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Sheets("UC3").Select
Columns("D:D").Select

Selection.NumberFormat = "[Blue]#,##0.00;[Red]-#,##0.00"

Sheets("FFETI080").Select
Range("N1,U1").Select
Range("U1").Activate
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Range("W1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O12").Select
Application.CutCopyMode = False
Range("BASE_UC3").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("W1:X1"), Unique:=True
Columns("W:X").Select
ActiveWorkbook.Names.Add Name:="DIN_UC3", RefersToR1C1:="=FFETI080!C23:C24"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"DIN_UC3", Version:=xlPivotTableVersion12).CreatePivotTable
TableDestination _
:="FFETI080!R2C26", TableName:="Tabla din�mica1", DefaultVersion:= _
xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(2, 26).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_3")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("NIT"), "Cuenta de NIT", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveWindow.SmallScroll ToRight:=4
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_3")
.PivotItems("(blank)").Visible = False
End With
Range("AA3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("UC3").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
'MODIFICACION16
 Columns("W:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("W2").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Columns("Z:AA").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("Z2").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Sheets("UC3").Select
Range("A1").Select
'UC_4

Sheets("FFETI080").Select
Range("I1:J1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Insert Shift:=xlToRight
Range("I1").Select
ActiveCell.FormulaR1C1 = "Fecha_Corte"
Range("J1").Select
ActiveCell.FormulaR1C1 = "Dias_Venc"
Range("I2").Select
nombredeldia = InputBox("Fecha corte (DD/MM/AAAA)")
ActiveCell.FormulaR1C1 = nombredeldia
Selection.Copy
Range("H2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("J:J").Select
Selection.NumberFormat = "General"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=+RC[-2]-RC[-1]"
Columns("J:J").Select
Selection.NumberFormat = "General"
Range("J2").Select
Selection.Copy
Range("I2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("X1").Select
ActiveCell.FormulaR1C1 = "UC_4"
Range("X2").Select
 ActiveCell.FormulaR1C1 = _
"=IF(RC[-14]<31,""R01"",IF(RC[-14]<61,""R02"",IF(RC[-14]<91,""R03"",IF(RC[-
14]<181,""R04"",IF(RC[-14]<361,""R05"",""R06"")))))"
Range("X2").Select
Selection.Copy
Range("W2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Columns("X:X").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("A:X").Select
Range("X1").Activate
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="BASE_UC4", RefersToR1C1:="=FFETI080!C1:C24"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BASE_UC4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R1C26", TableName:="Tabla din�mica1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(1, 26).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_4")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("Titulo "), "Cuenta de Titulo ", _
xlCount
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields(" Vlr Hoy"), _
"Cuenta de Vlr Hoy", xlCount
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields( _
"Cuenta de Vlr Hoy")
.Caption = "Suma de Vlr Hoy"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_4")
.PivotItems("(blank)").Visible = False
End With
Range("Z3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("UC4").Select
ActiveWindow.SmallScroll Down:=-3
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
 Range("AA3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UC4").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
Range("AB3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UC4").Select
Range("D2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("D2:D20").Select
Selection.NumberFormat = "[Blue]#,##0.00;[Red]-#,##0.00"

Sheets("FFETI080").Select
Range("Z1").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Z2").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("P1,X1").Select
Range("X1").Activate
Selection.Copy
Range("Z1").Select
ActiveSheet.Paste
Range("U7").Select
Application.CutCopyMode = False
Range("BASE_UC4").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("Z1:AA1"), Unique:=True
Columns("A:X").Select
Range("X1").Activate
Columns("Z:AA").Select
Range("AA1").Activate
ActiveWorkbook.Names.Add Name:="DINAM_UC4", RefersToR1C1:= _
"=FFETI080!C26:C27"

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"DINAM_UC4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R1C29", TableName:="Tabla din�mica1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(1, 29).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_4")
.Orientation = xlRowField
.Position = 1
 End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("NIT"), "Cuenta de NIT", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_4")
.PivotItems("(blank)").Visible = False
End With
Range("AD2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("AD2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("UC4").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FFETI080").Select
Range("Z1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("AC1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
'UC_5

Range("Y1").Select
ActiveCell.FormulaR1C1 = "UC_05"
Range("Y2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-12]<5000001,""R01"",IF(RC[-12]<10000001,""R02"",IF(RC[-
12]<20000001,""R03"", IF(RC[-12]<30000001,""R04"", IF(RC[-12]<40000001,""R05"",
IF(RC[-12]<50000001,""R06"",""R07""))))))"
Range("Y2").Select
Selection.Copy
Range("X2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("X:X").Select
Selection.Copy
Columns("Y:Y").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Columns("A:Y").Select
Range("Y1").Activate
ActiveWorkbook.Names.Add Name:="DINAM_UC5", RefersToR1C1:= _
"=FFETI080!C1:C25"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"DINAM_UC5", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="FFETI080!R1C27", TableName:="Tabla din�mica1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(1, 27).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_05")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("Titulo "), "Cuenta de Titulo ", _
xlCount
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields(" Vlr Hoy"), _
"Cuenta de Vlr Hoy", xlCount
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields( _
"Cuenta de Vlr Hoy")
.Caption = "Suma de Vlr Hoy"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_05")
.PivotItems("(blank)").Visible = False
End With
ActiveWindow.SmallScroll ToRight:=2
Range("AA3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("UC5").Select
ActiveSheet.Paste
Sheets("FFETI080").Select
Range("AB3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UC5").Select
Range("C2").Select
ActiveSheet.Paste
Sheets("FFETI080").Select
Range("AC3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UC5").Select
Range("D2").Select
ActiveSheet.Paste
Sheets("FFETI080").Select
Range("AA1").Select

Selection.CurrentRegion.Select
 Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.ClearContents
Columns("Y:Y").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("UC5").Select
Columns("D:D").Select

Selection.NumberFormat = "[Blue]#,##0.00;[Red]-#,##0.00"

Sheets("FFETI080").Select
Range("P1").Select
Range("P1,Y1").Select
Range("Y1").Activate
Selection.Copy
Range("AA1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("DINAM_UC5").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"AA1:AB1"), Unique:=True
Columns("AA:AB").Select
ActiveWorkbook.Names.Add Name:="DATOS_UC5", RefersToR1C1:= _
"=FFETI080!C27:C28"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"FFETI080!R1C27:R1048576C28", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="FFETI080!R1C30", TableName:= _
"Tabla din�mica1", DefaultVersion:=xlPivotTableVersion12
Sheets("FFETI080").Select
Cells(1, 30).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_05")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla din�mica1").AddDataField ActiveSheet.PivotTables
_
("Tabla din�mica1").PivotFields("NIT"), "Cuenta de NIT", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tabla din�mica1").PivotFields("UC_05")
.PivotItems("(blank)").Visible = False
End With
Range("AE2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("UC5").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("FFETI080").Select
'Mofificacion final
Selection.CurrentRegion.Select
Selection.ClearContents
Range("AD1").Select
Selection.CurrentRegion.Select
Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.ClearContents
Range("Z1").Select
ActiveCell.FormulaR1C1 = "Cuadre_Tes."
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 11
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("Z2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC11<180,""R1"",IF(RC11<360,""R2"",IF(RC11<540,""R3"",""R4"")))"
Selection.Copy
Range("Y2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("Y:Y").Select
Selection.Copy
Columns("Z:Z").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

'Cuadre Tesoreria

Sheets("cuadre").Select
Range("F2").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=SUMIF(FFETI080!C[20],RC[-3],FFETI080!C[-1])"
Selection.Copy
Range("F2:F5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F11").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=SUMIF(FFETI080!C[20],RC[-3],FFETI080!C[8])"
Selection.Copy
Range("F11:F14").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("G1").Select
Application.CutCopyMode = False
'Vinculados

'ojo

Sheets("FFETI080").Select
Range("AA1:AB1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-9
Range("AA1").Select
Sheets("FFETI080").Select
Sheets("FFETI080").Copy Before:=Sheets(2)
Sheets("FFETI080 (2)").Select
Sheets("FFETI080 (2)").Name = "Vinculados"
Range("AA1").Select
ActiveCell.FormulaR1C1 = "Vinculados"
With ActiveCell.Characters(Start:=1, Length:=10).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 11
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("AA2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-11],nit_vinculados!C[-26]:C[-24],1,0)"
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-11],nit_vinculados!C[-26]:C[-
24],1,0)),"""",""vinculado"")"
Selection.Copy
Range("Z2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste

Range("AA2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:AA").Select
Range("AA1").Activate
ActiveWorkbook.Names.Add Name:="Base_Vinculado", RefersToR1C1:= _
"=Vinculados!C1:C27"
Columns("AA:AA").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AA1").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC1").Select
ActiveSheet.Paste
 Range("AC2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "vinculado"
Range("W10").Select

'ojo

Range("Base_Vinculado").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _

:=Range("AC1:AC2"), CopyToRange:=Range("AD1"), Unique:=False
Range("AY1:BD1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1:AD1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("AE1").Select
Selection.CurrentRegion.Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
'CIERRE ARCHIVO

Windows("TESORERIA_459.xlsm").Activate
ActiveWindow.Close

End Sub