Registrar datos en celda con datepicker

[Paul Apaza]

Hola

Tengo el siguiente formulario que me recibe datos(parámetros), tengo una duda en cuanto al manejo e implementación del código con DatePicker e ingresarlos en una celda en la tabla generada.

Private Sub btn_registrar_Click()


ActiveSheet.Cells(8, 2).Select

Selection.EntireRow.Insert

    ActiveSheet.Cells(8, 2) = TextBox1

    ActiveSheet.Cells(8, 3) = TextBox2

    ActiveSheet.Cells(8, 4) = TextBox3

    ActiveSheet.Cells(8, 5) = TextBox4


    TextBox1 = Empty

    TextBox2 = Empty

    TextBox3 = Empty

    TextBox4 = Empty


    TextBox1.SetFocus

    Ordenar 'macro ordenar


End Sub[/CODE]

Saludos

[Paul Apaza]

Nadie puede ayudarme lo quiero es implementar el modulo o función para el registro de datos en una celda determinada mediante el Calendar de excel, alguien podría darme una idea como verán soy novato en esta herramienta.

Muchas gracias.

[cando]

Si la fecha está en el textbox1, sustitúyelo por un datapicker, en él eliges la fecha que te irá a tu cells(8,2)

Private Sub btn_registrar_Click()

ActiveSheet.Cells(8, 2).Select

Selection.EntireRow.Insert

ActiveSheet.Cells(8, 2) = DTPicker1.Value

ActiveSheet.Cells(8, 3) = TextBox2

ActiveSheet.Cells(8, 4) = TextBox3

ActiveSheet.Cells(8, 5) = TextBox4

TextBox2 = Empty

TextBox3 = Empty

TextBox4 = Empty

DTPicker1.SetFocus

Ordenar 'macro ordenar

End Sub