Autor Tema: Re: Sugerencia (Leído 1986 veces)

arielb · « **en:** Jueves 21 de Octubre de 2004, 18:36 »

k tal amigos he hecho está pantalla en excell, k por cierto como varios saben son mis primeros pasos, la coloco aki para k le sirve algunos como ejemplo y tambien akellos k vean k se le pueda añadir algo más, pueden hacerlo. y subirlo nuevamente para ver las modificaciones.
para ver el codigo tiene k entrar con la clave "macros".

saludos,

ah se me olvidaba esto está hecho para capturadores, de facturas o algo màs.
se lleva por mes donde dice la secuencia seria de 1 hasta que termine el mes.
la hora se trabaja militar si empiezas a registrar a las 09:15 y terminas a las 3:00 pm hay k colocar 15:00 k es la hora militar.

LUKER

Que tal juez, me parece muy curiosa tu
aplicacion, pero tengo una pregunta, como pusiste el boton verde ahi?
es que necesito hacer algo similar en mi programa.

arielb

bueno luker gracias por contestar la otra pregunta verificaré haber si me funciona.
bueno al respecto de este tema no tengo ningún boton verde dentro de ese libro, si te refieres al k dice "tomar datos" en la misma hoja es color azul, bueno el color no es importante. te indico como lo hice: si no está habilitado te vas a herramientas luego personalizar, luego barra de herramientas y ahi escojes formularios, y ahi te aparecen todos.
bueno espero k sea eso k necesitas si no a la orden.
saludos.

RadicalEd

OYE (COMO SI CON TEXTO SE PUDIERA), TE TENGO UN ERROR, EN LAS HORAS 1 Y 2, MINUTOS 1 Y 2 SE PUEDEN AÑADIR VALORES DE MAS DE 23 Y MAS DE 59, ENTONCES EL UNICO ARREGLO SERIA CON UN IF, NO SE SI SEA OBLIGATORIA LA ENTRAD PERSONAL Y JORNADA PERO TAMBIEN LA PODRIAS VALIDAR, LA HORA QUE EMPIEZA LA PODRIAS CAPTURAR, PERO REALMENTE NO SE COMO LO SEPARES EN 2 TEXT OK SIGO BUSCANDO ERRORES CUANDO SEPA TE LOS CUENTO.
LO DE LAS HORAS LA PUEDES ACOMODAR ASI
CHAO

Código: Text

 
Private Sub TextMinuto_Enter()
On Error Resume Next
If Texthora.Text &#62; 23 Then
   Call MsgBox(&#34;Error en la entrada de la hora&#34;, 16, &#34;Advertencia&#34;)
   Texthora.Text = &#34;&#34;
   Texthora.SetFocus
End If
End Sub
 

arielb

ok gracias RadicalEd esa es la intención, sugerencias.

LUKER

Si era eso, es que hay muchas pequeñas cosas que uno no sabe, gracias Juez.