Consulta al guardar los coombobox

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