eksel haku

Tässä olis makro joka etsii merkkijonon, elikkä jos haku on jari löytää solun jossa on Jari Karhu.

Sub Makro1()

p = InputBox("mitä haetaan")

Sheets("Taul1").Select
Set C = Cells.Find(p, [A1], xlValues)
If C Is Nothing Then GoTo A
If MsgBox(C.Address, vbOKOnly, _
Worksheets(1).Name) = vbOK Then GoTo D
A:
Sheets("Taul2").Select
Set C = Cells.Find(p, [A1], xlValues)
If C Is Nothing Then GoTo B
If MsgBox(C.Address, vbOKOnly, _
Worksheets(2).Name) = vbOK Then GoTo D
B:
Sheets("Taul3").Select
Set C = Cells.Find(p, [A1], xlValues)
If C Is Nothing Then
If MsgBox("EI LÖYDY", vbOKOnly, _
p) = vbOK Then GoTo D
End If
If MsgBox(C.Address, vbOKOnly, _
Worksheets(3).Name) = vbOK Then GoTo D
D:
End Sub

Ei varmaan ole sitä mitä halusit, mutta sovella siitä.

Tässä makro joka aktivoi löytämänsä solun ja kysyy miten jatketaan.

Sub Makro1()

p = InputBox("mitä haetaan")
Sheets("Taul1").Select
X:
On Error GoTo A
Cells.Find(p, ActiveCell, xlValues).Activate
C = MsgBox("Ei = haetaan lisää tästä taulukosta ", _
vbYesNoCancel, "SIIRRYTÄÄNKÖ SEURAAVAAN TAULUKKOON")
If C = vbNo Then GoTo X
If C = vbCancel Then GoTo V
A:
Sheets("Taul2").Select
If Cells.Find(p, [A1], xlValues) Is Nothing Then GoTo M
K:
Cells.Find(p, ActiveCell, xlValues).Activate
C = MsgBox("Ei = haetaan lisää tästä taulukosta ", _
vbYesNoCancel, "SIIRRYTÄÄNKÖ SEURAAVAAN TAULUKKOON")
If C = vbNo Then GoTo K
If C = vbCancel Then GoTo V
M:
Sheets("Taul3").Select
If Cells.Find(p, [A1], xlValues) Is Nothing Then
If MsgBox("EI LÖYDY", vbOKOnly, _
p) = vbOK Then GoTo V
End If
S:
Cells.Find(p, ActiveCell, xlValues).Activate
C = MsgBox("Ei = haetaan lisää tästä taulukosta ", _
vbYesNoCancel, "SIIRRYTÄÄNKÖ SEURAAVAAN TAULUKKOON")
If C = vbNo Then GoTo S
If C = vbCancel Then GoTo V
V:
End Sub

Ctrl-F Options Workbook käy läpi kaikki sheetit