Share via

Excel: Data Validation Input Message using VBA no longer works.

Anonymous
2017-06-21T23:12:21+00:00

I just converted to Office 365 on Windows 10.  A macro that I've been using to populate cells with a Data Validation Input Message no longer works.  It doesn't fail, but the input message does not get set.  If I enter the message manually using Excel's Data menu, it works fine.  Is there a known bug and fix for this?  Thanks in advance for your help.

Microsoft 365 and Office | Excel | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments

8 answers

Sort by: Most helpful
  1. Anonymous
    2017-06-22T21:12:26+00:00

    I've reached out to the Data Validation PM to see if there's a known bug in your build.

    Was this answer helpful?

    0 comments No comments
  2. Anonymous
    2017-06-22T17:02:47+00:00

    I'm currently at Version 1609 (Build 7369.2130).  I'm setup for automatic updates.  I'll go ahead and run the "Update Now" just to make sure there isn't something in the wings.  The update has completed and now I'm at Version 1701 (Build 7766.2092).  I restarted my PC and tried the macro again.  I still don't get the Input Title and Message after running the macro.  Very odd.  Do you know if I now have the most current version/build?

    Was this answer helpful?

    0 comments No comments
  3. Anonymous
    2017-06-22T16:23:45+00:00

    Hmmm, the Title and Message show up fine for me.

    Can you go to File > Account > Update Options and make sure you're current?

    Was this answer helpful?

    0 comments No comments
  4. Anonymous
    2017-06-21T23:46:56+00:00

    Thanks SmittyPro1.  Here is an example.  This code is just a recorded macro of the key strokes.  When I play it back, nothing shows up in the Input Message. 

    Range("D9").Select

    With Selection.Validation

    .Delete

    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _

    :=xlBetween

    .IgnoreBlank = True

    .InCellDropdown = True

    .InputTitle = "Test DV Title"

    .ErrorTitle = ""

    .InputMessage = "Test DV Input Msg"

    .ErrorMessage = ""

    .ShowInput = True

    .ShowError = True

    End With

    Was this answer helpful?

    0 comments No comments
  5. Anonymous
    2017-06-21T23:16:30+00:00

    Can you post your code?

    Was this answer helpful?

    0 comments No comments