opening a worksheet at a specific point crusty53 12.08.2006 10:12:01 i have a diary , i would like it to open at the specific date every time i openen the file.PLEASE HELP>

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 12.08.2006 11:53:13 Hi crusty53 Do you have column where you enter the date each day ? -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... [Quoted Text] >i have a diary , i would like it to open at the specific date every time i > openen the file.PLEASE HELP>

Re: opening a worksheet at a specific point crusty53 13.08.2006 01:44:01 Yes it has a column were the date is entered every day. "Ron de Bruin" wrote: [Quoted Text] > Hi crusty53 > > Do you have column where you enter the date each day ? > > -- > Regards Ron de Bruin > http://www.rondebruin.nl > > > > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... > >i have a diary , i would like it to open at the specific date every time i > > openen the file.PLEASE HELP> > > >

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 13.08.2006 08:44:07 Hi Hi crusty53 You can try this find todays date in column A in "Sheet1" Sub Find_Todays_Date() Dim FindString As Date Dim rng As Range FindString = Date With Sheets("Sheet1").Range("A:A") Set rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then Application.Goto rng, True Else MsgBox "Nothing found" End If End With End Sub You van run the macro in the workbook open event in the thisworkbook module -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:6BA84EB6-E9B1-4D48-AFBC-DFF395F0095F[ at ]microsoft.com... [Quoted Text] > Yes it has a column were the date is entered every day. > > "Ron de Bruin" wrote: > >> Hi crusty53 >> >> Do you have column where you enter the date each day ? >> >> -- >> Regards Ron de Bruin >> http://www.rondebruin.nl >> >> >> >> "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... >> >i have a diary , i would like it to open at the specific date every time i >> > openen the file.PLEASE HELP> >> >> >>

Re: opening a worksheet at a specific point crusty53 13.08.2006 12:25:02 Ron, thanks,but this is a bit too advanced for me.But if you have time i would like to explore it further.Please a bit more of an explanation as to what your reply means and how i go about performing what you told me.Your humble beginner crusty. "crusty53" wrote: [Quoted Text] > Yes it has a column were the date is entered every day. > > "Ron de Bruin" wrote: > > > Hi crusty53 > > > > Do you have column where you enter the date each day ? > > > > -- > > Regards Ron de Bruin > > http://www.rondebruin.nl > > > > > > > > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... > > >i have a diary , i would like it to open at the specific date every time i > > > openen the file.PLEASE HELP> > > > > > >

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 13.08.2006 13:25:46 Hi Copy the macro in a normal module 1. Alt-F11 2. Insert>Module from the Menubar 3. Paste the Code there 4. Alt-Q to go back to Excel 5. Alt-F8 to run the subs Note :My Sheet is names "Sheet1" Test the macro first and I help you to run it automatic -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... [Quoted Text] > Ron, thanks,but this is a bit too advanced for me.But if you have time i > would like to explore it further.Please a bit more of an explanation as to > what your reply means and how i go about performing what you told me.Your > humble beginner crusty. > > "crusty53" wrote: > >> Yes it has a column were the date is entered every day. >> >> "Ron de Bruin" wrote: >> >> > Hi crusty53 >> > >> > Do you have column where you enter the date each day ? >> > >> > -- >> > Regards Ron de Bruin >> > http://www.rondebruin.nl >> > >> > >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... >> > >i have a diary , i would like it to open at the specific date every time i >> > > openen the file.PLEASE HELP> >> > >> > >> >

Re: opening a worksheet at a specific point crusty53 13.08.2006 23:39:01 Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is named"Diary" and the colunm is "B:B" "Ron de Bruin" wrote: [Quoted Text] > Hi > > Copy the macro in a normal module > > 1. Alt-F11 > 2. Insert>Module from the Menubar > 3. Paste the Code there > 4. Alt-Q to go back to Excel > 5. Alt-F8 to run the subs > > > Note :My Sheet is names "Sheet1" > Test the macro first and I help you to run it automatic > > -- > Regards Ron de Bruin > http://www.rondebruin.nl > > > > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... > > Ron, thanks,but this is a bit too advanced for me.But if you have time i > > would like to explore it further.Please a bit more of an explanation as to > > what your reply means and how i go about performing what you told me.Your > > humble beginner crusty. > > > > "crusty53" wrote: > > > >> Yes it has a column were the date is entered every day. > >> > >> "Ron de Bruin" wrote: > >> > >> > Hi crusty53 > >> > > >> > Do you have column where you enter the date each day ? > >> > > >> > -- > >> > Regards Ron de Bruin > >> > http://www.rondebruin.nl > >> > > >> > > >> > > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... > >> > >i have a diary , i would like it to open at the specific date every time i > >> > > openen the file.PLEASE HELP> > >> > > >> > > >> > > > >

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 14.08.2006 14:48:57 Hi crusty53 [Quoted Text] > i think my sheet is named"Diary" and the colunm is "B:B" Think ? <g> Change the Sheet name and column then like this Sub Find_Todays_Date() Dim FindString As Date Dim rng As Range FindString = Date With Sheets("Diary").Range("B:B") Set rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then Application.Goto rng, True Else MsgBox "Nothing found" End If End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:86D9164E-C92D-4E1F-811B-D9A3710C170F[ at ]microsoft.com... > Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is > named"Diary" and the colunm is "B:B" > > "Ron de Bruin" wrote: > >> Hi >> >> Copy the macro in a normal module >> >> 1. Alt-F11 >> 2. Insert>Module from the Menubar >> 3. Paste the Code there >> 4. Alt-Q to go back to Excel >> 5. Alt-F8 to run the subs >> >> >> Note :My Sheet is names "Sheet1" >> Test the macro first and I help you to run it automatic >> >> -- >> Regards Ron de Bruin >> http://www.rondebruin.nl >> >> >> >> "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... >> > Ron, thanks,but this is a bit too advanced for me.But if you have time i >> > would like to explore it further.Please a bit more of an explanation as to >> > what your reply means and how i go about performing what you told me.Your >> > humble beginner crusty. >> > >> > "crusty53" wrote: >> > >> >> Yes it has a column were the date is entered every day. >> >> >> >> "Ron de Bruin" wrote: >> >> >> >> > Hi crusty53 >> >> > >> >> > Do you have column where you enter the date each day ? >> >> > >> >> > -- >> >> > Regards Ron de Bruin >> >> > http://www.rondebruin.nl >> >> > >> >> > >> >> > >> >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... >> >> > >i have a diary , i would like it to open at the specific date every time i >> >> > > openen the file.PLEASE HELP> >> >> > >> >> > >> >> > >> >> >>

