Recorrer filas y aparezca en el textbox

Si he entendido bien hay que general tantos textbox como veces aparece el valor buscado en la columna A, y a cada combo box se le asigna el valor correspondiente a la misma fila en la columna B ¿Correcto?
Para resolverlo he creado un formulario de nombre "Formulario" con un cuadro combinado de nombre "CuadroCombinado" y he escrito el siguiente código en el formulario:

Private Sub CuadroCombinado_Change()
Dim Rg As Range
Dim Contador As Integer
Dim NuevoTextBox As MSForms.TextBox
Set Rg = Range("A1")
Contador = 0
While Not Rg.Value = ""
    If Str(Rg.Value) = Str(CuadroCombinado.Value) Then
        Contador = Contador + 1
        Set NuevoTextBox = Formulario.Controls.Add("Forms.Textbox.1", "TextBox" & Contador)
        'Juega con las propiedades de NuevoTextBox para que se creen a tu conveniencia
        'Yo lo he dejado programado para que aparezcan cada uno a la derecha del anterior
        With NuevoTextBox
            .Top = 60
            .Width = 50
            .Height = 20
            .Left = 10 + (Contador - 1) * 60
            .Value = Rg.Offset(0, 1).Value
        End With
    End If
    Set Rg = Rg.Offset(1, 0)
Wend
End Sub

Estimado Ivan, buenas tardes, me puedes ayudar con el archivo, para poderlo entender mejor el código enviado, gracias.

Att.

Andrés Moncayo

Estimado Ivan, mucha gracias por la respuesta ya me salio la información que requería, ahora tengo una pregunta al rato que quiero borrar para colocar otro código me sale el siguiente error:

  If Str(Rg.Value) = Str(TextBox3.Value) Then 

Se me pinta de color amarillo.

Att.

Andrés Moncayo

¿Es posible que el valor de TextBox3 esté en blanco? Eso daría error en la función Str( )

Por otra parte, si tienes un TextBox3 en tu formulario deberías cambiarlo de nombre, o editar un poco la macro que te envié para que no coindidan los nombres cuando inserte un tercer textbox.

Si te sigue dando problemas puedes mandame una foto de tu formulario con los nombres de cada objeto y el código y le doy un vistazo.

Estimado Iván, mi pregunta es como puedo borrar el código e ingresar otro sin tener que salir de formulario, ya que al momento de borrar me sale el error.

Att.

Andrés Moncayo

Lo normal es editar el código con el formulario cerrado.
Si haciéndolo así te sigue dando problemas pásame el código y le doy un vistazo.

Estimado Ivan, adjunto el código:

Private Sub TextBox3_Change()

Dim Rg As Range
Dim Contador As Integer
Dim NuevoTextBox As MSForms.TextBox
Set Rg = Range("A1")
Contador = 0
While Not Rg.Value = ""
If Str(Rg.Value) = Str(TextBox3.Value) Then
Contador = Contador + 1
Set NuevoTextBox = UserForm1.Controls.Add("Forms.Textbox.1", "TextBox" & Contador)
'Juega con las propiedades de NuevoTextBox para que se creen a tu conveniencia
'Yo lo he dejado programado para que aparezcan cada uno a la derecha del anterior
With NuevoTextBox
.Top = 45
.Width = 50
.Height = 20
.Left = 10 + (Contador - 1) * 60
.Value = Rg.Offset(0, 1).Value
End With
End If

Set Rg = Rg.Offset(1, 0)
If Str(Rg.Value) = "" Then
End If
Wend

End Sub

El problema es que tengo es al querer borrar el la información del textbox me sale el error, lo que quisiera de tu ayuda como poder dejar en limpio el casillero y poder realizar otra consulta sin cerrar el formulario:

En espera de tus comentarios, anticipo mi agradecimiento.

Att.

Andrés Moncayo