Saltar al contenido

Guardar Dato de Textbox según Combobox

publicado

Buen día profesionales tengo un problema tengo un Combobox que tiene ya una lista siendo los datos PC, Operativo y Otro, el detalle esta cuando selecciono otro me habilita o muestra un Textbox donde tengo que escribir el dato o especificar la información pero al momento de guardar guarda el dato del Combobox, me gustaría su ayuda de todos ustedes que son profesionales y tienen conocimientos amplios en el tema y que la misma función sirva al querer modificar el dato si existieran algún error.

Saludos.

Featured Replies

publicado

Buenas, no entiendo muy lo que necesitas , te paso ejemplo , uno es guardando la info en una tabla el otro sin guardar. si haces doble clik sobre el combo borra el dato

combotext.xlsm

publicado
  • Autor

Buen día estimado dando mas detalles yo tengo mi tabla donde guardo la información cuando llego a eso Combobox tengo los datos de la lista que se guardan los primeros dos que son PC y Operativo del combobox pero cuando selecciono la tercera opcion que es Otro me habilita o muestra el Textbox donde tengo que especificar la información, lo que deseo es que cuando seleccione otro la información que se guarde sea la del Textbox en lugar de la del Combobox en lugar le doy otro y escribo Sistema, Desarrollo se guarde lo que escribi no la opción OTRO.

 

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Conttrol As Control
Dim UFila, X As Long

UFila = nReg(Hoja2, 2, 1)

If TextBox1 = Empty Or ComboBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or ComboBox2 = Empty Or TextBox5 = Empty Or ComboBox3 = Empty Or TextBox6 = Empty _
Or TextBox8 = Empty Or ComboBox4 = Empty Or TextBox9 = Empty Or TextBox10 = Empty Or ComboBox5 = Empty Or ComboBox6 = Empty Or TextBox14 = Empty _
Or TextBox15 = Empty Or TextBox16 = Empty Or TextBox17 = Empty Or TextBox18 = Empty Or TextBox19 = Empty Or ComboBox7 = Empty Or ComboBox8 = Empty Then
MsgBox "ES NECESARIO LLENAR TODOS LOS CAMPOS", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If

    If Mensaje = vbNo Then Exit Sub
    cuenta = Application.WorksheetFunction.CountIf(Range("B:B"), TextBox1)
    If cuenta > 0 Then
    MsgBox "El ACTA '" & TextBox1 & "' SE ENCUENTRA REGISTRADA", vbExclamation, "SAMDA"
    Else
    Mensaje = MsgBox("DESEA INGRESAR LOS DATOS", vbQuestion + vbYesNo, "SAMDA")
    If Mensaje = vbYes Then

        Hoja2.Cells(UFila, 2) = TextBox1.Text
        Hoja2.Cells(UFila, 3) = ComboBox1.Text
        Hoja2.Cells(UFila, 4) = FECHA.Text
        Hoja2.Cells(UFila, 5) = CDate(Format(TextBox2.Text, "dd/mm/yyyy"))
        Hoja2.Cells(UFila, 6) = TextBox3.Text
        If Hoja2.Cells(UFila, 7) = ComboBox2.Text = "Otro" Then
            Hoja2.Cells(UFila, 7) = TextBox4.Text
        Else
            Hoja2.Cells(UFila, 7) = ComboBox2.Text
        End If

        Hoja2.Cells(UFila, 😎 = TextBox5.Text
        Hoja2.Cells(UFila, 9) = ComboBox3.Text
        Hoja2.Cells(UFila, 10) = TextBox6.Text
        Hoja2.Cells(UFila, 11) = TextBox8.Text
        Hoja2.Cells(UFila, 12) = ComboBox4.Text
        Hoja2.Cells(UFila, 13) = TextBox9.Text
        Hoja2.Cells(UFila, 14) = TextBox10.Text
        Hoja2.Cells(UFila, 15) = ComboBox5.Text
        Hoja2.Cells(UFila, 16) = TextBox11.Text
        Hoja2.Cells(UFila, 17) = TextBox12.Text
         Hoja2.Cells(UFila, 18) = ComboBox6.Text
        Hoja2.Cells(UFila, 19) = TextBox14.Text
        Hoja2.Cells(UFila, 20) = CDbl(Replace(TextBox15.Value, ",", "."))
        Hoja2.Cells(UFila, 21) = CDbl(Replace(TextBox16.Value, ",", "."))
        Hoja2.Cells(UFila, 22) = CDbl(Replace(TextBox17.Value, ",", "."))
        Hoja2.Cells(UFila, 23) = CDbl(Replace(TextBox18.Value, ",", "."))
        Hoja2.Cells(UFila, 24) = CDbl(Replace(TextBox19.Value, ",", "."))
        Hoja2.Cells(UFila, 25) = ComboBox7.Text
        Hoja2.Cells(UFila, 26) = ComboBox8.Text
        Hoja2.Cells(UFila, 27) = TextBox20.Text
        Hoja2.Cells(UFila, 28) = CDate(Format(TextBox21.Text, "dd/mm/yyyy"))
        Hoja2.Cells(UFila, 29) = TextBox22.Text
        Hoja2.Cells(UFila, 30) = TextBox23.Text
        Hoja2.Cells(UFila, 31) = ComboBox10.Text
        Hoja2.Cells(UFila, 32) = ComboBox11.Text
        Hoja2.Cells(UFila, 33) = TextBox24.Text
        Hoja2.Cells(UFila, 34) = CDate(Format(TextBox25.Text, "dd/mm/yyyy"))
'antes de limpiar, crear el registro en la hoja según el Combobox8
    hojax = ComboBox8.Value
    UFila = Sheets(hojax).Range("B" & Rows.Count).End(xlUp).Row + 1
    With Sheets(hojax)
        .Cells(UFila, 2) = TextBox1.Text
        .Cells(UFila, 3) = ComboBox1.Text
        .Cells(UFila, 4) = FECHA.Text
        .Cells(UFila, 5) = CDate(Format(TextBox2.Text, "dd/mm/yyyy"))
        .Cells(UFila, 6) = TextBox3.Text
        If .Cells(UFila, 7) = ComboBox2.Text = "Otro" Then
            .Cells(UFila, 7) = TextBox4.Text
        Else
            .Cells(UFila, 7) = ComboBox2.Text
        End If
        .Cells(UFila, 😎 = TextBox5.Text
        .Cells(UFila, 9) = ComboBox3.Text
        .Cells(UFila, 10) = TextBox6.Text
        .Cells(UFila, 11) = TextBox8.Text
        .Cells(UFila, 12) = ComboBox4.Text
        .Cells(UFila, 13) = TextBox9.Text
        .Cells(UFila, 14) = TextBox10.Text
        .Cells(UFila, 15) = ComboBox5.Text
        .Cells(UFila, 16) = TextBox11.Text
        .Cells(UFila, 17) = TextBox12.Text
        .Cells(UFila, 18) = ComboBox6.Text
        .Cells(UFila, 19) = TextBox14.Text
        .Cells(UFila, 20) = CDbl(Replace(TextBox15.Value, ",", "."))
        .Cells(UFila, 21) = CDbl(Replace(TextBox16.Value, ",", "."))
        .Cells(UFila, 22) = CDbl(Replace(TextBox17.Value, ",", "."))
        .Cells(UFila, 23) = CDbl(Replace(TextBox18.Value, ",", "."))
        .Cells(UFila, 24) = CDbl(Replace(TextBox19.Value, ",", "."))
        .Cells(UFila, 25) = ComboBox7.Text
        .Cells(UFila, 26) = ComboBox8.Text
        .Cells(UFila, 27) = TextBox20.Text
        .Cells(UFila, 28) = CDate(Format(TextBox21.Text, "dd/mm/yyyy"))
        .Cells(UFila, 29) = TextBox22.Text
        .Cells(UFila, 30) = TextBox23.Text
        .Cells(UFila, 31) = ComboBox10.Text
        .Cells(UFila, 32) = ComboBox11.Text
        .Cells(UFila, 33) = TextBox24.Text
        .Cells(UFila, 34) = CDate(Format(TextBox25.Text, "dd/mm/yyyy"))
    End With
    MsgBox "DATOS INGRESADOS", vbInformation
    'Call Limpiar
    Call Actualizar
    ThisWorkbook.Save
    TextBox1.SetFocus
    Call UserForm_Initialize

    Else
    MsgBox "OPERACION CANCELA", vbExclamation
    Call Limpiar
    TextBox1.SetFocus
    End If
End If
'ThisWorkbook.Save
Call Limpiar
End Sub

 

Es el codigo donde guardo la información

Crear una cuenta o conéctate para comentar

Ir al listado de temas