Próbuję użyć range.find, aby wyszukać wartość w kolumnie i zwrócić pasującą wartość z następnej kolumny.

Zapisałem find () za pomocą rejestratora makr, który przez pewien czas działał dobrze, ale z jakiegoś powodu teraz daje mi błąd. O ile wiem, nie zmieniłem niczego, co powinno wpłynąć na ten fragment kodu.

Oto co mam

Public Function look_up_id(id, table)
    Worksheets(table).Activate
    Cells.Find(What:=id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

    look_up_id = ActiveCell.Offset(0, 1).Value
End Function

Błąd, który teraz otrzymuję, to:

Zmienna obiektowa lub Z ustawioną zmienną blokową

Wiesz, dlaczego to się teraz dzieje?

Wszystkie zasoby, które mogę znaleźć na range.find (), wyglądają na to, że robię to dobrze ...

Pozdrawiam - David