anexar automaticamente la fecha de un pago en la celda contigua

Hola Oscar,
Dentro del procedimiento de evento Change de la hoja de
trabajo, puedes usar el siguiente codigo:
Sub Worksheet_Change(Target as Range)
if not Application.Intersect(Target, MiRango) is Nothing
then
Application.EnableEvents=False
Target.item(1,2).Value=Date
Application.Enableevents=True
endif
End Sub

De esta forma, se puede fechar el pago de los pacientes
en la celda de al lado. (Mi Rango corresponde al campo de
al lado de la fecha)

Saludos,

Henry

como fechar cada pago de mi paciente automatcamente en

la celda de alado

.