I have a workbook with about 34 worksheets (one for every day plus a few extras). I have a summary sheet which collates all the data from each other worksheet. I have required a "MAX IF" type array formula on this summary sheet which slows everything down.
Is it possible to have the whole workbook in automatic calculation, but set the 'Summary' sheet to manual calculation when I press F9 or click on a button?
I know how to turn off automatic and manual calculation modes manually in excel or through VB. But is there a way to make the automatic calculation mode ignore changes in certian cells? It would be good if you could right click on a cell and turn this on/off as an option. I assume I will have to code this in vb somehow, but I am a novice. Something like:
Sub test123()
For Cells = Value.Range("I7:R22")
Application.Calculation = xlCalculationManual
Like I basically want part of my sheet to be set to manual calculation mode, and partially to automatic...
I have a cell in my spreadsheet that I use to control the size of a column. I formatted the cell as a number and added data validation to make sure the number is greater than zero. Then I realized that I need to also allow for the option of auto sizing the column as well. This would require a data validation list type with something like True and False for the choices.
What I want to be able to do is have it both ways. I want a drop down list in that cell with the options Auto Size or Custom. If Auto Size is selected the cell value gets set to that. If Custom is selected I then want to be able to type in a number.
ddl.png
[URL]
Is there a way to setup a cell such that the value is either an item from the drop down list or, entered directly (depending on the list selection)?
I know I can do it with dependent lists but that would require two cells, one for the auto size mode (true/false) and the other for manual width value.
I have a number of worksheets and need to move data from the same cells of each work sheet to a summary worksheet. I manually entered the cell id's for the first sheet.
Example =Jan!M6, =Jan!N7, =Jan!O9 etc.
I know I should be able to automatically enter these same cells for the remainder of my worksheets with out manually going in and typing each one (there are a lot of entries.) I just can not remember how to do it. The next sheet is named "Feb" and "Mar" etc.
I need a code to be applied to a VB button that will email out a selected worksheet within the workbook, lets say i need to email out sheet5. Is it possible when the button is clicked to bring up my email client, (it's not Outlook) with the file already attached so i just need to add the email address/adresses?
View 9 Replies View RelatedI've pieced together code from a number of solutions on the forum and figured out how to find the files I need to process, but can't seem to figure out the code to actually combine/append each worksheet into a single one. I've searched the "sea of options" on this forum and managed to do one thing well. Pardon all my notes embedded in the code below, but if I don't do it that way, I'll only confuse myself further (which is easily accomplished) ... or lose my notes!
I’m going to run this code from an add-in menu, which is already created and working (yeaah!) … so (I think) I need to have the code either create a file named "Master (Combined).xls" in the target folder ... or ... have a file already created in MYFOLDER and have this code delete all but the header row when the file is opened(???) The "Master (Combined).xls" workbook needs to consist of one worksheet named "Master". I want it to open the current workbook (.foundfiles(i)), select all the data, and append it to the master workbook on the "Master" worksheet (sheet 1). The Master Worksheet in the Master Workbook needs to start out as a blank sheet ... except for the header row. I can add code to put the headers in at the start, if necessary
Sub g_CombineMultWB_AllXLSFiles()
' This Will combine all XLS files located in the
' S:DMSMSPOMSMaster POMS NIIN DataMaster EMALL Data FilesEMALL Excel Folder
' into a single worksheet in a newly created (or previously existing) workbook
'
' LOCATION OF FILES (ACTUAL):
' S:DMSMSPOMSMaster POMS NIIN DataMaster EMALL Data FilesEMALL Excel Folder
Dim i As Integer
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
' Application.CutCopyMode = False ' DO I HAVE THIS HERE FOR A REASON???
On Error Resume Next
Set wbCodeBook = ThisWorkbook
Const MYFOLDER = "S:DMSMSPOMSMaster POMS NIIN DataMaster EMALL Data FilesEMALL Excel Folder"
With Application.FileSearch
.NewSearch
' Change path To suit.............................
I am trying to quickly transfer all worksheets in a directory into one worksheet listing all worksheet names in the tabs in number order.
The formula have so far is below. But it does not name the individual tabs as the worksheet names in no order.
Sub GetSheets ()
Path = "Y:
Filename = Dir(Path & "*.xls")
Do While filename ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
Sheet.Copy After:=ThisWorkbook.Sheets (1)
Next Sheet
Workbooks (Filename) . Close
Filename = Dir ()
Loop
End Sub
The worksheets appear as follows 1982-001, 1982-003 up to 1982-250 ( I want them in single workbook but as multiple tabs in number order)
I have 5 columns of data where each column of data has two number in it separate by a space where the headers for each column is c1, c2, c3, c4 and c5. for example
c1 c2 c3 c4 c5 c6 c7 etc
1 1 1 2 2 2 2 1 1 1
3 3 3 4 4 4 4 3 3 3
etc
where each of these number pairs is under a separate column. The preview option for this forum editor is showing quite a difference between intended presentation and actual..
What I am looking to do is for each line item is to put the content of each row into a single cell with vertical alignment of the pairs of numbers. for example
c6
1 1
1 2
2 2
2 1
1 1
3 3
3 4
4 4
4 3
3 3
where each group of five pairs is in a single cell.
I am looking to do this in as automated an approach as possible. I dont want to have to ctrl-enter for example 4 times for each cell in c6 for 1000 different line items..
I have a list where i enter invoice values lets say on column (A:A)
and i want to calculate all the invoice values each time i enter the values on A:A
for example;
i entered $2500 on cell A1 and pressed enter,
then i entered another figure on A1 let say $500 i want the total value to be shown such as $3000
I need to use the Worksheet Change event in a particular sheet in a specified column which works fine if the data is already there in the sheet and then changed however,the data is in this sheet is actually a Sub-Set of a Main sheet i.e certain filtered records are being copied from Main Sheet and then copied to this IBSL Sheet.
After the data is copied I have to check each record manually and then categorize each record as Fresh , Rebooked , Cancelled , Tranch or On-Hold.....These 4 criterias are added in the Column 38 and the same thing has to be repeated in the column 40 , so when i change the data in the column 38 the same category has to be updated in the same row in the column 40..
But the problem is that the data is first copied from the Main Data Sheet into the IBSL Sheet using a Macro so then this even t gets fired and goes in the DEBUG MODE...
I need this to happen when i change the category manually..I am adding data validation at the same time while copying the data in to the TEMP sheet.
So what can be done to achieve..
How to Automatic open others Workbook when we opened the Master Workbook.
Examp.: I have a workbook (Master.xls), and when this file be opened, and then others workbook (Transactions.xls, Order.xls, etc.) is opened too.
I'm trying to find a way to save a single sheet of an excel workbook and in the same process delete all vba code and shapes from the new single sheet workbook. I was looking around and found this code which does save only the single sheet to a new one sheet workbook but doesn't delete the vba and shape that I have used to assign macros to in the original.
Code:
Sub SaveSheetAsNewBook()
Dim wb As Workbook
Dim InitFileName As String
Dim fileSaveName As String
Dim wshape As Shape
InitFileName = ThisWorkbook.Path & Format(Date, "mm.dd.yy")
[code]....
I have multiple workbooks ( with unique names) under same folder. Each workbook has "Report-Corn" sheet.
I would like to copy cell "P15" from each (workbook-> report-corn -> P15) and paste to Master.xls workbook -> Sheet 1 one after another which is also located under same folder.
What I'd like to have is one workbook, that 2 people can open and both people will see all changes that happen to the workbook.
As an example, there would be a Player 1 sheet and a Player 2 sheet. When you open the workbook you choose which Player you are and then it defaults to your sheet. You can then place your ships and start the game.
Each player would take it in turns to guess a square on the opponents board and then this selection would be sent to the other players sheet and updated automatically.
Most of it I think is quite easy to do - the only tough part being the updating process. Could I do it as 2 workbooks one for each player, (password protected to stop cheating!) and then when a move is made both workbooks are closed, the change is made and saved and the workbooks are re-opened?
Is it possible to have a message box appear after a WorkBook is closed. I have code that automatically closes a work book after a certain amount of inactivity and would like a message box to inform the user what happened.
Sub CloseBook()
Call StopCycle
Unload CloseTimer
Unload EnterPassword
ThisWorkbook. Saved = True
ThisWorkbook.Close
MsgBox "Your Excel Workbook Closed Due to Inactivity"
End Sub
I have been browsing the web trying to find a worksheet event that will automatically open a message box if the user tries to delete the sheet. Is this possible??
PS I do not want them to delete the sheet, so perhaps a message box with a a cancel button
Is there a way to automate the date and time in one cell upon saving? I have seen some posts elsewhere upon this subject, but here is the twist:
this is a shared workbook with each tab allocated for a different person. Each person needs to update their worksheet and have the date and time update upon saving. The date and time would appear in the same cell for each sheet. I am fairly certain that this cannot be done with an Excel formula, so I would appreciate if anybody had any VBA suggestions. (I am just starting to learn VBA
I'm trying to apply the code for accumulating value in a single cell to a range of cells.
I want to use the code found in this thread [URL] ..... but, it only lets me edit "B1" to another single cell. I need my cells G4 to G469 to operate the same way.
How to edit the code so I can include a range or show me a version of the code where I can enter my desired range?
My goal is to take a list of times which are exported from a database into 1 cell and change the string in that cell to become a function that adds all the times....
View 9 Replies View Relatedwant to generate automatic report from excel work sheet
View 1 Replies View RelatedI have a userform, UserForm1, which lives in a spreadsheet called 'Data Entry.xls' There is nothing else on the spreadsheet itself, it's just for the use of a userform.
I would like the user to populate textboxs in UserForm1 but have that update cells in a separate spreadsheet 'Training.xls' in the same directory.
I have this code at the moment to find the next empty row and to input data into it, which is working perfectly to enter data to sheet1 in Data Entry.xls:
[CODE]Private Sub CommandButton1_Click()
eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(eRow, 1) = TextBox1.Text
Cells(eRow, 2) = TextBox2.Text
Cells(eRow, 3) = TextBox6.Text
End Sub[CODE]
How can i modify it so it would do the same thing, i.e find the next empty row and then populate with what the user types in the textbox but in Sheet1 of 'Training.xls'
Would 'Training.xls' need to be open?
I have workbooks in which summary tables are generated by lookup formulas. Tables are on different sheets but all use the same lookup value by referring to a cell on the 'master' sheet. The lookup value appears in cells on all sheets, by reference to the master sheet (e.g. [formula] = mastersheet!$B$2).
The master sheet contains the main summary table and is copied and detached for distribution, using a macro. For practical reasons, this is done in two stages, first copying the sheet within the workbook (to make minor alterations), then moving it to a new book to save and distribute.
This is where the problem arises. After the sheet has been detached, we find that if we now change the lookup value on the master sheet in the original file, the tables on that sheet will update normally, but the cells on other sheets remain frozen at the previous value and the tables on those sheets do not update.
The only way round the problem is by Shift + Ctrl + Alt + F9. (Maybe I should add that all my workbooks are always set to automatic calculation.)
The macro itself is not the cause of the problem; if we follow the same procedure manually, the result is the same. However, if we move the sheet in one step, eliminating the intermediate copying stage, the problem does not arise. But this is evading the problem, not solving it, and I would be reluctant to have to resort to this.
The original problem remains as stated, viz. failure of automatic calculation.
I am looking for a vba where by the default colour of the font for new text typed in any cell of a workbook change to green or red and the default black automatic becomes secondary. The existing text in the workbook in its existing font colour must not change i.e stays in black or red.
View 1 Replies View Relatedhow to merge different workbook in a single excel workbook. E.g. letus one workbook name is ram and another is shyam i want to merge both and make another workbook in excel like ram or shyam or another s..
View 1 Replies View RelatedI 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 code that i use to copy a worksheet of information in one workbook to a worksheet in another workbook. All i need is some guidance on how to copy a second worksheet from workbook 1 to a second worksheet in workbook 2. Should be fairl straight forward.
In the below i am copying the sheet Phone_data to a second work book sheet also called Phone_Data, i would like to include in the same proccess a sheet called Sur_Data from workbook 1 copy to a sheet called Sur_Data_R in the second. All the other features like find next empty row also apply.
I have two workbooks that I'd like to merge together into a single workbook. Or, pull the worksheet out of one and insert it into another.
View 2 Replies View RelatedI have a spreadsheet that has approx 10 different sheets (tabs at the bottom). I want to write a routine that will take one of the sheets, copy it to a new workbook, and email the newly created workbook using Outlook.
I've entered this question once before and got some suggestions that seemed to work for a while. Then it became hit and miss as to whether it worked or not. Now I'm geting a "Can't create object" error everytime. I want to break this one sheet out and send only it because I don't want to send the entire workbook.
I'm looking to run a VBA script that will take all excel spreadsheets within a specified directory and copy a named range "Data" from each worksheet, and place it into a consolidated worksheet.
"Data" array is tentatively B2:B16. However, these files are being sent to many resources to consolidate, therefore the range can change.
Subsequent records added via Column, not by row. So worksheet's 1 data would be A2:A16, and worksheet's 2 data would be B2:A16.
Names of the worksheets are variable, but all worksheets within a given directory will need to put imported.
My VBA skill is about as developed as a 2 year old's language skills. Could anyone assist me?
Macro to collate four workbooks into single workbook.
Sheets in workbooks also to be copied. The sheet 1 of the 4 workbooks should be combined into the sheet 1 of the new workbook. Sheet 2 of the 4 workbooks should be combined into the sheet 2 of the new workbook, and so on.
[URL] ..........