Excel 2010 VBA How to lookup a value in multiple sheets? - vba

Question

I have an excel file with 14 worksheets, i need to lookup for a value in different columns of each sheet, and if its found, return the name of the sheet where the value was found in a list on a summary sheet.
I have tried with if and vlookup function but i can´t find a proper result, also i tried with pivot table but since i have multiple sheets its not working for me.
I am hoping that somebody helps me with a bit of VBA coding to solve this issue.
I am very newbie at coding and VBA and still i don´t understand all of it, so i haven´t tried to code myself, sorry for that.

Answer 1

Try using the following formula functions to create a solution. If you can't come up with something that works, post what you have and we can work through it.
ADDRESS(row_num, column_num, [abs_num], [a1], [sheet_text])
VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)
IF(logical_test,value_if_true,value_if_false)
Also consider using Named Ranges
Let me know what you come up with :)

Answer 2

Hope this helps. :)
Sub findStuff()
Dim ws As Worksheet
Dim strWhat As String
Dim rngSearch As Range
Dim rngFound As String
Dim i As Integer
strWhat = "Raspberry"
For Each ws In Worksheets
Set rngSearch = ws.Cells.Find(What:=strWhat)
If Not rngSearch Is Nothing Then
i = i + 1
If i = 1 Then
rngFound = rngSearch.Worksheet.Name
Else
rngFound = rngFound & ", " & rngSearch.Worksheet.Name
End If
End If
Next ws
MsgBox "'" & strWhat & "' found on the following worksheet(s): " & rngFound & "."
End Sub