When you have large amount of data in multiple sheets and you want to get the search results dynamically as you type , you can add a user form in excel vba and create a search box as below.

Display search result in listbox from all sheets as you type

To create this search box, you can create a userform with following objects.

Add below code to userform to get the search results in listbox as you type in the textbox. This will give the results from all the sheets available in the workbook. This will also show the sheet name and the cell reference in which the search result is found in the workbook.

Private Sub TextBox1_Change()

Dim searchkey As Variant
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim cvalue As Variant


searchkey = TextBox1.Value
Set wb = ThisWorkbook

Me.ListBox1.Clear

For Each ws In wb.Worksheets

Set rng = ws.UsedRange

For Each cvalue In rng

If InStr(1, cvalue, searchkey, vbTextCompare) > 0 Then
On Error Resume Next
ListBox1.AddItem cvalue
ListBox1.List(ListBox1.ListCount - 1, 1) = ws.Name
ListBox1.List(ListBox1.ListCount - 1, 2) = cvalue.Address

End If

Next cvalue

Next ws

End Sub

To initiate this userform, you can add a shape in main sheet and link that to userform with below small code.

Sub Searchbox()

UserForm1.Show


End Sub

You will get the search results in the list box with sheet name and the cell reference as below when you search the word in the searchbox. This will update dynamically when you type in the textbox.

You can download the file.

One Response

Leave a Reply

Your email address will not be published. Required fields are marked *