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

...