Tengo dos hojas de cálculo con dos agendas, en una registra los datos una persona y el la otra los registra otra persona
¿Cómo puedo hacer para que una persona no escriba en el mismo día y horario de la otra? ¿Es posible avisar con un popup que ese día y horario ya está ocupado?
Si las 2 hojas tienen el mismo modelo de agenda, es decir que cada día-horario coincide en las mismas celdas, es posible controlar el cambio en cada una de las hojas.
La siguiente macro tendrás que colocarla en el Editor de Macros, en los objetos HOJA que corresponda a las las 2 Agendas.
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'se controla el rango A2:C10 ---- ajustar
If Intersect(Target, Range("A2:C10")) Is Nothing Then Exit Sub
'se controla si en la otra hoja la misma celda ya está ocupada
If Target <> "" Then
If Sheets("Agenda2").Range(Target.Address) <> "" Then
MsgBox "Este turno ya está ocupado"
Target = ""
End If
End If
End SubAjusta los rangos que serán controlados y el nombre de cada hoja.
Si todo quedó comprendido y resuelto no olvides valorar la respuesta ... sino comenta o solicita aclaraciones con todos los detalles de tu hoja.
Te recuerdo que esta consulta te fue respondida hace 2 semanas atrás. Si el tema está resuelto no olvides valorarla (opciones Excelente o buena) para darla por cerrada.
Sdos!
