Jump to content
Sign in to follow this  
Visor

Comparar fechas y ubicarse si se encuentra caso contrario añadirse si es ahora

Recommended Posts

Estimados amigos del foro he armado un tema con respecto a fechas, ustedes pueden ver que intento resolver antes de subir un tema, en este caso el paso es que compare o busque la fecha que se selecciona en el DTPicker si hay esa fecha, que se ubique, pero si no hay, que se mencione el mensaje que esa fecha no existe, pero si es fecha de hoy entonces se coloque en la celda de la columna vacía que le sigue, solo si según el día que esta en la primera y segunda fila en los días no corresponde a 0 (pues ese día no hay clase), si es superior a la fecha de hoy se avise con un mensaje.

Espero que me puedan colaborar con este tema, les quedo muy agradecido.

Subo un archivo para que lo vean.

Buscar fecha.xlsm

Share this post


Link to post
Share on other sites

Gracias Dr Hyde es precisamente lo que quería que pase cuando se compara la fecha, sin embargo si es la fecha de hoy no se ubica en la celda al final comparándose según el día que tiene un numero que si es cero se diga hoy no hay clases, pero si no es cero se escribe la fecha.

Estaba viendo algo parecido y el codigo para lo explicado es asi, pero no funciona

Private Sub CmdIngresar_Click()
Dim col As Integer
col = 3
Do While (Cells(5, col).Value <> "")
If DTPicker1.Value = Date Then
DTPicker1.Value = dddd > 1 then exit sub
Else
MsgBox ("Hoy no hay clases")

'Hoja1.Range("C5").End(xlDown).Row = DTPicker1.Value
Hoja1.Range("C5").End(xlDown).Column = DTPicker1.Value

End If
col = col + 1
Loop
End Sub

 

Share this post


Link to post
Share on other sites

Saludos Haplox y Dr. Hyde

Gracias por sus colaboraciones

Haplox

Funciona lo de encontrar fechas anteriores solo con respecto a fechas posteriores hay el siguiente caso explicado según imagen adjunta, en donde se explica que días hay clases (los con numero) y que días no hay clases (los con ceros 0) de acuerdo a esto se ingresa una fecha de hoy (Now) fechas posteriores no podrían ingresarse y fechas anteriores que no correspondan a clases no se ingresaran en la ultima celda vacía y esto según si es cero para ese día mensaje "Hoy no hay clases" si no es cero se inserta la fecha, toma en cuenta que si tengo ceros (días que no hay clases) como lo muestra la imagen 2 igual permite ingresar la fecha.

 

Estimado Dr. Hyde, efectivamente el código reconoce fechas anteriores y se ubica en la celda correspondiente (al ubicarse aquí podrá tener dos decisiones con los datos debajo, o corregir o cancelar). Todo bien, lo que me gustaría que no permita fechas posteriores, solo la fecha de hoy en la ultima celda vacía

Agradezco sus valiosos tiempos en este tema

Dias clase.JPG

Share this post


Link to post
Share on other sites

Perfecto!!!

Gracias Dr. Hyde, funcionó con el segundo (If CLASES > 0 And fecha = Date Then) , Solo una pregunta aquí pués probé y no sale...

en caso de seleccionar en el calendario una fecha posterior a la fecha de hoy, donde coloco MsgBox ("Debe seleccionar la fecha de HOY"), vbInformation, "AVISO"

 

Share this post


Link to post
Share on other sites

colocalo despues de estas instrucciones

.NumberFormat = "ddd dd/mm/yy"
        .Orientation = 90
    End With
    Else
        If fecha > Date Then MsgBox ("Debe seleccionar la fecha de HOY"), vbInformation, "AVISO"

    End If

Share this post


Link to post
Share on other sites

Quedo Perfecto!!!

Gracias Dr. Hyde con esto ya puedo avanzar en la aplicación de registro de asistencias que fue un tema previo que no tuvo solución.

Quedo muy agradecido

Gracias también Haplox ha servido de bien los aportes para avanzar

Tema solucionado

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Hola, como ya te han comentado, no se puede evitar ver la presentación propia de Excel,  no hay forma de evitarla así se usen macros o cualquier evento del archivo, claro, dependiendo del tamaño del  archivo y/o las características y/o lo que tengas en tu evento Open, se verá menos o más tiempo. Para terminar, por más que actives tu Userform a través del  evento Open y quites la visibilidad del Excel, igual se verá la dichosa presentación, y no,  tampoco hay forma de mostrar directamente el Userform ¿Por qué? Excel es una hoja de cálculo, no es un Entorno de Desarrollo Integrado (IDE) con el que se crea software propio, el VBA es parte de Excel, no se puede compilar aparte, si quieres algo propio,  necesariamente tienes que recurrir a Visual.Net, C++, C, C#,  etc. Saludos. 
    • Buen día estimados expertos, acudo a ustedes solicitando su valiosa colaboración con la finalidad de poder resolver esta tématica: tengo un formulario en el cual existen 3 combobox dependientes unos del otro, lo que pretendo hacer es que dependiendo el pais que se coloque en el textbox1 sea como ponga la nacionalidad en el textbox 2, es decir; en el formulario tenemos el btn_aceptar que es el que manda concatenadamento el contenido de los 3 comboboxs hacia el textbox1, pero lo que quiero hacer es que con el btn_nacionalizar ponga en el textbox2 la nacionalidad deacuerdo a lo que se escriba en el textbox1, por ejemplo si pusieron en el textbox1 "MÉXICO" (aunque existan otros caracteres pero que identifique la palabra "MÉXICO") entonces que ponga en el textbox2 "MEXICANA", si pusieron "JAPÓN" entonces que ponga "JAPONESA", y asi contiguamente; ojo no es necesario hacerlo con todos los paises, lo que necesito en sí es la lógica y obvio las sentencias para poder continuar yo con los demas paises. Ya que lo que debe hacer el programa en resumen es checar la "palabra" del pais dentro del textbox1 y dependiendo de eso poder poner la "palabra" de nacionalidad en el textbox2. De antemano mil gracias a quien pueda ayudarme. Dejo archivo muestra en dropbox   https://www.dropbox.com/s/4bzrng5yq8l9ewi/Nacionalizar.rar?dl=0
    • Que tal, a la planilla le han puesto espacios a los números ya sea adelante y atrás, por lo tanto no suma. ¿Cómo saco de una vez todos los espacios en blanco? Adjunto archivo. Muchas gracias! No suma por los espacios en blanco.xlsx
    • Visor He tenido un tiempito hoy, así que envío mi versión, revísalo y nos comentas   Saludos a ambos! Importar datos de otro libro_GP.zip
    • Tema solucionado!   Se agradece la ayuda.   Saludos JB
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy