MACROS. EXCEL

Sub Consulta_Cliente()

'

' Consulta_Cliente Macro

'

'

Sheets("ExpediciónSeguros").Select

Range("b7").Select

cliente = InputBox("Digite el nombre del cliente que desee consultar")

ActiveSheet.Range("$A$6:$K$216").AutoFilter Field:=3, Criteria1:=cliente + "*"

End Sub

Sub quitar_filtros()

'

' quitar_filtros Macro

'

'

Selection.AutoFilter

Selection.AutoFilter

Selection.AutoFilter

End Sub

Sub Consulta_Marca()

'

' Consulta_Marca Macro

'

'

Sheets("ExpediciónSeguros").Select

Range("e7").Select

marca = InputBox("Digite el nombre de la marca que desee consultar")

ActiveSheet.Range("$A$6:$K$216").AutoFilter Field:=5, Criteria1:=marca + "*"

End Sub

Sub Consulta_Marca_Clase()

'

' Consulta_Marca_Clase Macro

'

'

Sheets("ExpediciónSeguros").Select

Range("e7").Select

Range("f7").Select

marca = InputBox("Digite el nombre de la marca que desee consultar")

clase = InputBox("Digite el nombre de la clase que desee consultar")

ActiveSheet.Range("$A$6:$K$216").AutoFilter Field:=5, Criteria1:=marca + "*"

ActiveSheet.Range("$A$6:$K$216").AutoFilter Field:=6, Criteria1:=clase + "*"

End Sub

Sub Subtotal_marca()

'

' Subtotal_marca Macro

'

'

Range("E7").Select

ActiveWorkbook.Worksheets("ExpediciónSeguros").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("ExpediciónSeguros").Sort.SortFields.Add2 Key:= _

Range("E7:E216"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _

:=xlSortNormal

With ActiveWorkbook.Worksheets("ExpediciónSeguros").Sort

.SetRange Range("A7:K216")

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(11), _

Replace:=True, PageBreaks:=False, SummaryBelowData:=True

ActiveSheet.Outline.ShowLevels RowLevels:=2

End Sub

Sub quitar_subtotal()

'

'

...