Como cambiar el código de una celda en caja de texto

hola buena tarde, tengo un formulario a cierta celda le di una función (buscarv) pero ahora quiero pasarlo de esta forma: puse un botón y que al presionar me habre una ventana

caja de texto (textbox1): que al digitar un cierto valor es el que voy a buscar

lista desplegable (combobox1): que el valor que digite en la caja de texto me lo busque según mi función en excel =BUSCARV(A2;Hoja2!A2:H100;2;falso); estoy eligiendo una lista desplegable porque digamos que yo dígito 1104, pero de ese dato yo tengo rojo, azul, amarillo.

otra lista desplegable: que el valor que digite en la caja de texto me lo busque según mi función en excel =BUSCARV(A2;Hoja2!A2:H100;3;falso); volviendo con el ejemplo del 1104, digamos que elijo el rojo, pero de este me da 1018,1045,1010.

es otra lista: que el valor que digite en la caja de texto me lo busque según mi función en excel =BUSCARV(A2;Hoja2!A2:H100;4;falso); volviendo con el ejemplo del 1104, rojo, 1018 pero ahora me da la medida 1",2" 3".

e puesto los botones buscar, corregir

https://scontent-a-lax.xx.fbcdn.net/hphotos-ash3/t1.0-9/10307392_4208832954531_445199827931753836_n.jpg

https://fbcdn-sphotos-a-a.akamaihd.net/hphotos-ak-frc3/t1.0-9/10325240_4208832594522_4223714039167401257_n.jpg

y este es mi codigo lo hice en celdas (pero ahora lo quiero que se ejecute en la ventana emergente)

Private Sub ComboBox2_Change()
'muestra los diferentes grados de acero del colada asignada
'
ActiveCell.FormulaR1C1
= _
"=VLOOKUP(R[-4]C,'COMPONENTES
'!R[4]C[-21]:R[4989]C[-18],3,FALSE)"
Range("combobox2").Select
End Sub
Private Sub ComboBox3_Change()
'muestra las medidas que hay de la colada asignada
'
ActiveCell.FormulaR1C1
= _
"=VLOOKUP(R[-10]C,'COMPONENTES
'!R[-2]C[-21]:R[4983]C[-18],4,FALSE)"
Range("combobox3").Select
End Sub
Sub bdescripcion()
'
' bdescripcion Macro
' buscara la descripcion de la colada
'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C,'COMPONENTES
'!R[6]C[-21]:R[4991]C[-18],2,FALSE)"
ActiveCell.Offset(1,
0).Range("A1").Select
End Sub
Sub
bgrado()
'
' bgrado
Macro
' buscara el grado de la colada
'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-4]C,'COMPONENTES
'!R[4]C[-21]:R[4989]C[-18],3,FALSE)"
End Sub
Sub bmedida()
'
' bmedida Macro
' buscara la medida de la colada
'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-10]C,'COMPONENTES
'!R[-2]C[-21]:R[4983]C[-18],4,FALSE)"
ActiveCell.Offset(1,
0).Range("A1").Select
End Sub
Sub
dbuscar()
'
' dbuscar
Macro
' dato a buscar
'
'
End Sub

espero me pueda ayudar un poco saludos cordiales