PHAKU

http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000708&posting=22000000023268960

ja räätälöi sopivaksi hakualue nyt A sarake ja mistä palautetaan tiedot- offset on 0 pohjainen
tolla voit sitten hakea vasemmallekin(olen senkin joskus tänne postannut)eli nyt B sarakkeesta Offset(0, 1)
muutettu hakukoodi ja originaali funktio toimii edelleen...

Sub Testi()
On Error GoTo virhe:
Dim loydetty As Range
Set loydetty = LaajennettuHaku("mikko", Columns("A:A"), xlValues, xlPart, False).Offset(0, 1)
loydetty.Select
Union(loydetty, loydetty).Copy Range("Taul2!A65536").End(xlUp).Offset(1, 0)
Exit Sub
virhe:
MsgBox "Hakuehdollasi ei laytynyt yhtaan tietuetta!"
End Sub