Combining/merging Multiple Rows From One Worksheet Into One Cell In Another Worksheet
Jan 28, 2010
I'm trying to create a macro to merge multiple rows into one cell and display in a new worksheet.
This seems really simple but I've tried to re-work some other examples I've found online but none seem to do exactly what I need. I'm also pretty new to VBA , so it's highly possible i've missed something.
I need to display each set of Notes for each DonorNo in one row - with each note separated by a space.
I've attached a sample of the data and what I need for the output. In the actually file I have around 70,000 records so the prospect manually merging the rows is horrifying.
View 12 Replies
ADVERTISEMENT
Apr 8, 2014
I'm trying to take a single worksheet from a workbook and merge them all into one workbook. In that master workbook I'm looking to have each of the worksheets on different tabs and the tab names as the original workbook name.
So if I have Workbook1, Workbook2, Workbook3, Workbook4 in a folder. I want to open a new spreadsheet, run this macro, select the folder with the Workbooks in, and have it take the range selected from the worksheet 'other' from each of the workbooks and generate a 'master' Spreasheet where each tab would be called Workbook1, Workbook2, Workbook3, Workbook4 and the contents would be from the 'other' tab
I found some of Ron de Bruin's code online which I've tried to customise.
Currently this takes a range from the tab specified, puts it into an array and then pastes it all into different columns on one worksheet. change this so that it creates a new worksheet for each original workbook, and names it after that workbook.
View 4 Replies
View Related
Jun 11, 2014
I am attempting to write code for a macro that can cycle through about 30 excel workbooks and merge the data. getting the raw data on one sheet is not a problem, but I also need to sort similar data into corresponding columns while merging such that all data from the workbooks with a certain column heading will be in a single column with a single heading on the summary sheet. The problem is that the column headings on the source workbooks are not always standardized, i.e. "F high", "high F". Each sheet has several columns that look like the one below, with a header at the top and a series of numbers. (please ignore the dashes, I just used them to line up the columns in this post, in excel each value is in a different cell)
F Low---F High---V Low
721-----999---804
721-----999---0
721-----999---0
711-----720---786
711-----720---713
My vba skills are very basic, so I have been approaching this problem with a mountain of if..else and InStr commands, which doesn't seem like the best method and isn't working.
View 3 Replies
View Related
May 29, 2013
I know there are many ways to create an "All Data" worksheet. Copy & Paste is the most obvious or pasting named ranges into the new worksheet. I have a workbook with 48 tabs with up to 1000 rows of data per sheet. I need to merge each tab into one main "All Data" worksheet.
How to combine these 48 sheets in an easier way than the two options I already know (Copy/Past or Paste Named Range). Any Add-In's to Excel that can possibly do this? I am using Excel 2010.
How to make this "All Data" worksheet combining data from each sheet of the 48 tabs would be most useful.
View 2 Replies
View Related
May 12, 2006
I am trying to do is have a worksheet that gets its information from other worksheets within the same workbook. Some of the worksheets that it gets its data from are web queries, and as such change on occasion (columns stay the same but rows get inserted or deleted as data on the web page that it is importing changes). Also due to this being an import I can not change directly the format that comes onto the sheets (ig split into different columns etc). Much easier described within the example as I am not sure of the words to best describe the end result I am looking for. A copy of a smaller version of what I am doing is attached
View 3 Replies
View Related
Sep 13, 2009
I have a set of related variables that are split over multiple worksheets, and I need to be able to take specific information, duplicate certain values and produce an output sheet for use in a separate piece of software.
The variables are:
Position Number (Sheet 1)
Position Title (Sheets 1 and 2)
Position Requirement (Sheet 2)
Requirement Importance (Sheet 2)
The output sheet requires a list of all the requirements for each position number, which means the position number itself needs duplicating (in new rows) X number of times, where X is the number of requirements assigned. The appropriate requirements are then to be pasted in next to each position number (and the requirements can be found by comparing position number to title, and from title to requirements).
Normally, I’d be able to do this using lookups and so forth, but my problem arises when I have multiple position numbers with the same related title (in the attached example, there are three plumbers with unique position numbers). I can’t figure out how to say to Excel “a plumber has five requirements, and there are three plumbers, so duplicate each position number for each plumber five times, then insert the appropriate qualifications (and their associated importance values) next to the position numbers”.
View 4 Replies
View Related
May 3, 2013
coding a VBA macro for one of my workbooks, in which I need to be able to hide/unhide various rows in one worksheet depending on the value of a cell in a worksheet elsewhere in the workbook. The rows start off hidden by default.
As a simplified example:
Worksheet1 has a cell that has option "Set 1," and "Set 2." Worksheet2 has two sets of rows (say, 20:30 and 40:50) that need to be hidden/unhidden depending on the cell in Worksheet 1. These are hidden to start with!
So if Worksheet1's target cell says "Set 1", then on Worksheet2, rows 20:30 would stay hidden and rows 40:50 would be revealed, and then if the target cell says "Set 2," then on Worksheet 2, rows 40:50 would then be hidden, but rows 20:30 would then be revealed.
I was thinking of using something like this:
Rows("20:30,40:50").EntireRow.Hidden = True
If Target.Address="'Worksheet1'!A1" Then
If Target.Value = "Set 1" Then
Rows("40:50").EntireRow.Hidden = False
Else
Rows("20:30").EntireRow.Hidden = False
End If
End If
I think this might work, but every time I try to run this I get various errors, like not referencing my target cell correctly.
View 5 Replies
View Related
Oct 28, 2009
The workbook has multiple sheets, and a cover sheet. Each project has a sheet and the status, costs, updates ect. are updated to the cover sheet.
Problem:
What happens is there is a cell which has conditional formatting on it, e.g. If text is Green then colour cell green, if cell text is amber then colour amber and if cell text is Red then colour Red. This works fine.
If the cell text is green then I need a number of rows hidden, if it is amber or red then show the rows.
I have found the following
Sub
If Target.Value = 1 Then
Rows(Target.Row).RowHeight=0
Else
End If
End Sub
Which I have changed to:
Sub
If F4.Value = Green Then
Rows("5,6,7,8,9,10.Row).RowHeight=0
Else
End If
End Sub
So this does not work, need to know why and how to make this work for each sheet I am on e.g. ActiveWorksheet?
View 9 Replies
View Related
Jul 22, 2014
I have below code, but does not work correctly. The problem is when it's run in main worksheet, it doesnt match the correct workbook in every worksheet and it only generates the data in first workbook for all worksheets. It seems that it lacks something link between workbook in main worksheet and workbook in others.
Sub HzWb()
Dim bt As Range, r As Long, c As Long
r = 1
c = 8
[Code]....
View 1 Replies
View Related
Nov 18, 2009
In my workbook data.xls i have 3 worksheets - data1,data2,data3
In all these 3 worksheets i have certain datas in range as A1:L60 only.
my 4th sheet in the same workbook is blank.
What i want in this 4th sheet ( sheet4 ) is the combined data in all the three worksheets data1,data2,data3 one below the other with a blank row after each sheet data.
I mean in sheet4 A1:L60 should be data in worksheet data1.
then a blank row - 61st row
then A62:L122 - data in worksheet data2
again a blank row - 123rd row
then A124:L184 - data in worksheet data3.
View 9 Replies
View Related
Jul 16, 2014
Any better way than to look up all 300 + rows and see if row already exist.
I need the macro to look if row A as matching text then see if texte matches in Column B, if yes then add new columns and copy entire row. If no match found add new row and copy content to sheet #2.
I don't want it to overwrite the existing information already in sheet 2
View 3 Replies
View Related
Nov 15, 2013
Count all the true statements in column A (Work) of sheet1 (Checklist), once counted insert that many rows on sheet2 in a specific location, I found a count formula just don't know how to do the insert rows part
Code:
Sub CountRows()
Dim Rng As Range, CountTrue As Long
Set Rng = Sheets("Checklist").Range("Work")
CountTrue = Application.WorksheetFunction.CountIf(Rng, "True")
End Sub
View 3 Replies
View Related
Jun 28, 2007
I'm trying to write a macro that selects file A, copy some particular columns in file A, copy them into a new workbook, then repeat the process for file B, and copy and paste the columns into the same working workbook. Does anyone have any suggestions on using any one of the workbook, worksheet functions to do so?
View 9 Replies
View Related
May 17, 2006
I have set up a control sheet that gathers information over the current week, eg: amount of deliveries and total cost. On the control sheet it gives the amount of deliveries and total like at say A10 and B10, on this same page I have a 52 week colomn that needs to gather this information. Now the problem is a new delivery plan is used each week but the control sheet stays the same, how can I get the data from A10 and B10 to copy to the different lines in the 52 week sheet. Have attached the workbook for reference.
View 2 Replies
View Related
Oct 14, 2008
I have a worksheet with 30,000 rows. But sometimes even if I have fewer records in this worksheet(lets say 1000) worksheet shows the same 30,000 rows.And its annoying when you try to navigate using vertical scroll bar. Is there any option to re-adjust the worksheet to make it more user friendly based on number of rows in current sheet.
View 2 Replies
View Related
Jul 21, 2013
is it possible to Copy Rows to a multiple tabs on a New Worksheet using a start date and end date as reference?
I have a button (named Draw Report) on the Raw Data xls. should copy tickets uniquely on a new workbook, by uniquely - no duplicates on the new workbook on a given date range.
Will it be possible to separate them into tabs according to values under Assigned to (Transaction 1, 2, 3)?
Could we also copy the exact 2nd worksheet (Report) on the Raw Data xls on the Output.xls?
The Output would contain 4 tabs: Report, Transaction 1, Transaction 2, Transaction 3)
View 1 Replies
View Related
Mar 29, 2004
I was wondering if there was a way to arrange the sheet tabs in a workbook to appear in multiple rows, thus negating the need to scroll. I have a workbook with a large amount of sheets and wanted all the sheets to be easily accessible.
If that is not possible is there a way to truncate the visible sheet names so that only the first four or five characters are shown, without actually changing the sheet names themselves?
View 5 Replies
View Related
Sep 7, 2006
This code will hide row 2 across Sheet1, Sheet2 and Sheet3 while recording in the macro record mode but when played back after recording will only hide row 2 on Sheet1. How do I get this code to work?
Sub MultiplePageHideRows()
Rows("2:2").Select
Sheets( Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
Selection.EntireRow.Hidden = True
Range("A1").Select
Sheets("Sheet1").Select
End Sub
View 5 Replies
View Related
Apr 4, 2007
Is it possible to delete multiple rows when the worksheet is protected using vba? For Example Peps - Select a undetermined amount of rows and then use a macro to unprotect - delete the selected rows - protect.
View 5 Replies
View Related
Dec 23, 2013
I have a workbook with 4 worksheet that store different type of data. It also has a userform that load at start of the application which is to search the data in the workbook. The userform has a combobox where the names of the sheets are stored. when the user selects say Sheet2 in the combobox, it enables the relevant textboxes on the userform and activates the worksheet at the change event. The userform has a search button that searches all the worksheets based on the text entered in a textbox.
The problem: how to search based on 1 textbox. What I want is: say for e.g the end-user selects sheet2 from the combobox, this intern enables 4 textboxes (Name, DOB, Nationality, ID #) on the userform. The end-user should have the liberty to enter data in 1 and/or any of the textboxes. The search should be performed, that if data is only in 1 of any of textboxes then give all rows that fit that criteria and display in a temp worksheet. if say the name and dob is filled by the user than what matches both should be displayed in a temp worksheet. if say dob, name and ID# given so the search button should narrow down to fit all 3 criteria and then display result in temp worksheet. As if mentioned data can be entered in either just 1 or any or all textboxes.
E.g. the worksheet is (Columns are Name, Nationality, DOB, ID#)
row 1 = name: Steven Martin, DOB: 27-may-1993, Nationality: Trinidad & Tobago, ID #: 1234567
row 2 = name: Gary Richards, DOB: 2-FEB-1993, Nationality: British, ID #: 456789
row 3 = name: David Cohen, DOB: 27-May 1993, Nationality: American, ID #: 98765
row 4 = name: Roberto McDonalds, DOB 21-Jul-1962, Nationality: British, ID # 654321
row 5= name: Gary Richards, DOB: 01-Dec-1978, Nationality: Australian, ID # 1234567
Now if the user enters only name as "Gary Richards" and search then row 2 and 5 should be displayed in a temp worksheet. if user enters name Roberto McDonald and ID# 1234567 then it should not display anything. if user enters DOB 27-may-1993 and nationality British and ID # 1234567 then as well shouldn't display anything and should a msgbox "no data found".
View 4 Replies
View Related
Nov 26, 2012
How do I populate a second worksheet with only the preselected highlighted rows of cells from another worksheet.
This way I will end up with only the selected data from the first worksheet in the second worksheet.
View 9 Replies
View Related
Jun 22, 2006
I would like to be able to select several non-sequential rows in a worksheet called "Data" (using a check box or just entering a value in Column A) and then be able to press a Command button to copy the selected rows to another worksheet called "Estimate" at the bottom of a table, and delete the designators in Column A (i.e. deletes the value, or unchecks the boxes) so I can repeat the process again if needed.
View 7 Replies
View Related
Apr 5, 2009
combining two worksheet change codes. I have the following
View 4 Replies
View Related
Jul 6, 2009
I have several workbooks (called Cons_age0, Cons_age3, Cons_age6 and Cons_age12) that I would like to combine into one workbook called Cons. Each of the previous workbooks should now be a worksheet within Cons by their name.
View 6 Replies
View Related
Feb 17, 2010
I have about 600 patients' charts, which I audit every 3-6 months. I have created a macro which imports each patient's workbook into a single workbook (one worksheet per patient). Now I'm trying to create a macro which will import each patient's most recent audit results onto one worksheet. Here's how the results are organized:
2/1/2010 Audit 3/1/2010 Audit 4/1/2010 Audit
Y N N/A Y N N/A Y N N/A
x x x
x x x
...etc., with each audit taking up 3 columns and 32 rows. My code, however, is not working,
View 9 Replies
View Related
Feb 12, 2007
If a cell in some parts of the worksheet (SSMa,SSDi,SSWo,SSDo,SSVr,SSZa,SSZo in the code) are selected the input (4 digits) should be converted into time (00:00).
Cells in some other parts (Util,Assis) require 6 digits and should be converted into time (00:00:00).
I had the code working in seperate worksheets but combined (as is shown in code bellow) only part of it works.
Only the input entered into the 4 digit part (SSMa,SSDi,SSWo,SSDo,SSVr,SSZa,SSZo) is converted correctly.
The input in the other parts (Util,Assis) is not converted (so when 800 is entered I do not get 00:08:00 but I get the hour equivalent of 8 days (19200:00:00) and logically the message from the EndMacro "You did not enter a valid time".
The cell formats are correct [u]:mm and [u]:mm:ss.
To me it looks like it does not jump to the 6 digits part when need but I can't figure why.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("SSMa,SSDi,SSWo,SSDo,SSVr,SSZa,SSZo,Util,Assis")) Is Nothing Then
Exit Sub
End If
If Target.Cells.Count > 1 Then..........................
View 9 Replies
View Related
Apr 8, 2009
I have seen all kinds of copying routines, but haven't been able to get what I want.
1. Copy Row contents from activeworksheet
2. The activeworksheet will have various row counts
3. The activeworksheet has row 1 as header.
4. The criteria to use is in the current worksheet columns P through Z
5. The criteria to look for is the word inspect. only the word inspect, not words that contain inspect (i.e. "inspection") should not be found.
6. The word could be in column P and in S, but needs to be only copied once, becuase it has meet the criteria, but it also could only be in c
7. Copying the row into a Sheet named "Inspection"
As a bonus would be cool to be able to copy certain cells or the entire row.
View 9 Replies
View Related
Jun 10, 2013
I'm trying to consolidate data from different worksheets that has the worksheet name consisting of "Pg*" into a summary sheet. The problem is it does not loop through every sheet and only extracts data from the active sheet.
Code:
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Pg*" Then
Set CopyRng = ws.Range("A2:G68")
[Code]....
View 3 Replies
View Related
Jan 21, 2013
I have a monitoring database and I want to create a 'source' sheet in sheet 1 whereby when I enter names into a certain column they rename different tabs/sheets in the worksheet. for example, the name 'Brown' inputted in cell 'A2' would rename sheet 2, Black in A3 would rename sheet 3 etc.
View 2 Replies
View Related
Jul 3, 2013
I worked on a workbook which has multiple worksheets( mine has 6). The data doesn't start from A1. I want to copy the data from each worksheet into a sheet called summary. I want to create the macro that would only copy the heading row once.
WB test.xlsxWB test.xlsx
View 5 Replies
View Related
