| Descricao: |
 Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.
Essas códigos(Macros) do Aplicativo Microsoft Excel VBA(Visual Basic Application), filtra determinados dados, e mostra o layout de impressão
dos dados filtrados, observe que fiz vários macros para cada critério, mas isso poderia ser bem mais simples, se voce indicasse um valor de uma célula.
Sub Filtrando_Funcionarios_senhores()
Sheets("Funcionários").Select
Selection.AutoFilter Field:=2, Criteria1:="Senhor"
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=2
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=2
Sheets("Principal").Select
End Sub
Sub Filtrando_Funcionarios_senhoras()
Sheets("Funcionários").Select
Selection.AutoFilter Field:=2, Criteria1:="Senhora"
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=2
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=2
Sheets("Principal").Select
End Sub
Sub Filtrando_Funcionarios_senhoritas()
Sheets("Funcionários").Select
Selection.AutoFilter Field:=2, Criteria1:="Senhorita"
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=2
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=2
Sheets("Principal").Select
End Sub
Sub Filtrando_Jardineiro()
'função do funcionário na empresa.
Dim vFUNCAO As String
Application.ScreenUpdating = False
Sheets("Funcionários").Select
vFUNCAO = InputBox(prompt:="Digite um critério para Funções", _
Title:="Saberexcel - Filtrando Funcionarios", Default:="Jardineiro")
If vFUNCAO = ("") Then Exit Sub 'caso seja anulada a busca na inputbox
Selection.AutoFilter Field:=5, Criteria1:=vFUNCAO
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=5
Sheets("Principal").Select
Application.ScreenUpdating = True
End Sub
Sub Filtrando_Motorista()
'função do funcionário na empresa.
Dim vFUNCAO As String
Application.ScreenUpdating = False
Sheets("Funcionários").Select
vFUNCAO = InputBox(prompt:="Digite um critério", _
Title:="Saberexcel - Filtrando Funcionarios", Default:="Motorista")
If vFUNCAO = ("") Then Exit Sub 'caso seja anulada a busca na inputbox
Selection.AutoFilter Field:=5, Criteria1:=vFUNCAO
ActiveWindow.SelectedSheets.PrintPreview
Selection.AutoFilter Field:=5
Sheets("Principal").Select
Application.ScreenUpdating = True
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
|