Problemas con Formulario en excel

[patricia:)]

Buen dia a todos,

En la universidad me mandaron la siguiente tarea: realizar un formulario donde inserte en una hoja de excel la hora y fecha tomados de un cuadro de lista de un formulario.

Realize mi formulario con 2 cuadro de lista: hora y fecha.

El primero tomas los valores de la hoja 1 el rango de celdas x1: x25.
El segundo toma los valores del rango de celdas Y1:Y25.

El codigo para el cuadro de lista 1 (Hora) es el siguiente:
Private Sub ListBox1_Click()
Range("c2").Select
ActiveCell.FormulaR1C1 = ListBox1
End Sub


El codigo para el cuadro de lista 2 (Fecha) es el siguiente:
Private Sub ListBox2_Click()
Range("d2").Select
ActiveCell.FormulaR1C1 = ListBox2
End Sub

El codigo para el boton insertar es el siguiente:

Private Sub CommandButton1_Click()

Selection.EntireRow.Insert ---> //aqui es donde esta el problema me inserta
una fila pero sin el formato establecido//

ListBox1.SetFocus

End Sub

El formulario funciona perfectamente, pero el problema que tengo es que al insertar una nueva fila, este no mantiene el formato de celda para la fecha y hora y por lo tanto al ingresar los valores del cuadro de lista del formulario a la hoja de excel este lo ingresa como valores con decimales.

¿Como hago para que cuando lo inserte, coloque los valores correctamente?

Agradeciendo de antemano su colaboracion dada

[ceSharp]

hola patricia,

no sé si es tarde para tu ejercicio pero te paso una posible solución.
--------------------------
Private Sub CommandButton1_Click()

Dim x As Integer
x = ActiveCell.Row

Selection.EntireRow.Insert
Range("A1").Select
Selection.Copy
Rows(x & ":" & x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
--------------------------------------
suponiendo que en tu celda A1 tienes el formato correcto de fecha y hora, esta función aplica el mismo formato que tiene A1 para la nueva fila insertada.
Espero que te sirva.

salu2