excel 2010 want drop down and the ability to search

%3CLINGO-SUB%20id%3D%22lingo-sub-1938535%22%20slang%3D%22en-US%22%3Eexcel%202010%20want%20drop%20down%20and%20the%20ability%20to%20search%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1938535%22%20slang%3D%22en-US%22%3E%3CP%3EHi%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EMy%20customer%20currently%20work%20on%20Office%202010%20and%20she%20does%20not%20want%20to%20work%20any%20later%20versions%3A%3C%2FP%3E%3CP%3EThe%20challenge%20I%20have%20is%20that%20I%20have%20created%20a%20data%20validation%20and%20with%20some%20VBA%20have%20made%20it%20to%20auto%20populate%20cells%20but%20I%20also%20need%20the%20search%20function%20as%20scrolling%20down%202200%20customers%20will%20take%20a%20heck%20lot%20of%20time%20is%20there%20a%20way%20to%20do%20this%20with%20the%20current%20version%20of%20office%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ERegards%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1938535%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1938588%22%20slang%3D%22de-DE%22%3ESubject%3A%20excel%202010%20want%20drop%20down%20and%20the%20ability%20to%20search%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1938588%22%20slang%3D%22de-DE%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F884724%22%20target%3D%22_blank%22%3E%40David0630%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EExcel%20VBA%20text%20box%20scroll%20down%20automatically%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Fstackoverrun.com%2Fde%2Fq%2F12332075%22%20target%3D%22_blank%22%20rel%3D%22nofollow%20noopener%20noreferrer%22%3Ehttps%3A%2F%2Fstackoverrun.com%2Fde%2Fq%2F12332075%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EOr%20something%20totally%20simple%20from%20the%20internet.%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EOption%20Explicit%0A%0ASub%20MultiLino%20()%0A%20%20%20%20Dim%20wks%20As%20Worksheet%0A%20%20%20%20Dim%20rng%20As%20Range%0A%20%20%20%20Dim%20sAddress%20As%20String%2C%20sFind%20As%20String%0A%20%20%20%20sFind%20%3D%20InputBox%20(%22Please%20enter%20search%20term%3A%22)%0A%20%20%20%20For%20Each%20wks%20In%20Worksheets%0A%20%20%20%20%20%20%20Set%20rng%20%3D%20wks.Cells.Find%20(_%0A%20%20%20%20%20%20%20%20%20%20what%3A%20%3D%20sFind%2C%20_%0A%20%20%20%20%20%20%20%20%20%20lookat%3A%20%3D%20xlWhole%2C%20_%0A%20%20%20%20%20%20%20%20%20%20LookIn%3A%20%3D%20xlFormulas)%0A%20%20%20%20%20%20%20%20%20%20If%20Not%20rng%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20sAddress%20%3D%20rng.Address%0A%20%20%20%20%20%20%20%20%20%20%20%20%20do%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Application.Goto%20rng%2C%20True%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20MsgBox%20(_%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20prompt%3A%20%3D%20%22Next%22%2C%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Buttons%3A%20%3D%20vbYesNo%20%2B%20vbQuestion%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20)%20%3D%20vbNo%20Then%20Exit%20Sub%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Set%20rng%20%3D%20Cells.FindNext%20(after%3A%20%3D%20ActiveCell)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20rng.Address%20%3D%20sAddress%20Then%20Exit%20Do%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Loop%0A%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20Next%20wks%0A%20%20%20%20%20MsgBox%20prompt%3A%20%3D%20%22No%20new%20reference!%22%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20would%20be%20happy%20to%20know%20if%20I%20could%20help.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENikolino%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E*%20Kindly%20Mark%20and%20Vote%20this%20reply%20if%20it%20helps%20please%2C%20as%20it%20will%20be%20beneficial%20to%20more%20community%20members%20reading%20here.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

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

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