Saltar al contenido
View in the app

A better way to browse. Learn more.
Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.