Buscar Valor Por Código y Nombre

Soy nuevo con excel, estoy utilizando esta base de inventario, sin embargo tengo el problema que solo me permite buscar el producto por Código, lo cual requiere que me sepa todo los códigos de memoria, quisiera lo siguiente:

Tengo ComboBox1 en donde busco por código, y luego me da los valores en los demás textbox, quisiera agregar en el nombre un combobox que me permita seleccionar el nombre del producto y luego me de el código con los demás datos.

Lo que adjunto a continuación es parte de la base, exactamente me permite modificar los valores de un producto.

Private Sub ComboBox1_Change()
Dim Fila As Integer
Dim final As Integer

If ComboBox1.Value = "" Then
Me.txt_Nombre = ""
Me.txt_Unidad = ""
Me.txt_Categoria = ""
Me.txt_Descrip = ""
End If

For Fila = 2 To 10000
If Hoja2.Cells(Fila, 1) = "" Then
final = Fila - 1
Exit For
End If
Next

For Fila = 2 To final
If Val(ComboBox1) = Hoja2.Cells(Fila, 1) Then
Me.txt_Nombre = Hoja2.Cells(Fila, 2)
Me.txt_Unidad = Hoja2.Cells(Fila, 3)
Me.txt_Categoria = Hoja2.Cells(Fila, 4)
Me.txt_Descrip = Hoja2.Cells(Fila, 5)
Exit For
End If
Next
End Sub
Private Sub ComboBox1_Enter()
Dim Fila As Integer
Dim final As Integer
Dim Lista As String

For Fila = 1 To ComboBox1.ListCount
ComboBox1.RemoveItem 0
Next Fila

For Fila = 2 To 10000
If Hoja2.Cells(Fila, 1) = "" Then
final = Fila - 1
Exit For
End If
Next
For Fila = 2 To final
Lista = Hoja2.Cells(Fila, 1)
ComboBox1.AddItem (Lista)
Next
End Sub

Private Sub CommandButton1_Click()
Dim Fila As Integer
Dim final As Integer

For Fila = 2 To 10000
If Hoja2.Cells(Fila, 1) = "" And Hoja3.Cells(Fila, 1) = "" And Hoja4.Cells(Fila, 1) = "" And Hoja5.Cells(Fila, 1) = "" Then
final = Fila - 1
Exit For
End If
Next

For Fila = 2 To final
If Val(Me.ComboBox1) = Hoja2.Cells(Fila, 1) Then
Hoja2.Cells(Fila, 2) = Me.txt_Nombre
Hoja2.Cells(Fila, 3) = Me.txt_Unidad
Hoja2.Cells(Fila, 4) = Me.txt_Categoria
Hoja2.Cells(Fila, 5) = Me.txt_Descrip
Exit For
End If
Next
'-------------------------------------------------
For Fila = 2 To final
If Val(Me.ComboBox1) = Hoja3.Cells(Fila, 1) Then
Hoja3.Cells(Fila, 2) = Me.txt_Nombre
End If
Next
For Fila = 2 To final
If Val(Me.ComboBox1) = Hoja4.Cells(Fila, 1) Then
Hoja4.Cells(Fila, 2) = Me.txt_Nombre
End If
Next
For Fila = 2 To final
If Val(Me.ComboBox1) = Hoja5.Cells(Fila, 1) Then
Hoja5.Cells(Fila, 2) = Me.txt_Nombre
Hoja5.Cells(Fila, 3) = Me.txt_Unidad
Hoja5.Cells(Fila, 4) = Me.txt_Categoria
Exit For
End If
Next
'-------------------------------------------------
Me.ComboBox1 = ""
Me.txt_Nombre = ""
Me.txt_Unidad = ""
Me.txt_Categoria = ""
Me.txt_Descrip = ""

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub