Macro para no duplicar registros de fecha y hora
Estoy generando un archivo de eventos en el que quiero hacer una macro para que antes de registrar en la base de datos ya se sepa que horarios se pueden tener de esa fecha por favor les agradezco el apoyo de antemano
1 Respuesta
SI dante muchas gracias
Mira registro así
Y esta es mi base de datos
Como te decía quiero saber como hacer para que antes de que registre sepa que el horario de la fecha del evento no esta disponible
Ya entendí, tienes un formulario, capturas la información, presionas "Registrar" y te pasa los datos a tu hoja.
Ahora explícame, a qué te refieres con "antes de que registre sepa que el horario de la fecha del evento no esta disponible"
Explícame con un ejemplo, es decir, la información de cuál o de cuáles de los textbox se debe comparar contra cuál o cuáles celdas, cuál es la condición, o condiciones, todo explicado con un ejemplo.
Si la text box C7 (Fecha de Show) y la text box C8 (Hora de Show) , los rangos de las donde estan los datos a comparar son en la Hoja Archivo: Fecha de Show (H2:H700) y Hora de Show (i2:i700)
lo que quiero es saber antes de pulsar registrar o al pulsarlo me diga que el horario que seleccione en esa fecha no esta disponible
Es decir, en el textbox7 pongo la fecha 20/ene/2015 y en el textbox8 pongo la hoja "10:00 am", ¿esos datos los busco en cuáles columnas?
Puedes poner el ejemplo con datos, yo ya puse la fecha 20/ene/2015, esa fecha la busco y si la encuentro, ¿qué?
O envíame tu archivo con el formulario y me explicas con un ejemplo, pero dime datos en el ejemplo: fecha, hora, ¿y si la encuentro qué hago?' y si no la encuentro qué hago?
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario "Francisco Garcia" y el título de esta pregunta.
ya envié el correo Dante
El éxito de la búsqueda depende de que los datos, fecha y hora sean correctamente ingresados, como la fecha la ingresas con un dtpicker, no hay problema, pero la hora en un textbox, no es conveniente así que cambie el textbox por un combo y le agregué las horas disponibles desde las 00:00 horas hasta las 23:30 horas, con un intervalo de media hora; también agregué otros controles a la captura de la hora para que sea una hora válida.
Si la fecha y la hora ya existen te envía un mensaje y no te deja registrar los datos.
Te anexo el código del formulario
Private Sub Registrar_Click()
'Por.Dante Amor
If C3 = "" Or C4 = "" Or C5 = "" Or C6 = "" Or C7 = "" Or C8 = "" Or C9 = "" Then
MsgBox "Faltan datos", vbExclamation
Else
Set h1 = Sheets("Archivo")
Set b = h1.Columns("H").Find(C7.Value, lookat:=xlWhole, LookIn:=xlFormulas)
If Not b Is Nothing Then
celda = b.Address
hora = TimeValue(C8)
Do
If h1.Cells(b.Row, "I") = hora Then
existe = True
Exit Do
End If
Set b = h1.Columns("H").FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
If existe Then
MsgBox "Ya existe un evento en esa fecha y a esa hora", vbExclamation, "REGISTRAR EVENTOS"
Else
u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
h1.Cells(u, "B") = C1
h1.Cells(u, "C") = C2
h1.Cells(u, "D") = C3
h1.Cells(u, "E") = C4
h1.Cells(u, "F") = C5
h1.Cells(u, "G") = C6
h1.Cells(u, "H") = C7
h1.Cells(u, "I") = C8
h1.Cells(u, "J") = C9
h1.Cells(u, "K") = C10
h1.Cells(u, "L") = C11
MsgBox "Evento registrado", vbInformation, "REGISTRAR EVENTOS"
End If
End If
End If
End Sub
'
Private Sub C8_DropButtonClick()
'Por.Dante Amor
C8 = Replace(C8, ",", ".")
C8 = Format(Val(C8), "hh:mm")
End Sub
'
Private Sub C8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = 0
End Sub
'
Private Sub UserForm_Activate()
C5.RowSource = "Datos!A2:A120"
C8.RowSource = "Datos!E2:E49"
C9.RowSource = "Datos!C2:C120"
End Sub
'
Private Sub Cancelar_Click()
Unload Me
End SubSaludos.Dante Amor
