-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathselecionar_Todos().vba
91 lines (53 loc) · 2.14 KB
/
selecionar_Todos().vba
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Sub selecionar_Todos()
'
' Select all
'
Sheets("1103").Range("B:F").AutoFilter Field:=5 'FILTER PRIORITY VIEW ALL
Sheets("1109").Range("B:F").AutoFilter Field:=5 'FILTER PRIORITY VIEW ALL
Call moverMenu
End Sub
Sub Selecionar_Vazios()
Sheets("1103").Range("B:F").AutoFilter Field:=5, Criteria1:="=" 'FILTER PRIORITY VIEW EMPTY
Sheets("1109").Range("B:F").AutoFilter Field:=5, Criteria1:="=" 'FILTER PRIORITY VIEW EMPTY
Call moverMenu
End Sub
Sub prioridade_0()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="0" 'FILTER PRIORITY ZERO
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="0" 'FILTER PRIORITY ZERO
Call moverMenu
End Sub
Sub prioridade_1()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="1" 'FILTER PRIORITY ONE
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="1" 'FILTER PRIORITY ONE
Call moverMenu
End Sub
Sub prioridade_2()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="2" 'FILTER PRIORITY TWO
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="2" 'FILTER PRIORITY TWO
Call moverMenu
End Sub
Sub prioridade_3()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="3" 'FILTER PRIORITY THREE
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="3" 'FILTER PRIORITY THREE
Call moverMenu
End Sub
Sub prioridade_4()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="4" 'FILTER PRIORITY FOUR
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="4" 'FILTER PRIORITY FOUR
Call moverMenu
End Sub
Sub prioridade_5()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="5" 'FILTER PRIORITY FIVE
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="5" 'FILTER PRIORITY FIVE
Call moverMenu
End Sub
Sub prioridade_X()
Sheets("1103").Range("B:F").AutoFilter Field:=4, Criteria1:="??" 'FILTER PRIORITY URGENT
Sheets("1109").Range("B:F").AutoFilter Field:=4, Criteria1:="??" 'FILTER PRIORITY URGENT
Call moverMenu
End Sub
Sub prioridade_tds()
Sheets("1103").Range("B:F").AutoFilter Field:=4 'FILTER PRIORITY ALL FILTERS
Sheets("1109").Range("B:F").AutoFilter Field:=4 'FILTER PRIORITY ALL FILTERS
Call moverMenu
End Sub