Как избежать циклической формулы?

[KJ_ya]

Есть таблица. Можно выбрать из списка код, и к нему ВПРом подтягивается имя. Если выбрать из списка имя, то просто цена также по средством ВПР.
Но если в одной строке выбрать только имя, а в строке ниже - КОД, то функция ВПР работает на все ячейки диапазона и верхняя строчка затирается, т.к. в ячейке с кодом - пусто(
как сделать, чтобы, если выбрал только код, то подтягивалось имя, а если выбрал имя, то подтягивается код? Если писать как в впр, то получается, что формулы ссылаются друг на друга.
Запуталась уже.
Профессионалы, помогите, плиз!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
       Set XLro = Range("A20:A30")
   Set XLrd = Range("B20:B30")
 
     Cancel = True
     
 If Target.Cells.Count > 1 Then Exit Sub

If Not Application.Intersect([c14], Target) Is Nothing Then
 
 UserForm1.Show

End If

     '1 столбец Коды
      
   If Not Application.Intersect(XLro, Target) Is Nothing Then
   
        Dim Col As New Collection
        Dim x, x1 As Integer
        Dim c As Long

        c = 1
        x = 1
    
        Do While Not IsEmpty(Sheets("Cat").Cells(x, c))
           On Error Resume Next
           Col.Add Sheets("Cat").Cells(x, c), Sheets("Cat").Cells(x, c)
         x = x + 1
        Loop
        
        For x1 = 1 To x
            UserForm2.ListBox1.AddItem Col(x1 - 1)
     
        Next

               UserForm2.Show
               Q = 20
               If Cells(Q, 1) <> "" Then
               
               XLrd.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1],Cat!C[-1]:C[2],2,0)),"" "",(VLOOKUP(RC[-1],Cat!C[-1]:C[2],2,0)))"
               Else: Q = Q + 1
               End If
               
               End If
               
   '1 столбец Имена
If Not Application.Intersect(XLrd, Target) Is Nothing Then
         c = 2
         x = 1
        Do While Not IsEmpty(Sheets("Cat").Cells(x, c))
           On Error Resume Next
           Col.Add Sheets("Cat").Cells(x, c), Sheets("Cat").Cells(x, c)
         x = x + 1
        Loop
        For x1 = 1 To x
            UserForm2.ListBox1.AddItem Col(x1 - 1)
        Next

               UserForm2.Show
                           
               End If
End Sub

[Казанский]

А зачем вообще формула? Можно загрузить таблицу в 3-колоночный листбокс (отображаются только 2 колонки) и брать данные из него.

[KJ_ya]

Сообщение от Казанский

А зачем вообще формула? Можно загрузить таблицу в 3-колоночный листбокс (отображаются только 2 колонки) и брать данные из него.

Это отлично! Спасибо!
Просто нужна возможность этот код вводить вручную, а не выбирать из списка, чтобы кто знает код - набирал его, а кто нет - выбирал из списка. Поэтому я в имена впр сделала.
И еще надо, чтобы независимо от того - ввели только код или только выбрали имя - в обеих ячейках был и код и имя.

[Казанский]

И еще надо, чтобы независимо от того - ввели только код или только выбрали имя - в обеих ячейках был и код и имя
Это как раз было реализовано.
Сделал выпадающие списки в ячейках с помощью Проверки данных. Теперь можно и вводить вручную, и выбирать из выпадающего списка, и вызывать форму (может, это и не нужно).
Можно ввести значение сразу в несколько ячеек (Ctrl+Enter).
Можно выделить несколько ячеек и нажать Del - очистятся целые строки.

[KJ_ya]

Сообщение от Казанский

И еще надо, чтобы независимо от того - ввели только код или только выбрали имя - в обеих ячейках был и код и имя
Это как раз было реализовано.
Сделал выпадающие списки в ячейках с помощью Проверки данных. Теперь можно и вводить вручную, и выбирать из выпадающего списка, и вызывать форму (может, это и не нужно).
Можно ввести значение сразу в несколько ячеек (Ctrl+Enter).
Можно выделить несколько ячеек и нажать Del - очистятся целые строки.

Огромное спасибо!!!! Это отлично!!! Неделю почти билась и списки выпадающие прошла, но, почему-то не доработала (не сделала из взаимозависимыми), а это решило мою проблему!!! СПАСИБО!