Update Appointments Data Automatically in MS Excel Using VBA

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.

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:

Watch the Video on YouTube

4 thoughts on “Update Appointments Data Automatically in MS Excel Using VBA

  1. I am having two excel files. One is Invoice File and the other is Payment File. Both the files have the common field “Invoice Number”. The Payment File have columns like Invoice Number, Amount Paid, Income Tax Deducted, Net amount, Cheque Number, Date of cheque and Cheque amount. I am required to update the Invoice File with the Payment File. Can you please tell be how to do it using VBA. Thank you in advance.
    B P RAO

  2. Hello, Thank you for your information and help to us novices! I am using your ” Merge data from several workbooks to a master workbook, but all that happens it is opening the first workbook and pasting, then I get a message saying ” there is a lot of data on your clipboard, do I want to keep it?” Then I get Run time error 438 – Object doesn’t support this object or method. Can you help me please?

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.