Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Guardar Dato de Textbox según Combobox

Darack
 Share

Recommended Posts

Darack Novato

Darack

publicado
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.

Darack Novato

Darack

publicado
  • Autor
publicado

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

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
 Share
Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    5    1

  • Crear macros Excel

  • Mensajes

    • Israel Cassales
      Sumar Celdas Mediante Condición de Color

      Por Israel Cassales · publicado

      VTL - HHE_101128.xlsx
    • Israel Cassales
      Sumar Celdas Mediante Condición de Color

      Por Israel Cassales · publicado

      Hola, El texto citado no lo termine de entender, la celda adyacente a Z27 se relaciona con la fila A28 de la hoja VTL1 y el resultado 35 de su ejemplo, se obtiene de la fila 8, así que para hacer algo sin complicaciones use la columna BM para devolver ese valor. Aprovechando los parámetros de discriminación que uso usted para pintar las celdas de la fila, podría usar esos mismos en una fila auxiliar y así obtener un valor que podría usar como criterio en alguna función, sin tener que meterse al terreno de los colores del condicional, porque no son los mismos que los de la paleta de colores en cuestiones de código. ¿Entonces una solución con macros no es de su interés? Si cambia de opinión podría colocar el tema en esa sección, querer formular con los colores del formato condicional tiene sus características específicas, sin mencionar que se actualice "sola". Aunque bueno, todavía es posible que algún maestro o usuario avanzado le pase una solución con alguna función personalizada al ver que usted tiene 365. Si le interesa una idea sencilla podría usar un rango en la fila 5: =SI.ERROR(COINCIDIR(K7,CALCULOS!$B$4:$B$35,0),SI(O(DIASEM(K7)=7,DIASEM(K7)=1),1,0)) Eso le daría la opción de usar: =SUMAR.SI($K$5:$AY$5,">=1",K8:AY8) Saludines
    • jues
      Sumar Celdas Mediante Condición de Color

      Por jues · publicado

      Estimados amigos espero estén bien   Tengo este archivo que me ayuda a llevar las horas trabajadas al que necesito añadir en la Hoja5 (HHE) una fórmula que me cuente las Horas trabajadas en Días de Descanso (fines de semana y feriados), actualmente mediante una Regla de Formato Condicional se resaltan en amarillo el Dia de Semana y la Fecha de los Días de Descanso sin embargo el inconveniente se me presenta con los días feriados que cambian de posición de acuerdo a la fecha y cuando el mes comienza en día domingo por lo cual necesito una fórmula que me permita sumar los Días de Descanso cuando la Fecha que le corresponda este resaltada en Amarillo la sintaxis sería más o menos esta para la primera semana del mes de Enero de 2025: =SI('VTL1'!$I$7=AMARILLO;'VTL1'!$I8;0) + SI('VTL1'!$J$7=AMARILLO;'VTL1'!$J8;0) + SI('VTL1'!$K$7=AMARILLO;'VTL1'!$K8;0) + SI('VTL1'!$L$7=AMARILLO;'VTL1'!$L8;0) + SI('VTL1'!$M$7=AMARILLO;'VTL1'!$M8;0) + SI('VTL1'!$N$7=AMARILLO;'VTL1'!$N8;0) + SI('VTL1'!$O$7=AMARILLO;'VTL1'!$O8;0) Y así sucesivamente para el resto de las semanas, con los datos actuales el resultado esperado para la primera semana (I8:O8) sería 9 horas mientras que para el mes (Fila8) el resultado esperado seria 35 horas estos resultados deben reflejarse en la Celda “$Z7” de la Hoja5 (HHE) de modo tal que una vez haya completado la totalidad de la fórmula para el resto de las semanas del mes la pueda correr de Z27 hasta Z42 VTL - HHE_101128.xlsx
    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.