Programación General > VBA

 Re: Sugerencia

(1/2) > >>

arielb:
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:
:kicking:  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 NextIf Texthora.Text > 23 Then   Call MsgBox("Error en la entrada de la hora", 16, "Advertencia")   Texthora.Text = ""   Texthora.SetFocusEnd IfEnd Sub 

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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

Ir a la versión completa