Sub mayor()
Application.screenupdating = False
Criterio Sheets(“MENU”).Range( “C18”).value
Sheets(MAYORES ).Select
Filalibre – Sheets(“MAYORES”). Range(“A1048576”) . End (xlUp) . RoW
Mpla
Sheets ( “MAYORES”) . Range (“A11”, cells(filalibre, 18)).clear
Sheets(DIARIO ).select
Range( D3”).select
Activesheet . Listobjects (“tablal ibroDiario”) . Range . AutoF1lter Field ; m4, -
Criterlal: =Criterio
Range Al).Seiect
Range(Selection, Selection . End (xlDown)).Select
Range(Selection, Select1on. End (xlToRight)).select
Selection.copy
Sheets(MAYORES).Select
Range(A16).Pastespeclal xIPastevalues
Appi1cation.cutcopyMode False
Selection.5orders (xiDiagonalDown) . Linestyle xlNone
Selection.5orders (XlD1agonalup).Linestyle = xlNone
With Selection. Borders (xlEdgeleft)
Inestyle xlcontinuous
.ColorIndex
.T2ntAndShade 8
.Weight= xlThin
End
With
With Selection.Borders(xlEdgeTop)
Linestyle = xiContinuous
.ColorIndex =
TintAndShade
.Weight = xllhin
End
With
With Selection . Borders (xlEdgeBottom)
Lanestyle = xlContinuous
ColorIndex = 6
TintAndshade =
.weight xlThinn
Nd with
With Selection . Borders (xlEdgeRight)
Linestylexicontinuous
ColorIndex =
Tintandshade e
.We1ght = xlThin
With
Na
With selection . Borders (xlInsideVert ical)
L2nestyle = xlcontinuous
.colorIndex
12ntandshade
Weight xltnin
End with
With Selection . Borders (xl InsideHori zontal)
LineStyle = xlcontinuous
ColorIndex
TintAndshade
