Lista de selección, según un numero

Para "dante amor"

Amigo, gracias por su ayuda. Tengo dos inquietudes más, agradezco si me puede ayudar. Mediante una selección de un código en un combobox, se buscan dos datos, según el código, y se almacenacada dato en un textbox. En uno de los textbox se trae un número (de 1 a 5). Necesito saber, si dependiendo de ese numero que se traiga, se puede generar un combobox con el listado de los números de 1 a el número que se selecciono. Espero ser claro.

La otra pregunta la hago en otro post porque acá ya no alcanzan los caracteres.

1 Respuesta

Respuesta
1

H o l a:

Te anexo la macro

Private Sub ComboBox1_Change()
'Por.Dante Amor
    Set b = Columns("A").Find(ComboBox1.Value, lookat:=xlWhole)
    If Not b Is Nothing Then
        TextBox1 = b.Offset(0, 1)
        '
        'En esta parte se llena el combobox2 desde 1 y hasta el número
 'que tenga el textbox1
        If IsNumeric(TextBox1) Then
            valor = Val(TextBox1)
            For i = 1 To valor
                ComboBox2.AddItem i
            Next
        End If
    Else
        MsgBox "Dato no existe"
    End If
End Sub


' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Muchas gracias, solo tengo una pregunta. A medida que utilizo el combobox con la lista de números, va guardando la lista de numeros que he seleccionado, como si no borrara la formulación; entonces si en la primera interacción la lista iba de 1 a 2, y en la segunda interacción de 1 a 3, en el combobox de la lista sale 1 2 1 2 3 .. agradezco su ayuda..cordialmente, 

Quedaría así:

Private Sub ComboBox1_Change()
'Por.Dante Amor
    Combobox2.clear
    Set b = Columns("A").Find(ComboBox1.Value, lookat:=xlWhole)
    If Not b Is Nothing Then
        TextBox1 = b.Offset(0, 1)
        '
        'En esta parte se llena el combobox2 desde 1 y hasta el número
 'que tenga el textbox1
        If IsNumeric(TextBox1) Then
            valor = Val(TextBox1)
            For i = 1 To valor
                ComboBox2.AddItem i
            Next
        End If
    Else
        MsgBox "Dato no existe"
    End If
End Sub


' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Tienes preguntas sin valorar.

R ecuerda valorar la respuesta. G r a c i a s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas