| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
codename and cell selection
Hi,
I am needing help in the use of sheet codename in VBA. Currently, I've successfully assigned the sheet codename to a string variable and have tested it with a msgbox. I get error messages when the code gets 'below' the msgbox line (into the cell selection area. Does anyone know what the proper syntax is for selecting all cells in a sheet (referring to the sheet with its codename, rather than its worksheet (tab) name)? Thanks for your help, Louis ---------- '\\\\CodeNameString = LCase(wks.CodeName) CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) If CodeNameString = "Sheet1" Then '\\\\LOldWb.Sheets(CodeNameString).Visible = True '\\\\LOldWb.Sheets(CodeNameString).Select LOldWb.Sheets(CodeNameString).Cells.Select |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
codename and cell selection
Since you have a sheet object use that...
'\\\\CodeNameString = LCase(wks.CodeName) CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) If CodeNameString = "Sheet1" Then '\\\\LOldWb.Sheets(CodeNameString).Visible = True '\\\\LOldWb.Sheets(CodeNameString).Select LOldWb.Activate wks.CodeName.Cells.Select -- HTH... Jim Thomlinson "ll" wrote: Hi, I am needing help in the use of sheet codename in VBA. Currently, I've successfully assigned the sheet codename to a string variable and have tested it with a msgbox. I get error messages when the code gets 'below' the msgbox line (into the cell selection area. Does anyone know what the proper syntax is for selecting all cells in a sheet (referring to the sheet with its codename, rather than its worksheet (tab) name)? Thanks for your help, Louis ---------- '\\\\CodeNameString = LCase(wks.CodeName) CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) If CodeNameString = "Sheet1" Then '\\\\LOldWb.Sheets(CodeNameString).Visible = True '\\\\LOldWb.Sheets(CodeNameString).Select LOldWb.Sheets(CodeNameString).Cells.Select |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
codename and cell selection
Thanks - I've altered my code to that below but I get the "Invalid
Qualifier" error. ----- CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate wks.CodeName.Cells.Select |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
codename and cell selection
Sorry... I put in an extra dot...
CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate wksCodeName.Cells.Select -- HTH... Jim Thomlinson "ll" wrote: Thanks - I've altered my code to that below but I get the "Invalid Qualifier" error. ----- CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate wks.CodeName.Cells.Select |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
codename and cell selection
On May 7, 1:22 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote: Sorry... I put in an extra dot... CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate I wksCodeName.Cells.Select -- HTH... Jim Thomlinson "ll" wrote: Thanks - I've altered my code to that below but I get the "Invalid Qualifier" error. ----- CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate wks.CodeName.Cells.Select Thanks I've removed that extra dot, but now it is giving me an 'object required' error message. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
codename and cell selection
Maybe
wksCodeName.Cells.Select should be wks.Cells.Select -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "ll" wrote in message oups.com... On May 7, 1:22 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move- This-.com wrote: Sorry... I put in an extra dot... CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate I wksCodeName.Cells.Select -- HTH... Jim Thomlinson "ll" wrote: Thanks - I've altered my code to that below but I get the "Invalid Qualifier" error. ----- CodeNameString = wks.CodeName Response = MsgBox(CodeNameString, vbYesNoCancel + vbCritical + vbDefaultButton2) 'Msg = CodeNameString 'MsgBox = (Msg) If CodeNameString = "Sheet1" Then LOldWb.Activate wks.CodeName.Cells.Select Thanks I've removed that extra dot, but now it is giving me an 'object required' error message. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Limiting selection in a cell AND linking that selection to a list | Excel Discussion (Misc queries) | |||
| CodeName Referencing Help | Excel Programming | |||
| Codename conflict | Excel Programming | |||
| Change from Column Selection to Cell Selection | Excel Programming | |||
| codename help | Excel Programming | |||
Linear Mode
