Update Appointments Data Automatically in MS Excel

Home More Videos

I work as a co-ordinator in the head-office of a real estate company. We have many agents (about 90) in the field and we need to keep a track of their performance by monitoring their appointments. Agents call up clients and fix appointments about which they inform me. I need only to know how many people an agent will meet during the working day. If his appointment gets cancelled he has again to inform head-office. Now I am entering the number of appointments manually in an Excel worksheet and also updating it manually and all my other work gets disrupted and I've to put in extra hours of work. Could you suggest an easier way?
Thanks so much for your help in advance.
Nancy

Given below is the simple macro code to solve the above problem and automate the process of appointments updation.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
If IsNumeric(Target) Then
Target.Value = Target.Value - 1
End If
End If
Target.Offset(0, 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If IsNumeric(Target.Offset(0, 1))
Then Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
Target.Offset(0, 2).Select
End If
End If
End Sub

Watch the video below to learn how to automatically update the appointments data in MS Excel: