Nov 29 2020 04:11 AM
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
Nov 29 2020 04:33 AM
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.