Function HaeArvot2(Hakuehto As Variant, HakuAlue As Range) As Range
Dim Solu As Range
Dim Ekaosoite As String
'nyt funktio palauttaa Rangen -Solu.Offset(0, 2)= C-sarake
'en jaksanut alkaa muuttelemaaan, joten tää oikeesti palauttaa viimeisen löydetyn tuotenimen yksikköhinnan, oikeaoppisesti olis pitänyt poistella turhat koodista, mutta ei väliä(tällä kertaa yksikköhinta sama)
With HakuAlue
Set Solu = .Find(What:=Hakuehto)
If Not Solu Is Nothing Then
Ekaosoite = Solu.Address
Do
Set HaeArvot2 = Solu.Offset(0, 2)
Set Solu = .FindNext(Solu)
Loop While Not Solu Is Nothing And Solu.Address Ekaosoite
End If
End With

End Function