- Dec 13, 2017
- Reaction score
@AmjiBhai I think that 3 separate batches of code are required. 1 for beginning of the Fiscal Year (Sub_New_FY_Referrals - works fine ); 1 for the normal Referrals (Referals - misspelled on purpose); & End of Year (FY_End_Referrals). I posted the screen shot sample of the FY_End_Referrals. I need the msg box to fire when any of the entries shown are in a range J4:J17. Here is a sample of the message that is common to all 3. I will continue working on the normal referrals tomorrow.
I am sorry I put you through so much trouble.
MsgBoxResult = MsgBox("Is the Veteran a carryover from last year or a new client? " & vbCr, _ 'Is the Veteran a carryover from last year or a new client (changes depending on which batch it is) vbYesNo, "Vocational Services - OVR " & ActiveSheet.Name) If MsgBoxResult = vbNo Then Exit Sub ElseIf MsgBoxResult = vbYes Then If WorksheetFunction.CountA(Range("B:B")) <> 0 Then MsgBox " Check to verify Veteran data is entered in FY ## Referrals" & vbCr & _ " It's critical that Carryover data is captured. " & vbCr & _ "" & vbCr & _ " Please enter the name in walk in list if not on either last " & vbCr & _ " year's or this year's consult list! " & vbCr & _ "" & vbCr & _ " Enter veteran as a walk in, if there was a consult from last year and " & vbCr & _ " enter the SC percent" & vbCr & _ "" & vbCr & _ " You have entered " & Cells(Target.Row, 2) & " in cell " & Target.Address, vbInformation, "Vocational Services - Career Link" & ActiveSheet.Name