Consulta al guardar los coombobox

Tengo unos combobox que necesito guardar, ala hoja "base de datos", con los txt no tengo problema, pero al presionar botón guardar no me guarda lo que seleccione en los combobox. Adjunto foto

EN ESTA HOJA NECESITO GUARDAR, llamada "BasedeDatos"

Estos son los combobox que dejo seleccionados

1 Respuesta

Respuesta
1

Puedes poner el código que tienes para pasar los datos a la hoja.

También dime cómo se llaman los combos

Solo tengo programado los TXT, los combo no los tengo programados

Esto esta dentro de cada combobox 


cbotipomedicion.AddItem "Vibraciones"
cbotipomedicion.AddItem "Termografia"
cbotipomedicion.AddItem "Ultrasonido"
cbotipomedicion.AddItem "Temperatura"
cbotipomedicion.AddItem "NOT"
cbocriticidad.AddItem "tres"
cbocriticidad.AddItem "cuatro"
cboregistroemision.AddItem "Ronald Berato"
cboregistroemision.AddItem "Juan Carlos Montecinos"
cboregistroemision.AddItem "Alain Sanhueza"
cboregistroemision.AddItem "Manuel Contreras"
cboregistroemision.AddItem "Manuel Saavedra"
cboprogramador.AddItem "eduardo"
cboprogramador.AddItem "felipe"
cbointervencion.AddItem "u"
cbointervencion.AddItem "o"
cboestado.AddItem "Funcionando"
cboestado.AddItem "Detenido"

Set h = Sheets("BaseDeDatos")

Pero no pusiste el código que utilizas para pasar los datos a la hoja

Es que por eso..  no lo tengo

Te pongo un ejemplo

Private Sub CommandButton1_Click()
'Pasar datos a la hoja
    Set h = Sheets("BasedeDatos")
    '
    'Aquí pones las validaciones de los controles que dben llevar datos
    If TextBox1.Value = "" Then
        MsgBox "Falta el texto 1"
        Exit Sub
    End If
    If ComboBox1.Value = "" Then
        MsgBox "Falta el combo 1"
        Exit Sub
    End If
    '
    'Se pasan los datos a la hoja
    u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
    h.Cells(u, "A").Value = TextBox1.Value
    h.Cells(u, "B").Value = ComboBox1.Value
    ' continuar con todos los textbox y combo, cada uno en su respectiva columna
    'recuerda que si es valor numérico deberás ponerlo así:
    h.Cells(u, "B").Value = Val(ComboBox1.Value)
End Sub

Toma el ejemplo para continuar con todos los textbox y combobox

sal u dos

Lo tengo diferente programado los txt.

Esto esta dentro del botón guardar te adjunto el código

Private Sub botonguardardatos_Click()
Dim fila As Long
Dim duplicados As Boolean
'Obtener la fila disponible
'fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
fila = h.Range("A" & Rows.Count).End(xlUp).Row + 1
duplicados = False
If Me.txtninforme = "" Or Me.txtaviso = "" Or Me.txtdiagnostico = "" Or Me.txtfechainforme = "" Or Me.txtfechamonitoreo = "" Or Me.txtninforme = "" Or Me.txtotruta = "" Or Me.txtrecomendacion = "" Then
MsgBox "No dejar ningun campo vacio ", vbOK
Exit Sub
End If
'
'Insertar datos capturados
h.Cells(fila, 1).Value = Formulario.txtninforme.Value
h.Cells(fila, 2).Value = Formulario.txtninforme.Value
h.Cells(fila, 3).Value = Formulario.txtaviso.Value
h.Cells(fila, 4).Value = Formulario.txtdiagnostico.Value
h.Cells(fila, 5).Value = Formulario.txtfechainforme.Value
h.Cells(fila, 6).Value = Formulario.txtfechamonitoreo.Value
h.Cells(fila, 7).Value = Formulario.txtninforme.Value
h.Cells(fila, 8).Value = Formulario.txtotruta.Value
h.Cells(fila, 9).Value = Formulario.txtrecomendacion.Value
MsgBox "Datos Correctamente Ingresados"
End Sub

Después de esta línea:

h.Cells(fila, 9).Value = Formulario.txtrecomendacion.Value

Pon los combos, por ejemplo:

h.Cells(fila, 10).Value = Formulario.combobox1.Value

h.Cells(fila, 11).Value = Formulario.combobox2.Value

'etc

La misma acotación, si uno de los datos es un valor numérico entonces tienes que utilizar la función Val( ), por ejemplo

h.Cells(fila, 10).Value = Val(Formulario.combobox1.Value)

.

Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas