Registrar Cita a través de un formulario existente
Siguiendo con nuestro proyecto, te envio la tercera pregunta pendiente para su calificación.
Preguntas Resueltas:
1. Diseño del formulario, tomaríamos la pregunta original que ya hiciste. OK
Es la primera pregunta que te hice. CALIFICADA: Excelente
Preguntas realizada pendiente de respuesta:
2. Validar horario: Si es posible o no es posible ponerle color # 7 a las citas ya agendadas y que contienen en la columna "G" alguna palabra especifica.
Pregunta Actual:
3. Registrar cita:
Preguntas pendientes por realizar:
4. Actualizar horarios
5. Llenar duración
6. Cargar etiquetas en la clase
7. La clase de las Etiquetas
8. Abrir formulario con doble click.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código para registrar cita
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("INGRESAR_CITA")
'Registrar cita
If CheckBox1 Then
h1.[D23] = CDate(Format(TextBox1, "HH:MM"))
h1.[D24] = CDate(Format(TextBox2, "HH:MM"))
Unload Me
Else
'If Label1 = "" Then
' MsgBox "Falta el cliente", vbExclamation, "REGISTRAR CITA"
' Exit Sub
'End If
If Label2 = "" Then
MsgBox "Falta la fecha", vbExclamation, "REGISTRAR CITA"
Exit Sub
End If
If Label3 = "" Then
MsgBox "Selecciona un horario", vbExclamation, "REGISTRAR CITA"
Exit Sub
End If
'
'Set h2 = Sheets("Agenda")
'u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
'h2.Cells(u, "B") = h1.[D22]
'h2.Cells(u, "C") = CDate(Format(Label3, "HH:MM"))
'h2.Cells(u, "D") = "=C" & u & "+""00:" & ComboBox1 & """"
'h2.Cells(u, "D") = h2.Cells(u, "D").Value
'ActualizarHorarios
h1.[D23] = CDate(Format(Label3, "HH:MM"))
h1.[D24] = "=C" & u & "+""00:" & ComboBox1 & """"
Label3 = ""
ComboBox1 = ""
Unload Me
End If
End SubS a l u d o s
