Hola, tengo un formulario para ingresar datos en una hoja de excel, y
utilizo el sig. código en el CommandButton1:
Private Sub CommandButton1_Click()
Dim i As Double
Dim celda As String
i = 0: celda = ""
Do While celda <> ""
i = i + 1
celda = Hoja1.Cells(i, 1).Value
Loop
Hoja1.Cells(i, 1).Value = CDate(TextBox1)
Hoja1.Cells(i, 2).Value = Combobox1
End Sub
Debo ingresar Fechas y para ello convierto el textbox1 con "CDate" para
darle el formato, el problema consiste en que si dejo en blanco o no
escribo nada en el textbox1 automáticamente me arroja error y me saca
del formulario.
Lo que necesito es, que si en el Textbox1 escribo una fecha, entonces
al presionar el CommandButton1 ingrese como fecha (con el formato
1-Ene-06), PERO SI DEJO EN BLANCO el textbox1 y presiono el
CommandButton1 ingrese el texto "Falta Fecha de entrega"
Agradeciendo su atención e interés que tienen en mi tema, espero su
fina respuesta.
Leer las respuestas