Re: opening a worksheet at a specific point crusty53 14.08.2006 22:50:02 Sub Find_Todays_Date() Dim FindString As Date Dim rng As Range FindString = Date With Sheets("Diary").Range("B:B") Set rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then Application.Goto rng, True Else MsgBox "Nothing found" End If End With End Sub Hi Ron still a run time error in 9 .At line with sheet name and colunms. "crusty53" wrote: [Quoted Text] > Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is > named"Diary" and the colunm is "B:B" > > "Ron de Bruin" wrote: > > > Hi > > > > Copy the macro in a normal module > > > > 1. Alt-F11 > > 2. Insert>Module from the Menubar > > 3. Paste the Code there > > 4. Alt-Q to go back to Excel > > 5. Alt-F8 to run the subs > > > > > > Note :My Sheet is names "Sheet1" > > Test the macro first and I help you to run it automatic > > > > -- > > Regards Ron de Bruin > > http://www.rondebruin.nl > > > > > > > > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... > > > Ron, thanks,but this is a bit too advanced for me.But if you have time i > > > would like to explore it further.Please a bit more of an explanation as to > > > what your reply means and how i go about performing what you told me.Your > > > humble beginner crusty. > > > > > > "crusty53" wrote: > > > > > >> Yes it has a column were the date is entered every day. > > >> > > >> "Ron de Bruin" wrote: > > >> > > >> > Hi crusty53 > > >> > > > >> > Do you have column where you enter the date each day ? > > >> > > > >> > -- > > >> > Regards Ron de Bruin > > >> > http://www.rondebruin.nl > > >> > > > >> > > > >> > > > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... > > >> > >i have a diary , i would like it to open at the specific date every time i > > >> > > openen the file.PLEASE HELP> > > >> > > > >> > > > >> > > > > > > >

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 15.08.2006 14:12:52 Then your sheet name is not Diary Maybe there is a space after the sheet name -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:ECB21E0E-29E7-4572-86E2-DD1F368AF999[ at ]microsoft.com... [Quoted Text] > Sub Find_Todays_Date() > Dim FindString As Date > Dim rng As Range > FindString = Date > With Sheets("Diary").Range("B:B") > Set rng = .Find(What:=FindString, _ > After:=.Cells(.Cells.Count), _ > LookIn:=xlFormulas, _ > LookAt:=xlWhole, _ > SearchOrder:=xlByRows, _ > SearchDirection:=xlNext, _ > MatchCase:=False) > If Not rng Is Nothing Then > Application.Goto rng, True > Else > MsgBox "Nothing found" > End If > End With > End Sub > > > Hi Ron > still a run time error in 9 .At line with sheet name and colunms. > > "crusty53" wrote: > >> Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is >> named"Diary" and the colunm is "B:B" >> >> "Ron de Bruin" wrote: >> >> > Hi >> > >> > Copy the macro in a normal module >> > >> > 1. Alt-F11 >> > 2. Insert>Module from the Menubar >> > 3. Paste the Code there >> > 4. Alt-Q to go back to Excel >> > 5. Alt-F8 to run the subs >> > >> > >> > Note :My Sheet is names "Sheet1" >> > Test the macro first and I help you to run it automatic >> > >> > -- >> > Regards Ron de Bruin >> > http://www.rondebruin.nl >> > >> > >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... >> > > Ron, thanks,but this is a bit too advanced for me.But if you have time i >> > > would like to explore it further.Please a bit more of an explanation as to >> > > what your reply means and how i go about performing what you told me.Your >> > > humble beginner crusty. >> > > >> > > "crusty53" wrote: >> > > >> > >> Yes it has a column were the date is entered every day. >> > >> >> > >> "Ron de Bruin" wrote: >> > >> >> > >> > Hi crusty53 >> > >> > >> > >> > Do you have column where you enter the date each day ? >> > >> > >> > >> > -- >> > >> > Regards Ron de Bruin >> > >> > http://www.rondebruin.nl >> > >> > >> > >> > >> > >> > >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message >> > >> > news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... >> > >> > >i have a diary , i would like it to open at the specific date every time i >> > >> > > openen the file.PLEASE HELP> >> > >> > >> > >> > >> > >> > >> > >> > >> >

