Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Set certain things when opening the Workbook
How can I automatically have the following things happen when the user opens
a workbook: 1) Check the Add-in "AnalysisTool Pak" box so it is accessible to the user (accessed manually via Tools Addins). 2) Put the cursor in the 1st cell of the 1st blank row (for data entry). -- Thanks, JoAnn |
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Set certain things when opening the Workbook
JoAnn,
Paste this into the codemodule of the ThisWorkbook object: change the "Sheet1" to the name of the sheet that you want selected. Private Sub Workbook_Open() If Not AddIns("Analysis ToolPak").Installed Then AddIns("Analysis ToolPak").Installed = True End If Worksheets("Sheet1").Select Cells(Rows.Count, 1).End(xlUp)(2).Select End Sub HTH, Bernie MS Excel MVP "JoAnn" wrote in message ... How can I automatically have the following things happen when the user opens a workbook: 1) Check the Add-in "AnalysisTool Pak" box so it is accessible to the user (accessed manually via Tools Addins). 2) Put the cursor in the 1st cell of the 1st blank row (for data entry). -- Thanks, JoAnn |
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Set certain things when opening the Workbook
This works great but we have since added a new 1st column for an
automatically assigned number. How do I change the formula you provided to now go to the first row with a blank 2nd cell? -- JoAnn "Bernie Deitrick" wrote: JoAnn, Paste this into the codemodule of the ThisWorkbook object: change the "Sheet1" to the name of the sheet that you want selected. Private Sub Workbook_Open() If Not AddIns("Analysis ToolPak").Installed Then AddIns("Analysis ToolPak").Installed = True End If Worksheets("Sheet1").Select Cells(Rows.Count, 1).End(xlUp)(2).Select End Sub HTH, Bernie MS Excel MVP "JoAnn" wrote in message ... How can I automatically have the following things happen when the user opens a workbook: 1) Check the Add-in "AnalysisTool Pak" box so it is accessible to the user (accessed manually via Tools Addins). 2) Put the cursor in the 1st cell of the 1st blank row (for data entry). -- Thanks, JoAnn |
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Set certain things when opening the Workbook
Based on column B?
Cells(Rows.Count, 2).End(xlUp)(2).Select HTH, Bernie MS Excel MVP "JoAnn" wrote in message ... This works great but we have since added a new 1st column for an automatically assigned number. How do I change the formula you provided to now go to the first row with a blank 2nd cell? -- JoAnn "Bernie Deitrick" wrote: JoAnn, Paste this into the codemodule of the ThisWorkbook object: change the "Sheet1" to the name of the sheet that you want selected. Private Sub Workbook_Open() If Not AddIns("Analysis ToolPak").Installed Then AddIns("Analysis ToolPak").Installed = True End If Worksheets("Sheet1").Select Cells(Rows.Count, 1).End(xlUp)(2).Select End Sub HTH, Bernie MS Excel MVP "JoAnn" wrote in message ... How can I automatically have the following things happen when the user opens a workbook: 1) Check the Add-in "AnalysisTool Pak" box so it is accessible to the user (accessed manually via Tools Addins). 2) Put the cursor in the 1st cell of the 1st blank row (for data entry). -- Thanks, JoAnn |
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Set certain things when opening the Workbook
Many thanks ... works great!
-- JoAnn "Bernie Deitrick" wrote: Based on column B? Cells(Rows.Count, 2).End(xlUp)(2).Select HTH, Bernie MS Excel MVP "JoAnn" wrote in message ... This works great but we have since added a new 1st column for an automatically assigned number. How do I change the formula you provided to now go to the first row with a blank 2nd cell? -- JoAnn "Bernie Deitrick" wrote: JoAnn, Paste this into the codemodule of the ThisWorkbook object: change the "Sheet1" to the name of the sheet that you want selected. Private Sub Workbook_Open() If Not AddIns("Analysis ToolPak").Installed Then AddIns("Analysis ToolPak").Installed = True End If Worksheets("Sheet1").Select Cells(Rows.Count, 1).End(xlUp)(2).Select End Sub HTH, Bernie MS Excel MVP "JoAnn" wrote in message ... How can I automatically have the following things happen when the user opens a workbook: 1) Check the Add-in "AnalysisTool Pak" box so it is accessible to the user (accessed manually via Tools Addins). 2) Put the cursor in the 1st cell of the 1st blank row (for data entry). -- Thanks, JoAnn |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
when opening an Excel Workbook, another blank workbook also opens | Excel Discussion (Misc queries) | |||
when opening an Excel Workbook, another blank workbook also opens | Excel Discussion (Misc queries) | |||
Opening workbook | Excel Discussion (Misc queries) | |||
Help!!!! Strange things are happening to a Shared Workbook!! | Excel Worksheet Functions | |||
how do i minimize/maximize a workbook from vba? I want to minimize it durring processing to speed things up a bit | Excel Worksheet Functions |