кнопку команды VBA для возврата следующего значения в списке после согласования опорного значения

Question

У меня есть кнопка команды, которая будет использоваться для возврата на следующий результате в списке после текущего значения.

Ниже мой текущий код

Range("A2").Value = [HLOOKUP(A2,'Item Database'!A2:A100000,2,FALSE)] 

Функция должна проверить значение A2, найти его на «Database Item» и измените значение A2 на новое значение из списка ссылок.

Текущий код работает для двух кликов, а затем всегда возвращает # N/A

Я не уверен, почему, какие-либо мысли о том, как я могу сделать это более эффективно или как исправить эту строку кода, чтобы она не вызывала ошибку после 2 использования?

Answer 1

Dim f As Range, c as range 

Set c = Activesheet.Range("A2") 
Set f = Sheets("Item Database").Range("A2:A100000").Find(_ 
       c.Value,lookin:=xlvalues, lookat:=xlwhole) 

if not f is nothing then c.value = f.offset(1, 0).value