Recent content by FrancisM

  1. FrancisM

    Excel Message box called if 1 of 3 options is entered.

    Problem solved. Here is the finished code: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Reminds the user to enter the carryover name into the next FY listing. Dim MsgBoxResult As Long If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("J4:J17")) Is Nothing Then...
  2. FrancisM

    Excel Message box called if 1 of 3 options is entered.

    @AmJiBhaiI I had the code working for the end of year referrals. However, after I modified the message, it gave me a runtime error '13 message (Type mismatch) on MsgBoxResult = MsgBox("Is the Veteran meeting again? " & vbCr, _ "" & vbCr & _ "Click NO for anything other than YES"...
  3. FrancisM

    Excel Message box called if 1 of 3 options is entered.

    Sorry. I should have known better. I think my previous attempts just made it more complicated. Heading Titles: A (None); B ( Name); C (last 4); D (Contact); E (Information); F (Contacted-CPRS); G (Check In); H (Is this a Follow up?); I (CPRS); J (Is a follow up requested?) Both the code for the...
  4. FrancisM

    Excel Message box called if 1 of 3 options is entered.

    @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...
  5. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    I am going to start a new post. I think this one is too confusing.
  6. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    It only runs if there is "Yes" I just learned that it goes right to Call Referals & does not run the code below. 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...
  7. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    @AmjiBhai thank you it does run. This code is going to be placed on the last few work sheets if the work book. Would it be possible to modify the code. I still want it run when a entry is made in column B, & to run when "Yes" is in Column J.
  8. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    I tried it on a sample file & I received this error "Compile error -Variable not defined" on addr = If possible I need to have 2 separate messages. I am not able to upload a sample, my employer does not allow zip files. The best I can offer is a PDF print screen of the worksheet. Hopes that helps
  9. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    I have no problem getting it to run when there is just the working code. The problem is when there is a second batch of similar code & the range is J4:J17 & J:J instead if B$:B17 & B:B.
  10. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    I did what you suggested, & when I debugged, there was no error message, also it appeared not to run. Here is the code under referrals: Sub Referals() Dim Msg As String, Ans As Variant Msg = "Would you like to open the Referal folder?" Ans = MsgBox(Msg, vbYesNo...
  11. FrancisM

    Excel Need assistance with modifying a Duplicate declaration.

    The difference between the working code & the new code is the cell range. In the working cell the Range is B4:B17, & B:B. Here is the working code: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Reminds the user to enter the carryover name into the current FY listing...
  12. FrancisM

    Excel Msgbox runing beyond posted cell range.

    Problem solved. A friend pointed out that I left out a cell range. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Reminds the user to enter the carryover name into the current FY listing. Dim MsgBoxResult As Long If Target.Count > 1 Then Exit Sub If Intersect(Target...
  13. FrancisM

    Excel Msgbox runing beyond posted cell range.

    I have code that runs when range "B:B" changes. However, when there is any change on the worksheet, it runs. I am trying to limit it to "B:B". Here is the code: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Reminds the yser to enter the carryover name into the current FY...
  14. FrancisM

    Excel Code to run ActiveWindow.View in normal view, only runs manually.

    Ok. Like I did previously. When I was adding your code, I saw that there was 1 sheet that had this code .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = True Do you have any advise?
  15. FrancisM

    Excel Code to run ActiveWindow.View in normal view, only runs manually.

    @AmjiBhai You are brilliant. That was the problem ( old code on a sheet). Now I will wok on finding a common cell, for all the sheets.
Top