Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Favorites.xla
Dick Krusleika, has an add-in, favorites.xla that adds a favorite list
to the File Menu. It limits the list to 9 files, which I have changed to 15 files and thus, this line in the add-in fails to open any files 10 - 15: With CommandBars.ActionControl 'Try to open the file sCap = HandleAmp(Right(.Caption, Len(.Caption) - 3), _ False) On Error Resume Next Set wb = Workbooks.Open(sCap) On Error GoTo 0 I need an or statement, such as: Or sCap = HandleAmp(Right(.Caption, Len(.Caption) - 4), False) but it doesn't work. How do I make it work? TIA Greg |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Favorites.xla
Greg,
Leave the line you want to change alone. Instead, change .Caption = "&" & lCtlCnt & " " & Cell.Text To: .Caption = "&" & IIf(lCtlCnt 9, Chr(lCtlCnt + 87), lCtlCnt) & " " & Cell.Text Also change the line If Application.CountA(rFavs) = 9 Then to If Application.CountA(rFavs) = 15 Then I still haven't figured out the problem with the single file not showing up, but will work on that tomorrow. HTH, Bernie MS Excel MVP "GregR" wrote in message oups.com... Dick Krusleika, has an add-in, favorites.xla that adds a favorite list to the File Menu. It limits the list to 9 files, which I have changed to 15 files and thus, this line in the add-in fails to open any files 10 - 15: With CommandBars.ActionControl 'Try to open the file sCap = HandleAmp(Right(.Caption, Len(.Caption) - 3), _ False) On Error Resume Next Set wb = Workbooks.Open(sCap) On Error GoTo 0 I need an or statement, such as: Or sCap = HandleAmp(Right(.Caption, Len(.Caption) - 4), False) but it doesn't work. How do I make it work? TIA Greg |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Favorites.xla
Bernie, not sure what you mean by "single file not showing up,". All 15
of my files did show up in the Favorites menu, I just couldn't open 10 - 15,because of the: sCap = HandleAmp(Right(.Caption, Len(.Caption) - 3), _ False) The -3 would remove &0[space] and would work fine, but for &00[space], it would ask if I wanted to search for the file and not open, and thus the -4, which I was trying to incorporate, which if I changed the above to: sCap = HandleAmp(Right(.Caption, Len(.Caption) - 4), _ False), files 10 - 15 would open but not 1 - 9. Not sure I needed to clarify, but I hope it helps. Greg |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Favorites.xla
Greg,
Then try code that handles both the 3 and 4 by looking for the space: sCap = HandleAmp(Mid(.Caption, Instr(1, .Caption, " ")+1,Len(.Caption)), _ False) What I meant by a single file not showing up is that if you have only one file in your favorites, it doesn't show up. Not a problem when you have 15 files. HTH, Bernie MS Excel MVP "GregR" wrote in message oups.com... Bernie, not sure what you mean by "single file not showing up,". All 15 of my files did show up in the Favorites menu, I just couldn't open 10 - 15,because of the: sCap = HandleAmp(Right(.Caption, Len(.Caption) - 3), _ False) The -3 would remove &0[space] and would work fine, but for &00[space], it would ask if I wanted to search for the file and not open, and thus the -4, which I was trying to incorporate, which if I changed the above to: sCap = HandleAmp(Right(.Caption, Len(.Caption) - 4), _ False), files 10 - 15 would open but not 1 - 9. Not sure I needed to clarify, but I hope it helps. Greg |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Favorites.xla
Bernie, thank you very much
Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Favorites | New Users to Excel | |||
What's your favorites? | Excel Discussion (Misc queries) | |||
favorites | Excel Discussion (Misc queries) | |||
Favorites in Excel | Setting up and Configuration of Excel | |||
Adding to Favorites | Excel Programming |