-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathVLookUpFunction_AddtionalForms
84 lines (48 loc) · 1.46 KB
/
VLookUpFunction_AddtionalForms
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
Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub ClientFolderNameTextBox_Change()
ClientFolderName = ClientFolderNameTextBox
End Sub
Private Sub InsertClientNameGuide_Click()
Call MsgBox("Example:" & Chr(10) & Chr(10) & "Folder Path: Z:\FS100VOL1\SPS_Team\Bonitz, Inc\Stop Loss\2019\Data And All Communications\Working Data\Claims\Claimant 2017-2018 W.xlsx" & Chr(10) & Chr(10) & "Client name: Bonitz, Inc", vbOKOnly, "Help")
End Sub
Private Sub InsertYearGuide_Click()
Call MsgBox("Example:" & Chr(10) & Chr(10) & "Folder Path: Z:\FS100VOL1\SPS_Team\Bonitz, Inc\Stop Loss\2019\Data And All Communications\Working Data\Claims\Claimant 2017-2018 W.xlsx" & Chr(10) & Chr(10) & "Year: 2019", vbOKOnly, "Help")
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub OK_Click()
If IsEmpty(ClientFolderName) Then
Call MsgBox("You did not provide a Client Folder Name", vbOKOnly, "Error: 152")
ElseIf IsEmpty(Year) Then
Call MsgBox("You did not provide a Year", vbOKOnly, "Error: 153")
Else
Unload Me
End If
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub YearTextBox_Change()
Year = YearTextBox
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Public Sub No_Click()
bool = True
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Public Sub Yes_Click()
bool = False
Unload Me
End Sub