Data Validation - Is there a way to surpass the 255 characters limit?

I think you would do better to start a new thread for this new topic - that will enlarge your potential solution-provider population.

Dear Bernie, I hope I can bother you again with my questions. I was watching some videos on youtube, and I had created a search engine after some tutorials. What I found interesting while watching one of the videos is that one of them had included a “gadget” icon inside the search box just like the below:

I was wondering if it was possible in any way to do this with some coding? Also, I wanted to ask you if you are experienced if I wanted to create a text inside the search box which would say “Search”, but would disappear once clicked on, mainly just like any search engine found online (i.e. youtube, google, etc.), just like the picture below:

While I was searching for the corresponding codes, I found the below, and I thought you could find them helpful, if they were to be relevant to my question, if you could spare a minute to solve this “new” issue for me.

If i can hassle you with this in your free time, while making this search engine more user-friendly and dynamic, I'd very much appreciate it brother. I tried upload the sheet, but it seems like OneDrive is down at the moment, Its the same old "GE Courses Description" in case you want to use it, I beleive i had the search engine available in the last link I had sent you.

Again and again, thank you very much my friend, and please excuse how annoying i'm becoming.

Sub SearchBox()

'PURPOSE: Filter Data on User-Determined Column & Text/Numerical value

'SOURCE: www.TheSpreadsheetGuru.com

Dim myButton As OptionButton

Dim SearchString As String

Dim ButtonName As String

Dim sht As Worksheet

Dim myField As Long

Dim DataRange As Range

Dim mySearch As Variant

'Load Sheet into A Variable

  Set sht = ActiveSheet

'Unfilter Data (if necessary)

  On Error Resume Next

    sht.ShowAllData

  On Error GoTo 0

'Filtered Data Range (include column heading cells)

  Set DataRange = sht.Range("A4:E31") 'Cell Range

  'Set DataRange = sht.ListObjects("Table1").Range 'Table

'Retrieve User's Search Input

  mySearch = sht.Shapes("UserSearch").TextFrame.Characters.Text 'Control Form

  'mySearch = sht.OLEObjects("UserSearch").Object.Text 'ActiveX Control

  'mySearch = sht.Range("A1").Value 'Cell Input

'Determine if user is searching for number or text

  If IsNumeric(mySearch) = True Then

    SearchString = "=" & mySearch

  Else

    SearchString = "=*" & mySearch & "*"

  End If

'Loop Through Option Buttons

  For Each myButton In sht.OptionButtons

    If myButton.Value = 1 Then

      ButtonName = myButton.Text

      Exit For

    End If

  Next myButton

'Determine Filter Field

  On Error GoTo HeadingNotFound

    myField = Application.WorksheetFunction.Match(ButtonName, DataRange.Rows(1), 0)

  On Error GoTo 0

'Filter Data

  DataRange.AutoFilter _

    Field:=myField, _

    Criteria1:=SearchString, _

    Operator:=xlAnd

'Clear Search Field

  sht.Shapes("UserSearch").TextFrame.Characters.Text = "" 'Control Form

  'sht.OLEObjects("UserSearch").Object.Text = "" 'ActiveX Control

  'sht.Range("A1").Value = "" 'Cell Input

Exit Sub

'ERROR HANDLERS

HeadingNotFound:

  MsgBox "The column heading [" & ButtonName & "] was not found in cells " & DataRange.Rows(1).Address & ". " & _

    vbNewLine & "Please check for possible typos.", vbCritical, "Header Name Not Found!"

End Sub

ADDING A CLEAR BUTTON (IF doable also, which would clear out the contents in the search box):

Sub ClearFilter()

'PURPOSE: Clear all filter rules

'Clear filters on ActiveSheet

  On Error Resume Next

    ActiveSheet.ShowAllData

  On Error GoTo 0

End Sub

Yes - anytime Excel VBA makes a change to a worksheet, the undo/redo stack is cleared.  That is one small downside of automating some of these processes.

For an unknown reason, I am not able to undo nor redo anything on the latest excel you had shared with me, which worked perfectly (VBA wise)? Do you have any idea why is that?

I'm always happy to help out. I hope that your problems never reappear - for your sake, not mine  ;-)