¿Como Relacionar un combobox con textbox para ingresar datos en diferentes columnas?

Tengo un formulario con un combobox con varias opciones ("O"."C","G","D"; etc, y un textbox vacio, como hago para que cuando elijo una opción del combobox, el dato que voy a ingresar en el textbox se registre en la columna que corresponda. Ejem: elijo la opción "C" que se registre en la columna 9; la opción "G" en la columna 15; y únicamente la opción "D" en la columna 11 y 13 al mismo tiempo.

Anticipadamente agradezco su atención.

2 Respuestas

Respuesta
2

Para determinar la columna en base al dato el combobox2

También estoy agregando en el código una forma para encontrar la última fila disponible, puedes utilizarla en lugar del ciclo for.

En la estructura Select case, se relaciona el valor del combo con la columna, en caso de que el combo sea igual a "D", estoy poniendo 2 columnas la 11 y la 13

Private Sub CommandButton1_Click()
'Por.Dante Amor
    'última fila
    u = Range("A" & Rows.Count).End(xlUp).Row + 1
    Cells(u, "B") = TextBox1
    Cells(u, "C") = ComboBox1
    Cells(u, "H") = ComboBox2
    Cells(u, "A") = ComboBox2
    '
    Select Case ComboBox2
        Case "C": col = 9
        Case "G": col = 15
        Case "D": col = 11: c2 = 13
    End Select
    Cells(u, col) = TextBox2
    If c2 <> "" Then Cells(u, c2) = TextBox2
End Sub

¡Gracias! Muchas gracias me funciono de maravilla, valoro mucho su ayuda al respecto.

Un cordial saludo y que pase un buen fin de año.

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas