Próbuję użyć.Find i.FindNext przeszukiwać pojedynczą kolumnę danych. Najpierw muszę znaleźć pierwszą komórkę zawierającą wartość „Total”. Komórka, do której próbuję się dostać, to trzecia komórka PO komórce „Całkowita”, która zawiera wartość „Tech”. Wiadomo na pewno, że komórki (1, 1) nie zawierają „Tech” ani „Total”.

Dim FirstTotal As Range
Dim SearchRng As Range
Dim ResultRng As Range
Set SearchRng = Range("A:A")

Set FirstTotal = SearchRng.Find(What:="Total", After:=Cells(1, 1), SearchDirection:=xlNext)
Set ResultRng = SearchRng.Find(What:="Tech", After:=FirstTotal, SearchDirection:=xlNext)
SearchRng.FindNext().Activate
SearchRng.FindNext().Activate

Około 50% razy, kiedy uruchomiłem ten kod, zostałem zatrzymany przez błąd niezgodności typu w linii zaczynającej się odSet ResultRng =. Przez resztę czasu kod przebiegał przez całą drogę, ale wyniki wyglądają tak, jakby ostatnie dwie linie kodu zostały całkowicie zignorowane.

Podejrzewam, że odpowiedź tutaj jest dość elementarna, ale jestem całkiem nowy w excel vba i żadne zasoby, które znalazłem do tej pory nie odpowiedziały na to. Proszę pomóż!