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