-
Notifications
You must be signed in to change notification settings - Fork 0
/
Planilha1.cls
71 lines (47 loc) · 1.83 KB
/
Planilha1.cls
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
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "Planilha1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Not Intersect(Target, Range("A1")) Is Nothing Then
category_api = Cells(1, 1).Value
If category_api = "despesas" Then
Cells(2, 1) = "anoDotacao"
Cells(3, 1) = "mesDotacao"
Cells(4, 1) = "codEmpresa"
Cells(5, 1) = "codOrgao"
Cells(6, 1) = "codUnidade"
Cells(7, 1) = "codFuncao"
Cells(8, 1) = "codSubFuncao"
Cells(9, 1) = "codProjetoAtividade"
Cells(10, 1) = "codPrograma"
Cells(11, 1) = "codCategoria"
Cells(12, 1) = "codGrupo"
Cells(13, 1) = "codModalidade"
Cells(14, 1) = "codElemento"
Cells(15, 1) = "codFonteRecurso"
ElseIf category_api = "unidades" Then
Cells(2, 1) = "codUnidade"
Cells(3, 1) = "codOrgao"
Cells(4, 1) = "anoExercicio"
Range("A5:A15") = ""
ElseIf category_api = "orgaos" Then
Cells(2, 1) = "codOrgao"
Cells(3, 1) = "anoExercicio"
Cells(4, 1) = "numPagina"
Cells(5, 1) = "codEmpresa"
Range("A6:A15") = ""
ElseIf category_api = "liquidacoes" Then
Cells(2, 1) = "codEmpenho"
Cells(3, 1) = "anoEmpenho"
Cells(4, 1) = "codEmpresa"
Range("A5:A15") = ""
End If
End If
End Sub