Forum Discussion

David0630's avatar
David0630
Copper Contributor
Nov 29, 2020

excel 2010 want drop down and the ability to search

Hi

 

My customer currently work on Office 2010 and she does not want to work any later versions:

The challenge I have is that I have created a data validation and with some VBA have made it to auto populate cells but I also need the search function as scrolling down 2200 customers will take a heck lot of time is there a way to do this with the current version of office

 

Regards

1 Reply

  • NikolinoDE's avatar
    NikolinoDE
    Platinum Contributor

    David0630 

     

    Excel VBA Textfeld scrollen nach unten automatisch

    https://stackoverrun.com/de/q/12332075

     

    Or something totally simple from the internet.

    Option Explicit
    
    Sub MultiLino ()
        Dim wks As Worksheet
        Dim rng As Range
        Dim sAddress As String, sFind As String
        sFind = InputBox ("Please enter search term:")
        For Each wks In Worksheets
           Set rng = wks.Cells.Find (_
              what: = sFind, _
              lookat: = xlWhole, _
              LookIn: = xlFormulas)
              If Not rng Is Nothing Then
                 sAddress = rng.Address
                 do
                    Application.Goto rng, True
                    If MsgBox (_
                       prompt: = "Next", _
                       Buttons: = vbYesNo + vbQuestion _
                       ) = vbNo Then Exit Sub
                    Set rng = Cells.FindNext (after: = ActiveCell)
                    If rng.Address = sAddress Then Exit Do
                 Loop
             End If
         Next wks
         MsgBox prompt: = "No new reference!"
    End Sub

     

    I would be happy to know if I could help.

     

    Nikolino

    I know I don't know anything (Socrates)

     

    * Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.

     

Resources