I have a workbook with loads of various worksheets,, which is shared between a group of us.
What i want is that each time the workbook is opened it always starts on the same worksheet called 'main'.
get a message box pop up upon opening of workbook no matter that tab its saved at.
View 3 Replies View Relatedhow does one run code, particularly to rearange some columns upon opening a worksheet?
If A > D Then
{A=D
B = E
C=F}
and
{D=A
E = B
F=C}
End If
Is it possible to have a text box and a macro button that when a user enters a name of a folder (or part of the name) on say the c: drive it takes you there? Example being i have a folder called Alcan Inc on my c: drive, so i type in the text box alcan and click the macro. it then opens a windows explorer screen with the folder open.
View 2 Replies View RelatedI'm having an issue with a worksheet that I created. Apparently, every time that I go to open it, it gives me a Grey blank screen. Yet, I know the worksheet is behind this Grey screen. I went to full screen and I can see the work sheet in full view, but it always opens in this Grey screen. I'm not sure why its doing this, no other worksheets open in this matter. I have tried reinstalling excel and it still didn't fix this problem. But it is only happening with one particular worksheet. I'm sure it is just a setting that I might have changed, but I can't figure it out. The file isn't corrupt because the macros still work, I tested them.
View 7 Replies View RelatedI'm having a problem to use the macro for opening a specific worksheet in a workbook. My plan to setup the workbook to open the first worksheet no matter which worksheet that was last saved and close.
What i have in mind is like below macros but it is not working.
Private Sub Workbook_Open()
Worksheets("Main").Activate
End Sub
Attached is the sample for the workbook. Test file.xlsm
Anyone who opens my sheet, has to feed his/her name which will be appeared in a particular cell.I am using the below code.
View 12 Replies View Relatedhow to update a function when opening worksheet. I made
View 4 Replies View RelatedI have this VBA work fine for me but I want to chage this to when it copy then it select active sheet and active cell.
Sub test()
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
[Code]....
I wish to send a message when a worksheet is manually opened, but not when it is activated from within VBA.
The following code does not work, and I am open to suggestions
Private Sub Worksheet_Open() ....
I have the following code, which I use to open up a .xls file generated from Crystal Reports:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim fexport1 As String ' variables for the exported file
Dim fexport2 As String
Dim wb1 As String 'variables to change between the opened workbooks
Dim wb2 As String
strTemp = "Please Choose The Exported File"
MsgBox strTemp
fexport1 = Application.GetOpenFilename("Excel Files (*.xls), *.xls)")
If InStr(fexport1, "False") = 0 Then
Workbooks.Open fexport1
wb1 = ActiveWorkbook.Name
Else
strTemp = "Operation Canceled"
End If
The problem is that Crystal Reports generates the file with an invalid worksheet name (it contains a backslash) and I do not have access to modify the Crystal Report. Althought the file can be automatically repaired by Excel when manually opened, the macro chokes and the "Application.DisplayAlerts = False" does not fix it. The only solution I can think of is renaming the worksheet without opening the file.
if you open a workbook & choose not to enable macros, is there any way to later change your mind & set macros to enabled without having to close & reopen the workbook?
View 9 Replies View RelatedI would like the workbook to open to a specific worksheet everytime it is opened regardless of what worksheet it was in when file was saved. Can someone point me in the right direction?
View 2 Replies View RelatedI have software that exports to an excel file. The files are one or two page reports. The way the software dumps the reports into excel, it comes out looking pretty rough. The rows and columns aren't spaced very well, the fonts look like garbage, and nobody likes them.
I would like to apply formatting changes to these reports automatically without the end user having to do anything. So as soon as the document is opened up it bolds the column headers, adjusts column widths etc. The reports are auto generated so no formatting can be done when the reports are made.
There may also be different formatting done to different reports. The files will come out named something like, "Report_A_DDMMYYY.xls, Report_B_DDMMYYY.xls," etc. Report A, and Report B will likely need different formatting.
I'm not opposed to using VBA or whatever might be necessary to make this happen. I can learn anything I need to pretty quickly, I just don't know where to start with this.
I have a workbook that contains worksheets whose sheetnames are specific to each day of the month ie: 1st 2nd 3rd 4th 5th, and so on up to 31st. I am trying to write an workbook open procedure to check the day of the month and match it to the relevant worksheet so it will open to that day. for example if opened today being the 25th, i want the code to unhide sheet named 25th and select it, whilst all other sheets bar one is hidden.
View 5 Replies View RelatedI am trying to have an operation run when opening the Workbook. The UserForm opens fine, but I get an error when the GoButton_Click sub runs. The error file is not very comprehensive.
The user is promoted to 'Delete' or 'Cancel' before the sheet is deleted. I do want to select 'Delete' for the user, but I'm not sure how to do this.
The error mentioned occurs after the user selects 'Delete'. The error is:
Run-time error '-2147417848 (80010108)':
Automation error
The object envoked has disconnected from its clients.
VB:
Option Explicit
Private Sub UserForm_Initialize()
Me.Choices.List = Array("Choice 1", "Choice 2")
End Sub
Private Sub GoButton_Click()
If Templates = "Choice 1" Then
[Code]....
I have a workbook with two worksheets, "Main" and "Control".
Both of them are with hidden tabs (unchecked "show sheet tabs").
On worksheet "Main" I have command button which opens worksheet "Control".
The assigned makro is: Sheets("Control").Select
The problem is: when I open "Control" and close after that the workbook, the next time when I open the workbook "Control" pops-up instead of "Main" even though I do not save it.
1. I need macro on "Main" which will allow me to open "Control".
2. Regardless I "Save" or "Don't Save" "Control" when selected and workbook is closed, to open the workbook always displaying worksheet "Main".
I use Excel 2007 (at home) & 2010 (at office).
I have an Excel 2003 program that contains macros. One of the macros hides certain command bars and disables the worksheet menu bar. On close the opposite is true. The problem is, if a user uses the disable macros when opening then the worksheet menu bar and other command bars are still available. I would like to hide all of the data sheets and display another sheet that would normally be hidden displaying a message that the macros have to be enabled for the program to work correctly if disable macros is chosen. When the enable macros are used I would like the Error page to be hidden.
View 6 Replies View RelatedI have a need to open a file from my companies intranet. My current method was to open said file via the method that the recorder gave me. However, I would like ot be able to open a said file without having to start open another workbook.
This is the path:
[url]
So the command is this:
Workbooks.Open [url]
Links are not actual links
So what I need to know. Is how can I open this file without opening a workbook. I haven't been able to use the VB "Open Statement" to open a file and I don't believe that I've been successfull using the Filesystem object either.
How do you open IE6.0 from VBA
I tried:
Dim IntApp As Object
Set IntApp = CreateObject("Internet.Application")
With IntApp
' Change file name to suit
.Documents.Open Filename:="http://web addr/"
.ActiveDocument.Select
.Selection.Copy
End With
Get error: ActiveX component can't create object
I am using the following to code with a warning message. However this warning message appears each time the macro is run? Can this be modified in such a manner so that it will show the warning message only once for first time it is run on each opening of WB?
Sub mln()
Dim a
a = MsgBox("Please note that this will replace formulae with value.So you are requested to run this on a copy of the file.", vbYesNo + vbExclamation, "Important")
If a = vbYes Then
For Each c In Selection
c.Value = Application.WorksheetFunction.Round(c / 1000000, 2)
Next c
End If
End Sub
i've been working on VBA for a file that i'll be sending out to a bunch of people. There are three questions that i want answered after the file is opened...not allowing them to proceed until they enter data.
1. Please enter Management Unit.
2. Please enter GL Account. (US only)
3. Please enter Earnings Code. (Non US employees)
The first question MUST be answered with a 6 digit number. The 2nd and 3rd may or may not be answered. simply hitting is acceptable.
After that i would like the answered populated in 3 rows below the lastrow in column B. thus, if there is data in B50, then answer 1 in B53, answer 2 in B54, and answer 3 in B55.
And if "MU:" could proceed the answer to 1, "GL:" before answer 2, and "EC:" before answer 3.
I have a workbook that contains 50 worksheets named 1-50. I need to add more worksheets. all the formulas in the worksheets always refers to the previous worksheet.
How can i make a copy of the worksheet named 50, name it 51 and have all the formulas in worksheet 51 refer back to worksheet 50?
i have a macro that performs the same search in many websites, opening a new ie window for any site. What i want now is opening a new tab in IE instead of a new window. To illustrate, here go some code:
VB:
Dim PartNo As String 'Declaro la cadena de texto que determina la busqueda
Public Sub BuscarPLCCenter()
Dim IE As InternetExplorer
[Code]....
I would like that all of these procedures opened a new IE tab to do the search, cause actually it opens like 15 windows at a time and is not user friendly enough.
I have just added some code to make my workbook close after it has been inactive for 5 minutes...this works fine except it opens itself up again after 5 minutes. If I select 'Enable Macros' it closes immediately and if not, it will stay open.
Here is all of the code I put in for the auto shut down:
ThisWorkbook:
[Code]....
Module 1
[Code] ....
I currently have a workbook that, when opened, automatically kicks off a macro (with a call from the Workbook_Open event in ThisWorkbook). I was to run that same called macro from a custom button that I put on a toolbar in Excel itself...which is pretty straight forward. However, when I do this, the macro kicks off twice...once from the button and once because the called macro's workbook opens and kicks off the macro with the Workbook_Open event.
So, what I was thinking was...is there a way to tell if a workbook is being opened by another workbook (by calling it's macro) or whether is was opened "normally (manually)"?
I have about 20 plus workbooks in a folder. Each has 52 sheets, Fridays date, that I want to copy all the data from each sheet.
Is there a way to open all workbooks in a folder and copy all data from on all the various sheets into a single workbook?
I'm trying to gather the info and make a small data base from the various books. I'd like not to have to call each workbook by name as the file names change or get added to.
How can I use VBA to open a .chm file. I tried using many different methods but with no success, i.e. openfilename.
View 6 Replies View RelatedI have a spreadsheet that I need to open two other workbooks to copy and paste data from.
The name of the two workbooks changes each day, and the location because they are filed in subfolders.
I have the following code, which works to open the first sheet but then comes up with the following error when trying to open the second sheet. "Run-time error '1004: Excel cannot access 'Hub PVA'. The document may be read only or encrypted".
The folder is not encrypted because when I was only opening the second document with the same code, it worked.
The code I am using is:
'DECLARATION
On Error GoTo ERR1:
ChDir "G:GENERALTRANSPORTDAILYPLANS"
Workbooks.Open Filename:="G:GENERALTRANSPORTDAILYPLANS"
[Code]....
ive created a spreedsheet for work calculating money etc from different tills. is there a way i can have a box appear when the spreadsheet is opened asking for particular information to be entered.
EXAMPLE: ....