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
      97
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    1    0

  • Crear macros Excel

  • Mensajes

    • crengifo
      Promedio rango de fechas

      Por crengifo · publicado

      Buenos días estimados, Tengo la siguiente consulta como obtener el promedio del rango de datos la ultima y penúltima fecha de la columna K. Ósea si tengo datos en la columna K con fecha 13-03-2025 y 12-03-2025 haga el promedio de los datos de esas fechas, pero si hay datos en la columna K con fecha 13-03-2025 y 11-03-2025 solo haga el promedio del dia 13-03-2025. El promedio debe ir en la celda M1 Anteriormente tenia en la macro la consulta del ultimo y penúltimo dato solamente sin tener en cuenta la fecha. Aqui compara los dos datos si el ultimo es menor toma ese dato si es mayor realizar el promedio. Sub Cemento() Dim Valor_1 As Single, Valor_CALIZA As Single, _ Dim Book_Moliend As Workbook, _ Book_BBDD As Workbook, _ Book_PREH As Workbook Dim Hoja_CalCto As Worksheet, _ Hoja_Caliza As Worksheet, _ Hoja_Cemento As Worksheet Dim Ruta_1 ' --- Fichero: MOLIENDA DE CEMENTO Y DESPACHOS FISICOS.xlsx Ruta_1 = "E:\Claudio\Cemento\" Application.ScreenUpdating = False Set Hoja_Cemento = ThisWorkbook.Sheets("CEMENTO") Set Book_PREH = Workbooks.Open(Ruta_1 + "PREHOMO.xlsx", ReadOnly:=False) Set Hoja_CalCto = Book_PREH.Sheets("CALIZA ADICIÓN CTO") ' --- Busca la ultima fila con datos y captura el valor With Hoja_CalCto Fila = .Cells(4, "A").End(xlDown).Row Valor_1 = 0 ' --- Ultimo dato Valor_2 = 0 ' --- Penultimo dato While Valor_1 = 0 Or Valor_2 = 0 If .Cells(Fila, "K") > 0 Then If Valor_1 = 0 Then Valor_1 = .Cells(Fila, "K") Else Valor_2 = .Cells(Fila, "K") End If End If Fila = Fila - 1 Wend End With Book_PREH.Close ' ---&--- Si el ultimo es mayor toma el ultimo If Valor_1 < Valor_2 Then Valor_CALIZA = Valor_1 Else Valor_CALIZA = (Valor_1 + Valor_2) / 2 End If Hoja_Cemento.Range("M1") = Valor_CALIZA End Sub Saludos Promedio.xlsm PREHOMO.xlsb
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      Hola mis amigos, como se encuentran, Antes que nada, gracias por tomarte el tiempo de leer mi situación. Tengo una tabla en donde se surte mercancía, el detalle esta:  Como son varios pedidos entonces, es donde se me complica un poco, a veces el cliente me pide cierta cantidad de mercancía, como no es el único, entonces quiero ver la posibilidad de mejorar este proceso, me gustaría ver si hay la posibilidad de combinar estas dos opciones, en donde si mi stock de acuerdo al pedido no cumple, entonces que surte a ciertos clientes, y la otra opción sería si de mi stock no cumple entonces que me distribuye en partes iguales la mercancía. Adjunto un archivo de ejemplo para mejor apreciación. De antemano, muchas gracias. SURTIDO DE MERCANCIAS.xlsx
    • Gigi74
      Lista desplegable

      Por Gigi74 · publicado

      Gracias de  todas formas, pero busco hacerlo con VBA. Son 12.000 filas a filtrar
    • Victor7
      Lista desplegable

      Por Victor7 · publicado

      Hola a ambos, @Gigi74, si te es igual conseguirlo en un rango aparte,  puedes aplicar: =APILARV(A4:D4;FILTRAR(A5:.D999;(A5:.A999=B2)+(B5:.B999=B3))) Saludos,
    • Gigi74
      Lista desplegable

      Por Gigi74 · publicado

      Hola de nuevo. voy a complicarlo un poco más. Si añado un segundo filtro nuevo. Me da igual que ambos filtros condicionen o no a la hora de seleccionar ambos. Si condicionan mejor, si es posible. Gracias por antelación Libro2A.xlsx

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