Re: opening a worksheet at a specific point crusty53 15.08.2006 22:56:02 You are a genius Ron Problem solved. Now how do i get it to run automaticly. "Ron de Bruin" wrote: [Quoted Text] > Then your sheet name is not Diary > Maybe there is a space after the sheet name > > -- > Regards Ron de Bruin > http://www.rondebruin.nl > > > > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:ECB21E0E-29E7-4572-86E2-DD1F368AF999[ at ]microsoft.com... > > Sub Find_Todays_Date() > > Dim FindString As Date > > Dim rng As Range > > FindString = Date > > With Sheets("Diary").Range("B:B") > > Set rng = .Find(What:=FindString, _ > > After:=.Cells(.Cells.Count), _ > > LookIn:=xlFormulas, _ > > LookAt:=xlWhole, _ > > SearchOrder:=xlByRows, _ > > SearchDirection:=xlNext, _ > > MatchCase:=False) > > If Not rng Is Nothing Then > > Application.Goto rng, True > > Else > > MsgBox "Nothing found" > > End If > > End With > > End Sub > > > > > > Hi Ron > > still a run time error in 9 .At line with sheet name and colunms. > > > > "crusty53" wrote: > > > >> Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is > >> named"Diary" and the colunm is "B:B" > >> > >> "Ron de Bruin" wrote: > >> > >> > Hi > >> > > >> > Copy the macro in a normal module > >> > > >> > 1. Alt-F11 > >> > 2. Insert>Module from the Menubar > >> > 3. Paste the Code there > >> > 4. Alt-Q to go back to Excel > >> > 5. Alt-F8 to run the subs > >> > > >> > > >> > Note :My Sheet is names "Sheet1" > >> > Test the macro first and I help you to run it automatic > >> > > >> > -- > >> > Regards Ron de Bruin > >> > http://www.rondebruin.nl > >> > > >> > > >> > > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... > >> > > Ron, thanks,but this is a bit too advanced for me.But if you have time i > >> > > would like to explore it further.Please a bit more of an explanation as to > >> > > what your reply means and how i go about performing what you told me.Your > >> > > humble beginner crusty. > >> > > > >> > > "crusty53" wrote: > >> > > > >> > >> Yes it has a column were the date is entered every day. > >> > >> > >> > >> "Ron de Bruin" wrote: > >> > >> > >> > >> > Hi crusty53 > >> > >> > > >> > >> > Do you have column where you enter the date each day ? > >> > >> > > >> > >> > -- > >> > >> > Regards Ron de Bruin > >> > >> > http://www.rondebruin.nl > >> > >> > > >> > >> > > >> > >> > > >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message > >> > >> > news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... > >> > >> > >i have a diary , i would like it to open at the specific date every time i > >> > >> > > openen the file.PLEASE HELP> > >> > >> > > >> > >> > > >> > >> > > >> > > >> > > >> > > > >

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 16.08.2006 14:47:45 Keep the macro in the normal module We now use a event that run when you open the workbook When you open the workbook in run your macro in the normal module Private Sub Workbook_Open() Call Find_Todays_Date End Sub You must copy this event in the Thisworkbook module Right click on the Excel icon next to File in the Worksheet menu bar Choose view code Paste the event there Alt-q to go back to Excel See also http://www.cpearson.com/excel/codemods.htm -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:E3C09060-1DB4-45F5-9BFC-65DF93D7017D[ at ]microsoft.com... [Quoted Text] > You are a genius Ron Problem solved. > Now how do i get it to run automaticly. > > "Ron de Bruin" wrote: > >> Then your sheet name is not Diary >> Maybe there is a space after the sheet name >> >> -- >> Regards Ron de Bruin >> http://www.rondebruin.nl >> >> >> >> "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:ECB21E0E-29E7-4572-86E2-DD1F368AF999[ at ]microsoft.com... >> > Sub Find_Todays_Date() >> > Dim FindString As Date >> > Dim rng As Range >> > FindString = Date >> > With Sheets("Diary").Range("B:B") >> > Set rng = .Find(What:=FindString, _ >> > After:=.Cells(.Cells.Count), _ >> > LookIn:=xlFormulas, _ >> > LookAt:=xlWhole, _ >> > SearchOrder:=xlByRows, _ >> > SearchDirection:=xlNext, _ >> > MatchCase:=False) >> > If Not rng Is Nothing Then >> > Application.Goto rng, True >> > Else >> > MsgBox "Nothing found" >> > End If >> > End With >> > End Sub >> > >> > >> > Hi Ron >> > still a run time error in 9 .At line with sheet name and colunms. >> > >> > "crusty53" wrote: >> > >> >> Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is >> >> named"Diary" and the colunm is "B:B" >> >> >> >> "Ron de Bruin" wrote: >> >> >> >> > Hi >> >> > >> >> > Copy the macro in a normal module >> >> > >> >> > 1. Alt-F11 >> >> > 2. Insert>Module from the Menubar >> >> > 3. Paste the Code there >> >> > 4. Alt-Q to go back to Excel >> >> > 5. Alt-F8 to run the subs >> >> > >> >> > >> >> > Note :My Sheet is names "Sheet1" >> >> > Test the macro first and I help you to run it automatic >> >> > >> >> > -- >> >> > Regards Ron de Bruin >> >> > http://www.rondebruin.nl >> >> > >> >> > >> >> > >> >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... >> >> > > Ron, thanks,but this is a bit too advanced for me.But if you have time i >> >> > > would like to explore it further.Please a bit more of an explanation as to >> >> > > what your reply means and how i go about performing what you told me.Your >> >> > > humble beginner crusty. >> >> > > >> >> > > "crusty53" wrote: >> >> > > >> >> > >> Yes it has a column were the date is entered every day. >> >> > >> >> >> > >> "Ron de Bruin" wrote: >> >> > >> >> >> > >> > Hi crusty53 >> >> > >> > >> >> > >> > Do you have column where you enter the date each day ? >> >> > >> > >> >> > >> > -- >> >> > >> > Regards Ron de Bruin >> >> > >> > http://www.rondebruin.nl >> >> > >> > >> >> > >> > >> >> > >> > >> >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message >> >> > >> > news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... >> >> > >> > >i have a diary , i would like it to open at the specific date every time i >> >> > >> > > openen the file.PLEASE HELP> >> >> > >> > >> >> > >> > >> >> > >> > >> >> > >> >> > >> >> > >> >> >>

Re: opening a worksheet at a specific point crusty53 16.08.2006 23:20:01 Ron does the macro box always come up when you open the file and ask you to enable macros.Thanks for all the help it was fantastic and you showed great patience with a newby. One more question please Ron is there a way to move cell comments or notes on a vlookup table to your worksheet with a macro,i know you cant do it in normal excel "Ron de Bruin" wrote: [Quoted Text] > Keep the macro in the normal module > > We now use a event that run when you open the workbook > When you open the workbook in run your macro in the normal module > > Private Sub Workbook_Open() > Call Find_Todays_Date > End Sub > > You must copy this event in the Thisworkbook module > > Right click on the Excel icon next to File in the Worksheet menu bar > Choose view code > Paste the event there > Alt-q to go back to Excel > > See also > http://www.cpearson.com/excel/codemods.htm > > > -- > Regards Ron de Bruin > http://www.rondebruin.nl > > > > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:E3C09060-1DB4-45F5-9BFC-65DF93D7017D[ at ]microsoft.com... > > You are a genius Ron Problem solved. > > Now how do i get it to run automaticly. > > > > "Ron de Bruin" wrote: > > > >> Then your sheet name is not Diary > >> Maybe there is a space after the sheet name > >> > >> -- > >> Regards Ron de Bruin > >> http://www.rondebruin.nl > >> > >> > >> > >> "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:ECB21E0E-29E7-4572-86E2-DD1F368AF999[ at ]microsoft.com... > >> > Sub Find_Todays_Date() > >> > Dim FindString As Date > >> > Dim rng As Range > >> > FindString = Date > >> > With Sheets("Diary").Range("B:B") > >> > Set rng = .Find(What:=FindString, _ > >> > After:=.Cells(.Cells.Count), _ > >> > LookIn:=xlFormulas, _ > >> > LookAt:=xlWhole, _ > >> > SearchOrder:=xlByRows, _ > >> > SearchDirection:=xlNext, _ > >> > MatchCase:=False) > >> > If Not rng Is Nothing Then > >> > Application.Goto rng, True > >> > Else > >> > MsgBox "Nothing found" > >> > End If > >> > End With > >> > End Sub > >> > > >> > > >> > Hi Ron > >> > still a run time error in 9 .At line with sheet name and colunms. > >> > > >> > "crusty53" wrote: > >> > > >> >> Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is > >> >> named"Diary" and the colunm is "B:B" > >> >> > >> >> "Ron de Bruin" wrote: > >> >> > >> >> > Hi > >> >> > > >> >> > Copy the macro in a normal module > >> >> > > >> >> > 1. Alt-F11 > >> >> > 2. Insert>Module from the Menubar > >> >> > 3. Paste the Code there > >> >> > 4. Alt-Q to go back to Excel > >> >> > 5. Alt-F8 to run the subs > >> >> > > >> >> > > >> >> > Note :My Sheet is names "Sheet1" > >> >> > Test the macro first and I help you to run it automatic > >> >> > > >> >> > -- > >> >> > Regards Ron de Bruin > >> >> > http://www.rondebruin.nl > >> >> > > >> >> > > >> >> > > >> >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... > >> >> > > Ron, thanks,but this is a bit too advanced for me.But if you have time i > >> >> > > would like to explore it further.Please a bit more of an explanation as to > >> >> > > what your reply means and how i go about performing what you told me.Your > >> >> > > humble beginner crusty. > >> >> > > > >> >> > > "crusty53" wrote: > >> >> > > > >> >> > >> Yes it has a column were the date is entered every day. > >> >> > >> > >> >> > >> "Ron de Bruin" wrote: > >> >> > >> > >> >> > >> > Hi crusty53 > >> >> > >> > > >> >> > >> > Do you have column where you enter the date each day ? > >> >> > >> > > >> >> > >> > -- > >> >> > >> > Regards Ron de Bruin > >> >> > >> > http://www.rondebruin.nl > >> >> > >> > > >> >> > >> > > >> >> > >> > > >> >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message > >> >> > >> > news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... > >> >> > >> > >i have a diary , i would like it to open at the specific date every time i > >> >> > >> > > openen the file.PLEASE HELP> > >> >> > >> > > >> >> > >> > > >> >> > >> > > >> >> > > >> >> > > >> >> > > >> > >> > >> > > >

Re: opening a worksheet at a specific point "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 17.08.2006 16:12:39 Hi crusty53 If you only open files you trust that you can set your security to Low Tools>Macro....Security Another way is to sign your macro's Read this reply from Gord Dibben Check out Help on Digital Signing and use the Self-Cert utility which allows you to sign your projects on your own computer only. Self-cert digital signatures are not exportable as are paid-for ones from Thawte and Versisign. Go to Start>Programs>Microsoft Office>Office Tools and build a selfcert from there. [Quoted Text] > One more question please Ron is there a way to move cell comments See the code on Debra's site http://www.contextures.com/xlcomments03.html#CopyAdjacent -- Regards Ron de Bruin http://www.rondebruin.nl "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:683905EE-5025-4B12-A4BC-F5747DE2FCEE[ at ]microsoft.com... > Ron does the macro box always come up when you open the file and ask you to > enable macros.Thanks for all the help it was fantastic and you showed great > patience with a newby. > One more question please Ron is there a way to move cell comments or notes > on a vlookup table to your worksheet with a macro,i know you cant do it in > normal excel > "Ron de Bruin" wrote: > >> Keep the macro in the normal module >> >> We now use a event that run when you open the workbook >> When you open the workbook in run your macro in the normal module >> >> Private Sub Workbook_Open() >> Call Find_Todays_Date >> End Sub >> >> You must copy this event in the Thisworkbook module >> >> Right click on the Excel icon next to File in the Worksheet menu bar >> Choose view code >> Paste the event there >> Alt-q to go back to Excel >> >> See also >> http://www.cpearson.com/excel/codemods.htm >> >> >> -- >> Regards Ron de Bruin >> http://www.rondebruin.nl >> >> >> >> "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:E3C09060-1DB4-45F5-9BFC-65DF93D7017D[ at ]microsoft.com... >> > You are a genius Ron Problem solved. >> > Now how do i get it to run automaticly. >> > >> > "Ron de Bruin" wrote: >> > >> >> Then your sheet name is not Diary >> >> Maybe there is a space after the sheet name >> >> >> >> -- >> >> Regards Ron de Bruin >> >> http://www.rondebruin.nl >> >> >> >> >> >> >> >> "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message news:ECB21E0E-29E7-4572-86E2-DD1F368AF999[ at ]microsoft.com... >> >> > Sub Find_Todays_Date() >> >> > Dim FindString As Date >> >> > Dim rng As Range >> >> > FindString = Date >> >> > With Sheets("Diary").Range("B:B") >> >> > Set rng = .Find(What:=FindString, _ >> >> > After:=.Cells(.Cells.Count), _ >> >> > LookIn:=xlFormulas, _ >> >> > LookAt:=xlWhole, _ >> >> > SearchOrder:=xlByRows, _ >> >> > SearchDirection:=xlNext, _ >> >> > MatchCase:=False) >> >> > If Not rng Is Nothing Then >> >> > Application.Goto rng, True >> >> > Else >> >> > MsgBox "Nothing found" >> >> > End If >> >> > End With >> >> > End Sub >> >> > >> >> > >> >> > Hi Ron >> >> > still a run time error in 9 .At line with sheet name and colunms. >> >> > >> >> > "crusty53" wrote: >> >> > >> >> >> Hi Ron, Did as directed ,i get a run time error at 9,i think my sheet is >> >> >> named"Diary" and the colunm is "B:B" >> >> >> >> >> >> "Ron de Bruin" wrote: >> >> >> >> >> >> > Hi >> >> >> > >> >> >> > Copy the macro in a normal module >> >> >> > >> >> >> > 1. Alt-F11 >> >> >> > 2. Insert>Module from the Menubar >> >> >> > 3. Paste the Code there >> >> >> > 4. Alt-Q to go back to Excel >> >> >> > 5. Alt-F8 to run the subs >> >> >> > >> >> >> > >> >> >> > Note :My Sheet is names "Sheet1" >> >> >> > Test the macro first and I help you to run it automatic >> >> >> > >> >> >> > -- >> >> >> > Regards Ron de Bruin >> >> >> > http://www.rondebruin.nl >> >> >> > >> >> >> > >> >> >> > >> >> >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message >> >> >> > news:9CD98FB5-48F9-4A45-82EA-A00664E81C7C[ at ]microsoft.com... >> >> >> > > Ron, thanks,but this is a bit too advanced for me.But if you have time i >> >> >> > > would like to explore it further.Please a bit more of an explanation as to >> >> >> > > what your reply means and how i go about performing what you told me.Your >> >> >> > > humble beginner crusty. >> >> >> > > >> >> >> > > "crusty53" wrote: >> >> >> > > >> >> >> > >> Yes it has a column were the date is entered every day. >> >> >> > >> >> >> >> > >> "Ron de Bruin" wrote: >> >> >> > >> >> >> >> > >> > Hi crusty53 >> >> >> > >> > >> >> >> > >> > Do you have column where you enter the date each day ? >> >> >> > >> > >> >> >> > >> > -- >> >> >> > >> > Regards Ron de Bruin >> >> >> > >> > http://www.rondebruin.nl >> >> >> > >> > >> >> >> > >> > >> >> >> > >> > >> >> >> > >> > "crusty53" <crusty53[ at ]discussions.microsoft.com> wrote in message >> >> >> > >> > news:83F9426B-DC70-41F6-91CD-37B24DE49D59[ at ]microsoft.com... >> >> >> > >> > >i have a diary , i would like it to open at the specific date every time i >> >> >> > >> > > openen the file.PLEASE HELP> >> >> >> > >> > >> >> >> > >> > >> >> >> > >> > >> >> >> > >> >> >> > >> >> >> > >> >> >> >> >> >> >> >> >>