Hello Friends,
I want to run a macro only at the first time opening the file in a day. Doesn't matter what time it is. It should run only first time when I open the file in a day. After that it should run next day only.
Please provide me code for it. I use call event but the macro runs each time I open the file which is very annoying.
Thanking you in anticipation.
Mukesh
This checks if the date in cell A1 is the same as the current date. If not, it runs your macro and sets the date in A1 to the current date.
Private Sub Workbook_Open() With Sheets("Access").Range("A1") If .Value < Date Then Call Sort MsgBox "Welcome!" .Value = Date End If End With End Sub
Last edited by AlphaFrog; 07-13-2013 at 10:51 PM.
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Awesome stuff and oh so simple actually.
Great addition for " beautifying" Excell or most spreadsheet programs for the user.
If I were to use a macro to run a start up screen once daily using this code...what can be included in the start up screen?
Welcome message /Today's date and time displayed with something like a widget / calendar info or reminders...?
Could this macro pull this info from a central file over a local network that can be edited daily?
Waves
Dear AlphaFrog,
Thank you. It's working fine. I want to run a second macro after this one 'Sort'. After sort macro I want to run 'Company' macro automatically. Solution please! I want to run this two macros automatically one after one once at the time of first opening the file in a day.
Mukesh
Last edited by mukeshbaviskar; 07-15-2013 at 12:08 PM. Reason: Attach attachment
I would just make sure that you put the code given to you earlier into Company as well, or take it out of Sort and put it into this one.Sub main() Call Sort Call Company End Sub
Hello bcas77,
It's not working. Please fine the mistake and give me a solution.
Thanking you in anticipation.
Mukesh
After Call Sort, add the line Call Company
Private Sub Workbook_Open() With Sheets("Access").Range("A1") If .Value < Date Then Call Sort Call Company MsgBox "Welcome!" .Value = Date End If End With End Sub
Hello AlphaFrog,
It's not working. Please see the attached file and find the solution.
Thanking you in anticipation.
Mukesh
Put any date previous to today's date in sheet Access cell A1. Do not use the =TODAY() formula. Put an actual date previous to today. Save the workbook, close, then reopen it to trigger the macros.
The code triggers when cell A1's date is less than the current date. The code will update cell A1 with the current date when it runs.
Hello AlphaFrog,
Excellent! It's working fine. Now my problem is solved.
Thank you for guidance.
Mukesh
Hello AlphaFrog,,
One more modification required. I want to run a macro 'selection' each time I open the file in a day. After opening the file the focus should be on search sheet cell 'c4' to search new contact details. I create a workbook open event but it gives a error of ambiguous name detected. How to solve it?
Thanking you in anticipation.
Mukesh
Private Sub Workbook_Open() With Sheets("Access").Range("A1") If .Value < Date Then Call Sort Call Company Application.Goto Sheets("Search").Range("C4") MsgBox "Welcome!" .Value = Date End If End With End Sub
Hello AlphaFrog,
Thank you for solution.
Mukesh
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks