Excel data validation

%3CLINGO-SUB%20id%3D%22lingo-sub-3202635%22%20slang%3D%22en-US%22%3EExcel%20data%20validation%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3202635%22%20slang%3D%22en-US%22%3E%3CP%3ECan%20anyone%20tell%20me%20how%20to%20increase%20the%20number%20of%20characters%20available%20in%20a%20Data%20Validation%20Input%20Message.%26nbsp%3B%20225%20characters%20is%20too%20few.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3202635%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EBI%20%26amp%3B%20Data%20Analysis%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3205918%22%20slang%3D%22en-US%22%3ERe%3A%20Excel%20data%20validation%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3205918%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1315344%22%20target%3D%22_blank%22%3E%40malwhitemwebcoza%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22%22%3E%3CSPAN%20class%3D%22%22%3E%3CSPAN%3ETranslated%20into%20English%20and%20is%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FSPAN%3E%20from%20%3CA%20title%3D%22Claus%20Busch%22%20href%3D%22https%3A%2F%2Fanswers.microsoft.com%2Fde-de%2Fprofile%2Ffd696a47-06fe-45df-ae54-45c1b72bfc1f%22%20target%3D%22_blank%22%20rel%3D%22noopener%20noreferrer%22%3EClaus%20Busch%20%3C%2FA%3E%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Fanswers.microsoft.com%2Fde-de%2Fmsoffice%2Fforum%2Fall%2Ftextl%25C3%25A4nge-der-eingabemeldung-beeinflussen%2F978be687-83cd-4710-8b39-5d43d1b38872%22%20target%3D%22_self%22%20rel%3D%22noopener%20noreferrer%22%3E%3CSPAN%20class%3D%22%22%3E%3CSPAN%20class%3D%22%22%3E%3CSPAN%3EInfluence%20the%20text%20length%20of%20the%20input%20message%3F%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FSPAN%3E%20%3C%2FA%3E%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22%22%3E%3CSPAN%20class%3D%22%22%3E%3CSPAN%3ETHIS%20IS%20ABOUT%20THE%20KNOWN%20255-CHARACTER%20VALIDITY%20CRITERIA%20PROBLEM%20IN%20EXCEL.%20%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20ShapeInsert()%0ADim%20shp%20As%20Shape%0ADim%20myStr%20As%20String%0A%0AmyStr%20%3D%20%5BA20%5D%20%26amp%3B%20%5BA21%5D%20%26amp%3B%20%5BA22%5D%0A%0A%0AWithRange(%22B4%22)%0A%20%20%20%20If%20Len(myStr)%20%26gt%3B%20255%20Then%0A%20%20%20%20%20%20%20%20%20%20Set%20shp%20%3D%20ActiveSheet.Shapes.AddShape(Type%3A%3D137%2C%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Left%3A%3D.Left%2C%20Top%3A%3D.Top%2C%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Width%3A%3D40%2C%20Height%3A%3D40)%0A%20%20%20%20%20%20%20%20%20%20shp.Name%20%3D%20%22Leg%22%20%26amp%3B%20.Address(0%2C%200)%0A%20%20%20%20%20%20%20%20%20%20shp.TextFrame.Characters.Text%20%3D%20myStr%0A%20%20%20%20%20%20%20%20%20%20shp.TextFrame.AutoSize%20%3D%20True%0A%20%20%20%20%20%20%20%20%20%20shp.Left%20%3D%20.Offset(0%2C%201).Left%0A%20%20%20%20%20%20%20%20%20%20shp.Top%20%3D%20.Offset(1%2C%200).Top%0A%20%20%20%20%20%20%20%20%20%20shp.Visible%20%3D%20False%0A%20%20%20%20else%0A%20%20%20%20%20%20%20With%20.Validation%0A%20%20%20%20%20%20%20%20%20%20.Delete%0A%20%20%20%20%20%20%20%20%20%20.Add%20Type%3A%3DxlValidateInputOnly%2C%20AlertStyle%3A%3DxlValidAlertStop%0A%20%20%20%20%20%20%20%20%20%20.InputMessage%20%3D%20myStr%0A%20%20%20%20%20%20%20%20%20%20.ShowInput%20%3D%20True%0A%20%20%20%20%20%20%20End%20With%0AEnd%20If%0AEnd%20With%0Aend%20sub%20%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHope%20I%20was%20able%20to%20help%20you%20with%20this%20info.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fexcel-blog%2Fmeet-niko-chatzoudis-excel-forum-contributor%2Fba-p%2F2941385%22%20target%3D%22_blank%22%3ENikolinoDE%3C%2FA%3E%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

Can anyone tell me how to increase the number of characters available in a Data Validation Input Message.  225 characters is too few.

1 Reply

@malwhitemwebcoza 

Translated into English and is from Claus Busch

Influence the text length of the input message?

THIS IS ABOUT THE KNOWN 255-CHARACTER VALIDITY CRITERIA PROBLEM IN EXCEL.

 

Sub ShapeInsert()
Dim shp As Shape
Dim myStr As String

myStr = [A20] & [A21] & [A22]


WithRange("B4")
    If Len(myStr) > 255 Then
          Set shp = ActiveSheet.Shapes.AddShape(Type:=137, _
             Left:=.Left, Top:=.Top, _
                Width:=40, Height:=40)
          shp.Name = "Leg" & .Address(0, 0)
          shp.TextFrame.Characters.Text = myStr
          shp.TextFrame.AutoSize = True
          shp.Left = .Offset(0, 1).Left
          shp.Top = .Offset(1, 0).Top
          shp.Visible = False
    else
       With .Validation
          .Delete
          .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop
          .InputMessage = myStr
          .ShowInput = True
       End With
End If
End With
end sub 

 

 

Hope I was able to help you with this info.

 

NikolinoDE

I know I don't know anything (Socrates)