Manejo de Textbox

04/12/2006 - 15:40 por al_sa_ca | Informe spam

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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 J.P.

04/12/2006 - 17:17 | Informe spam

Buen día

Parece que en tu codigo te falta un if que identifique si el combobox
esta vacio o no y dependiendo de eso introduzca la fecha o tu texto.

Intenta con este codigo le cambie algunas cosas pero funciona igual lo
unico es que no defines variables lo que puede hacer más rapido el
programa, a demás el Do While te demora más para llegar a la última
celda.
Lo que hago aqui es ir a la última celda de la hoja y subir hasta la
última con algo de texto.
Cualquier cosa me cuentas.

Private Sub CommandButton1_Click()
Hoja3.Range("A65536").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
If TextBox1.Value = "" Then
ActiveCell = "Falta Fecha de entrega"
ActiveCell.Offset(0, 1) = Combobox1
Else
ActiveCell = CDate(TextBox1)
ActiveCell.Offset(0, 1) = Combobox1
End If
End Sub

al_sa_ca ha escrito:

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.

Responder a este mensaje

#2 al_sa_ca

04/12/2006 - 17:51 | Informe spam

Gracias J.P. lo he probado y Funciona muy bien, sólo una última cosa,
cómo hago que ingrese la fecha con el siguiente formato:

1-Enero-06
2-Diciembre-06

Espero no molestar.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida