Como agregar una fecha desde formulario a hoja

Envíame tu última versión del archivo para revisarlo.

Puedes poner un ejemplo de cada información

Textbox14 y textbox15, ¿textbox16 = dia esto lo pongo en una celda o cómo?

Otro ejemplo para esto:

Textbox18 y textbox19, combobox4  = mes

combobox5 = años

combobox3 = años.

Para pasar los datos a las celdas:

Private Sub CommandButton1_Click()
'Botón guardar
    CommandButton2.Visible = True
    CommandButton1.Visible = False
    '
    'guardar en h1
    If h1.Range("C18").Value = "" Then
        h1.Range("C18").Value = cdlb(TextBox12.Value)
    End If
    If h1.Range("C19").Value = "" Then
        h1.Range("C19").Value = cdlb(TextBox13.Value)
    End If
    h1.Range("C22").Value = cdlb(TextBox12.Value)
    h1.Range("C23").Value = cdlb(TextBox13.Value)
End Sub

sal u dos

ha ok dante, mira el textbox14 va en la celda e9 dela hoja uce, el textbox18  va en la celda f9 en la hoja uce, el textbox15 va en la celda g9, textbox19 va en la celda h9.

el textbox16 va en la celda e10, combobox4 va en la celda f10, combobox5 va en la celda h10 todos van el hoja uce

Te anexo el código+

'
Private Sub CommandButton1_Click()
'Botón guardar
    CommandButton2.Visible = True
    CommandButton1.Visible = False
    '
    'guardar en h1
    If h1.Range("C18").Value = "" Then
        h1.Range("C18").Value = cdlb(TextBox12.Value)
    End If
    If h1.Range("C19").Value = "" Then
        h1.Range("C19").Value = cdlb(TextBox13.Value)
    End If
    h1.Range("C22").Value = cdlb(TextBox12.Value)
    h1.Range("C23").Value = cdlb(TextBox13.Value)
    '
    'Guardar en h2 UCE
    h2.Range("E9").Value = TextBox14.Value
    h2.Range("F9").Value = TextBox15.Value
    h2.Range("G9").Value = TextBox19.Value
    '
    h2.Range("E10").Value = TextBox16.Value
    h2.Range("F10").Value = ComboBox4.Value
    h2.Range("H10").Value = ComboBox4.Value
End Sub

sal u dos

¡Gracias! Dante Funciono al 100 muchas gracias

Hola Dante:

Revise las modificaciones que me realizaste pero tengo problemas con el botón guardar no me guarda me arroja error si no meto datos en el textbox.

Se puede hacer una modificación,

Que el botón guardar la información del textbox12 y textbox13 en la celda c22y c23 mientra tenga datos la celda que no haga nada pero si no tiene que guarde la que estén en dichos texbox y que me guarde la información de la hoja uce celda h73 y i76 al la hoja1 en la celda c18 y c19.

Y la que me creaste del from buscar me muestra la información sin problemas pero se puede hacer que cuando elijes lo encontrado en le listbox que lo coloque en los textbox y combobox del mismo from.