VBA How To Merge Two Macros
I have two macros and I would like to assign them both to one button. How to make a connection between these two codes in VBA?
the macro should first sort the columns: A and B and then compare them. Here are two codes that need to be connected:
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
When I paste the second code below the "Sort" code, the whole code doesn't work like it should.
View Complete Thread with Replies
Related Forum Messages:
Macros: Merge Into One Template
The company I work for have several templates in the map xlstart.
They want that all the macros that are present in these templates can be merged into one template.
Is it possible to do that without using VBA?
Because they want a solution that everyone can use without knowing a thing about VBA.
Macros To Clean, Summarize, And Merge Reaction Time Data Files
I need to use to prepare for analysis a large set of individual participants' Excel data files collected using a psychological reaction-time experiment (a modified Stroop task). This experiment was created using a program called Superlab by Cedrus, so I posted an inquiry at the Superlab forum [url]. Their tech support suggested I might need to use macros in Excel but couldn't offer further assistance. I'll try to briefly describe (a) our Stroop task, (b) the operations I'm trying to carry out, and (c) the format of the individual Excel files,
Our Stroop task: The participant gets some instructions and practice trials, then a series of stimulus words are presented one word at a time in the center of a computer monitor in one of several colors. Word presentation order is randomized for each participant. The participant must press a key corresponding to the color of each word as quickly as possible. For each keypress (including the spacebar, pressed on instructions screens), the reaction time (in msec) is recorded in their Excel spreadsheet under the 'Reaction Time' variable. The 'Error Code' variable indicates whether the participant pressed the correct (C) or incorrect (E) color key in each trial. There are 8 types of words for a total of 48 trials. (Actually, 4 sets of emotion words and 4 sets of control-animal words, each set composed of 6 words each. The task basically measures how much peoplesí attention is captured by emotionally relevant cues in the environment.)
For each participant's data, I need an efficient way (macros?) to:
(1) clean it [i.e. discard or ignore the instruction & practice trials as well as trials where the participant was too impulsive (reaction time < 100 msec), too distracted (rt > 3000 msec), or gave the wrong color response (Error Code= E)]
(2) determine whether enough valid trials remain for further analysis (>39 trials), and if so:
(3) calculate a mean reaction time score for each of the 8 word types [where denominator for each word type is based on # remaining (non-discarded) trials for that word type]
(4) merge each participant's summarized data as single rows in a common spreadsheet (for importation and further analyses in SPSS), like this:
ID#...... MeanRTW1.......MeanRTW2...... (etc. for word types 3-8)
Excel File Format: I've attached a sample file, and here's a simplified overview of a spreadsheet (irrelevant columns and some rows removed). First the ID number is recorded (e.g., 393E), then some unnecessary junk (exp name & date, intro, practice, instructions), then data for the 48 actual trials of interest:
3 Wed Jan 1, 12:33:00 2008
6 Trial Name.....Trial No..... Error Code.....ReactionTime
7 introduction..... 1................C............561243
8 practice.......... 2................C............... 2062
9 red-worried........14.............C................1001 (*the first practice trial)
10 (9 more practice trial rows, deleted here)
20 red-chicken......19..............E............... 1205
* (46 more actual trial rows, deleted here)
-The variable 'Trial Name' indicates nominally what stimulus was presented for each trial.
-The variable 'Trial No.', indicates the unique numerical marker for each stimulus word. (It probably should have been labeled 'Word Type'. It doesn't reflect the order of stimulus presentation. E.g., the word "tense" is always 'Trial No.' 32 for all participants, regardless of when it presents.)
-A subset of actual trial words (e.g., worried) were also used for the 10 practice trials. Thus, the 10 practice trials must first somehow be discarded or flagged to be ignored before calculating average reaction times for the remaining 48 actual trials.
Version 4 Macros And Vba Macros In Them
how to use excel 4 macros. I do not even know where to put them. I have inherited some spreadsheets that have both Xcel 4 Macros and vba macros in them. (Well, I get a warning that I cannot switch them off when I disable macros on opening a workbook). I cannot even find the offending version 4 macros so that I can re-code them in VBA.
How To Merge Cells W/ VBA
I say reluctantly because it seemed easy enough that I should have been able to locate it in the help file of VBA. Which leads me to believe I do not know how to search effectively in VBA, yet/still.
how to merge cells w/ the use of VBA.
Below is my Post and Answer by EE ....
Merge Cells In VBA
Is it possible to merge cells in VBA? I tried this:
Worksheets("Sheet1").Range(A1,B2).Merge = True
I also tried this:
Worksheets("Sheet1").Cells(A1,B2).Merge = True
This is in a blank spreadsheet.
VBA To Merge Four Workbooks Into One With Header Row
I have a client that I process their data every Monday and am already using some VBA code on it. I receive their data in four workbooks that have the same name every week.
and the files are put in the same subdirectory every week:
What I'd like to do is run some VBA code that would automatically look in this subdirectory for the four files and merge the rows of account data (rows 2 - the last used row and columns A - S) from these four workbooks into one workbook and have the header row from any of the four workbooks (they're all the same) placed in the new "merged" workbook at row 1.
Could anyone provide to me the VBA code that would do this?
VBA Code And Macros
I'm trying to teach myself VBA code and macros, and I can't work out where the code should go. Do I double click on the worksheet, and put the macro code there, or do I have to create a 'module' and put the code there? I have tried to find online tutorials but I really need a 'for idiots' guide.
Ambiguous Name. Can A VBA Combine 2 Macros
I've got two macros that work beautifully apart from one another ... but put the two in the same Excel workbook and they bump heads. I get the infamous "Ambiguous name detected: Worksheet_Change"
I know enough about VB to get myself into trouble. So, I'm asking for help from a talented person to show me how to combine the two ... or another work around to get through this.
Here are the two sets of code in my sheet that I think are causing the ambiguous name problem. How can I work around this error?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varFind As Variant
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column 2 And Target.Column 9 Then Exit Sub
If IsEmpty(Target) Then Target.Interior.ColorIndex = 0
If Target.Column = 2 Then
Set varFind = Columns(16).Find(What:=Target.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
If varFind Is Nothing Then
Target.Interior.ColorIndex = 0
Target.Interior.ColorIndex = Cells(varFind.Row, 16).Interior.ColorIndex
VBA - Using 2007 Macros In 2000
I have made a couple of Macros in VBA for 2007 that resize re-font etc a graph, and another one that exports te graph as an image. I want to use these macros on a few other machines but they are running older versions of Excel and i get an error when i try and use the macros.
Would someone mind taking a look and showing me how to adapt them to work in excel 2000/2003
Attribute VB_Name = "Module11"
Attribute ModifyChart.VB_ProcData.VB_Invoke_Func = "u
ActiveChart.ChartArea.Width = 900
ActiveChart.ChartArea.Height = 600
ActiveChart.ChartArea.Interior.Color = RGB(233, 233, 233)
ActiveChart.PlotArea.Interior.Color = RGB(233, 233, 233)
If ActiveChart.HasLegend Then
ActiveChart.Legend.Font.Name = "Verdana"
ActiveChart.Legend.Font.Size = 16
Disable Macros On Opening Using Vba
I have created an Excel template that the company sends out to suppliers to provide us with Quotations. I've added some VB in the Before Save module to prompt the user to do certain things. The problem I have is that I run another procedure that loops through a list of data and re-formats it using the template and therefore every time it tries to save a file the Before Save prompt pops up.
Vba To Enable Macros And Hide Certain Sheets
1) Force user to enable macros.
2) keep three worksheets very hidden all the time.
3) passwrd protect vba
I have been using this code to force user to enable macros but this unhides all sheets other than "macros not enabled" sheet. I need three worksheets to remain very hidden all the time. How do I do this.
Dim ws As Worksheet
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Macros Not Enabled").Visible = True
For Each ws In Worksheets
If ws.Name "Macros Not Enabled" Then ws.Visible = xlVeryHidden
Private Sub Workbook_Open()
For Each ws In Worksheets
If ws.Name "Macros Not Enabled" Then ws.Visible = True
Worksheets("Macros Not Enabled").Visible = xlVeryHidden
Security Prompt Even After Deleting Macros Using VBA Code
I have used the following Macro that deletes the Macro code. It then saves the file and quits excel.
Dim awcl As Integer
Dim count As Integer
Dim i As Integer 'loop counter
On Error Resume Next
count = ActiveWorkbook.VBProject.VBComponents.count
For i = 1 To count
Set awi = ActiveWorkbook.VBProject.VBComponents.Item(i)
awcl = awi.CodeModule.CountOfLines
awi.CodeModule.DeleteLines 1, awcl
Set awi = Nothing
However when I open the Excel File, I still get the Macro Prompt. I have checked in Macro list as well as in VB Editor and no Macro code exists
If I have the file manually (or do a save as) and then reopen the file, I no longer get the Macro prompt.
I have tried various examples listed in different forums/sites but nothing works.
Copy Entire Worksheet Including All Macros And VBA Code
I need to copy my worskheet multiple times to create about 10 of the same worksheets within a workbook. I know if you click in the very most top left hand corner of the worksheet, then click copy, go to the new worksheet and click paste, it copies the whole page, but it does not copy over the VBA Code.
Also, for some reason, it does copy over my macro buttons, but does not put some of them in the right spot?
Assign 2 Macros To 1 Button (or Adding VBA Code To The Existing Macro)
I'm verrry new to editing VBA code and I've been trying to figure out how to send a column of data ("Min Data" AB3:AB21 from "Sheet1") to a worksheet ("F4" - Min) and sending another column of data ("Max Data" AC3:AC21 from "Sheet1") to a different worksheet ("F4" - Max) by using only the one button ("Record Data" from "Sheet1"
I've been trying to figure out ways to edit the VBA in "Module 1" to make this work
Can anyone help me out here? If what i'm asking for isn't clear enough, just let me know and i'll try to explain in more detail.
VBA To Delete Formulas, Names, & Macros Of Another Workbook, But To Keep Values
I want to delete names, formulas, macros of another workbook. For example, A.xls is my codes workbook. From this file, I want to delete the names, formulas, macros (but to keep the values & formatting in tact) of another workbook (there must be a prompt for which .xls file, the names etc. to be deleted). All files are in a same folder.
Run VBA Macros In Specific Order, Turn Off Calculations & Force Calculation Of Range
I have a VBA method that goes thru and calculates a bunch of stuff and puts this calculated info into a static data structure. This method is called 'setProjectInfo()'. This method is reliant on values on my worksheets, So as the user makes changes to the worksheet, I want setProjectInfo() to get called so it refreshes the data structure with updated information. I then have a bunch of helper methods to access different parts of this data structure. These helper methods are used in the formulae of a bunch of cells on a worksheet (ie '=getPercentComplete(period)', etc, etc).
This is all working well except for one thing. Sometimes the helper methods get called BEFORE setProjectInfo() gets called.. So, the helper methods return stale information. I can only get around this by manually recalculating the spreadsheet again. setProjectInfo() does enough stuff and takes a long enough time that I don't want to have to call it at the top of each helper method.
I've put the call to setProjectInfo() in a cell formula at the top of the my spreadsheet in hopes that Excel would know enough to call it first.. But that does not seem to work. Net, how can I get VBA to always call setProjectInfo() BEFORE it calls any other VBA methods?
Hiding Macros From The Run Macros List
Is there a way to hide a macro from the list where you choose which to run, but not in the VBA editor? The userbox I just created calls upon 2 different macros, and has a macro to bring up the userbox. I need a way to hide the macros in Module3 from selection, but keep the macros in Module4 available to choose to run.
Enable/Disable Macros When No Macros Are Present
I have a user that keeps a maintenance log in an Excel worksheet and sends an updated copy once a week to a board member. Two weeks ago, the board member started complaining that he was prompted to enable/disable macros on opening and became worried when my user stated that no macros were used in the book. He is now concerned that we have sent him a virus.
I know the file is clean because I've scanned it, and when I look at the file in VB, there are no modules or classes present just the Sheets 1-3 and the ThisWorkbook file. None of these objects have any code in them. My user does have some macros in PERSONAL.XLS but they are not used in the workbook in question.
No one else gets the prompt for enabling/disabling macros. Even if I set my security to prompt for any macros, I get no message. I'm convinced that there must be some setting in his Excel that is causing this individual to get this message. Is there anything else other than a macro that would cause this?
Macros Really Slow The Another Macros Is Run
I have two macros. Macros 1 opens another excel file, counts the number of rows it has, inserts that number of rows into the master file and then copies the data over. Key code as follows (x3 for 3 worksheets)...
For k = 1 To numrows
Macros 2 'cleans' the appended data by systematically going through each row, checking if certain cells have data, and if not deletes the rows. Key code as follows (x3 for 3 worksheets)...
For l = lastrow To 12 Step -1
If WorksheetFunction.CountA(Range("B" & l & ":C" & l)) = 0 Then
Rows(l & ":" & l).Select
edelrows = edelrows + 1
Here's the weirdness. macros 1 runs fairly quick the first time out (few seconds). Macros 2 takes about 2 minutes to run (which I'm fine with). However, when I run macros 1 AFTER running Macros 2, Macros 1 goes from taking a few seconds to a few minutes.
I need to merge for worksheets (in the same workbook) into 1 large worksheet.
Is there a command that does this? Or do you guys have a custom macro that does this?
Merge All Workbooks In One
I have 5 worksheets, representing data from 5 days, M-F. On a weekly basis I open all 5 files and manually copy, and paste all into one large weekly file. Does not take very long so I am probably just being lazy but if I could find a simple solution to merge all 5 into one quickly it would be great.
The one solution I was planning on implementing was to cycle through all OPEN workbooks, copy the data into a new workbook, and close each workbook as the copy and paste is done. This will work but to me its 'dirty'. Each workbook only has one Worksheet.
Merge Cells ....
I have sheet and this kind of data in two colums:
2 continues in different
3 rows in B column.
1 I want to
2 merge this
3 text in single
1 1 in A column
2 means a new row.
1 How can
2 I do it,
3 maybe with
1 Again new row.
There are over 30000 rows in my sheet. So there must be way to do it some other way than manually with copy-paste method.
I am a teacher and my department uses Excel for grades. We need to be able to print grade reports for students. We currently use a mail merge to do this, but some teachers are having a hard time with this process. They don't seem to understand using the two programs together.
Merge Cells ..
I have a rather large amount of data that comes to me very frequently in a bit of a mess and I have a need to somehow do the following:
I need to look for a cell that has date text in the format of 3 characters for the month followed by a four digit year i.e.Apr 2009 or Sep 2009 along with one marked YTD.
The cell then needs to be merged with the 2 adjoining cells to the right.
This heading structure repeats itself frequently over about 700 hundred rows so it will need to repeat itself until all date looking cells and YTD's have been merged with the 2 adjoing cells.
Merge Many Files Into One
1. I have a master file (master.xls), currently empty
2. I have 80 excels files (all look a like but their worksheet name are different)
3. I would like all the data from these worksheet to be appended to master.xls with a click of button.
4. I tried using some codes from this forum but they did not work.
5. All the source file starts with ums bla bla.xls
Merge Two Worksheets ...
Is there any way that you can combine two worksheets or Excel files, for example:
WORKSHEET_1 has columns and values as:
WORKSHEET_2 has coulms with NO values as:
I want to take the info from WORKSHEET_1 and insert it into WORKSHEET_2 without specifying any columns since WORKSHEET_1 might sometimes have only 1 column and sometimes might have all 5 columns.
The purpose of this is to create a standardized Excel file that I need to import into a Database, however the users might have Excel files without all the columns required therefore I need to "standardize" the worksheet before being imported and have any black values import as NULL into the Database
Merge 2 Spreadsheets?
I want to do....is...a macro or something....to be like "Hey...were going to match up column information based on the first column, there exists both the same data in both sheets....as you can see in A3 and A2, now, I want to be able to add the information that is in book1, into the "DBL approved", so like...the 2nd row, I want columns B-G to be filled via book 2 because its saying,
"okay, A3 in DBL has the data 00-120-01, but there exists no data next columns over...but oh look, A2 in Book1 does, let's fill in that missing information!" so now it'll fill in the bullet points, brand, segment, etc."
Merge The Cells...?
I've got a workbook with a ton of worksheets in it. Every worksheet has 4 columns a, b, c & d that I want to merge so that column a will be the contents of the 4 cells above seperated by _ so it will become a_b_c_d. not sure if im explaining this right but i think you'll get what i mean. i need to do that for every worksheet in the workbook
Merge Two Strings And Use Them As A Name?
For example: I want to sort through a a bunch of textboxes and refer them to certain cells. I know I can have a string "TextBox" and then the looping number "nbr" and merge them into for instance TextBox1. But I can't figure out how to use this as a command. Like
Merge Two Formulas
I have these two formulas in my excel that are being used to "prepare the data from a web query. Basically what I want to do is strip a number such as x.xxxxx to only x.xx and change to dot to a comma so that the end result it will be x,xx.
So far i have two formulas: =MID(A1,10,4) and =SUBSTITUTE(A5,CHAR(46),CHAR(44)) and I want merge these (or find a better solution).
Merge Files ...
I have two files that need to be merged together (file1 & file2). These two files have three columns each. One column on both files is the same. This column is labled "phone number". One file has more lines the other has less.
I would like to make a macro that will check file1 against file2. If it finds a phone number the same it will cut the whole line and append staring in column 4 to same line in file1.
Merge One Worksheet With Another
I have two worksheets with large amount of data.
Sheet 1 gives Store locations (approx 1000) and various types of revenue, (eg each Store Location may have many different rows of Revenue - Putney - Sales
Putney - Sundry Income
Putney - Donations
Sheet 2 gives Type of Store
Puntey - Charity
I want to merge the sheets so that I can see Store location, Store Type and Different Revenues. eg Putney - Charity - Sales
Putney - Charity - Sundry Income
Putney - Charity - Donations
I want the representant to fill the form we have with number 1 or 0. The only things, it's some time My cells are merge for visual aspect of the form. I made it work with a single cell but now I'm facing a wall for merge cells. This is the code for a single cell:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I9")) Is Nothing Then
Cancel = True 'Prevent going into Edit Mode
If Target = vbNullString Then
Target = "1"
Target = vbNullString
Merge Two Data Files
Right now I need help mergng 2 files:
#1 One is a txt file with emails
#2 the other is a .csv excel file which contains several fields: email, name, address, etc
Basically what I need to do is to create another .csv excel file that contains all the emails in file#1 that are also present in the file #2 plus their corresponding additional fields ( name, address ) etc
i need to create a macro that is dynamic.
i have attached a example on here.
My main idea is that i have to select the rows/column to compare that they are the same for the selected column then concatenate and merge.
In my example, i wan Column B be like Column D... but in the end i wan it to be like Column F if they are the same.
Check Value - Merge And Count
I have a file with about 10,000 rows, each containing a column with a number, a date, text, text, number, number. that order, about 10,000 times.
Now I have the great honor to check all these entries for duplicates (done), BUT, and this is where it gets tricky, some entries values are exactly the same.
A - B - C - D - E - F
5 - 2009/01/01 - Bill Gates - Microsoft - 5 - 13
5 - 2009/01/15 - Bill Gates - Microsoft - 6 - 17
How do I manage to get Excel to count me that there are 2 entries, and then merge them together into one, but still showing me "2" in another colum?
A - B - C - D - E - F - H (!)
10 - Date does not matter - Bill Gates - Microsoft - 11 - 30 - TOTAL 2 entries
The date does not really matter and can actually be deleted. Anyway, I have been playing with CountIF but without success. any ideas?
Merge Wordlist Without Duplicates
I have a worksheet containing of column A and B. I want to remove the duplicate words and merge their meanings without having duplicates in merged meanings.
I want to remove the duplicate words in Column B and merge their meanings.
The new wordlist should be then in Col. D and the merged meanings in Col.E:
Result should be:
Col. D...........................Col. E
I have a code for this problem but unfotunately it allows duplicates in E. I will be very thankful if some could help me out with that. I want the code not to allow duplicates in column E.