I have a table with Sheet "Data" that has a number in D. In cell E, I have set a formula to verify if the number is good. If it is good, it will get 1. I need all numbers that got 1 to go to column A on Sheet "OK". No other sheets are in the file. Would this be easy to do with a macro?!
View 2 RepliesI have an Excel 2010 spreadsheet consisting of many worksheets (20 or so). Each of these worksheets contain detail level data regarding different projects. One of the columns in these worksheets is the 'Status' column (column F). There is conditional formatting on this column where if the text is 'G' then change background to a green color, 'Y'=yellow, 'R'=Red and 'U'=Grey.
The first worksheet is a summary sheet that I would like to pull information from each of the detail worksheet's columns B, D, E, G and H if the status column (Column F) is 'R' or 'Y'.
The number of rows in the detail worksheet can change each week (as few as 0 and as many as 100)
I have an tab with 20,666 rows that I need to separate into different tabs based on what a cell in a specific row starts with.
Data Tab
001-020-002-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-005-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-006-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-007-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
001-020-008-000 Walker River Irrigation DistPO Box 820 YeringtonNV89447
[|Code]...
So what I am looking to do is search the APN row in the Data Tab that starts with the number from the APN # row in the APN Tab and then copy the row to a new/existing tab named after the Description on the APN Tab.
I think that I have explained what I need to do
What I want to achieve: those cells have number 1 ( in column E) , adjacent cell values ( In Column D) are copied to G12 in the following format:: Mark,Lark ( i.e. cell value , cell value, etc)
is it possible ( with a command button) Sample attached
I have a spreadsheet (book1.xls) that has a column with 13 names down the side and 31 other rows (dates of the month)
Mike1 1 2 3 4 5 6 7 8 9
Mike2 1 2 3 4 5 6 7 8 9
Mike3 1 2 3 4 5 6 7 8 9
Mike4 1 2 3 4 5 6 7 8 9 etc
I have selected all 13 rows and 7 days and named them 'week1', and the next 7 days 'week2', the next 7 days 'week3' etc/What i want is to display the named range based on a single cell selection based on a cell value in a different sheet.
The basics of it should be "If cell C1 = 1 then show me 'week1' or if cell C1 = 2 then show me 'week2' etc.
I used this vba code before:
[Code] ......
And it worked perfectly, but now i wanted to use it in an other file but just change the sheets and I keep getting an Error 13.
It should copy the data from sheet insertmeasurements c23 till end of data in the column next to it (is dynamic) and based on cell B1 and the matching category code in column B, put that data in the matching cell in column C to the matching cell (based on the criteria in column B and C) on the sheet storedata.
Attached File : Profitibility Database v1.4.xlsm
I've sent out a survey asking people to sign up for one of two groups, A or B. I have a table with a long string of responses, with the name in column A, and in columns B or C there is an X that shows whether they have chosen Group A (column B) or Group B (column C)
I am trying to write a bit of code where it would paste the names into a new table with the headers Group A and Group B. Here is what I have pieced together so far:
Sub Create_Groups()
For i = 2 To Range("B2").End(xlDown).Column()
If Range("B" & i).Value = x Then
[Code].....
Basically, I need to reformat a set of data (see before and after). A specific column should only contain 1 value, if there is more than 1 value it will be separated by a comma. If this column contains more than 1 set of data then I would need to insert a row and duplicate the information based on how many different sets there are. All the copied data should remain the same with the exception of the "Key" column, it should only have 1 value and each copied row should contain the corresponding value in the key field.
BTW - it could be on the same sheet or a different worksheet (doesn't matter)
BEFORE
Name Number KEY Date
Name1 1 a,b,c 12/1/2011
Name2 2 x 12/1/2011
Name 3 5 one,three 12/1/2011
AFTER
Name Number KEY Date
Name1 1 a 12/1/2011
Name1 1 b 12/1/2011
Name1 1 c 12/1/2011
Name2 2 x 12/1/2011
Name 3 5 one 12/1/2011
Name 3 5 three 12/1/2011
I have values in column C1:C10 that are 8,9 or 10 (representing the months of August, Sept, and Oct). I need to copy a value that occurs in column I if the value in the same row in column C is 8.
E.g. if the value in C1 is 8, then copy the data in I1 to a separate column, and so on for each row in column C.
I need to copy a cell into another spread sheet contingent on whether or not another cell in the row is empty.
For example, I need to copy cell A5 because D5 is empty.. However, if D5 was not empty I would not need to copy A5.
I don't need this macro to loop.
I can select the top cell in column "F" after filtering by multiple columns using VBA and arrays, but now want to I want to use the top cell in column "F" to search for all other equipment that uses this item.
E.g. remove filter, and reapply autofilter to column "F" based on selected cell as per below VBA
Note: Row 1 contains command buttons and row 2 Headers.
I have a spreadsheet that contains office names (Brookside, Blairsville, New Castle, etc) in Column A.
The rows next to those show student names and test scores, etc.
I'd like a formula to take each office and copy the data belonging to that office and paste it to a sheet for that office.
For example:
A B C
Brookside Tom 82
Brookside Bill 90
New Castle Phil 80
I'd like to take Brookside's data and past it to a 'Brookside' sheet.
I'm trying to set it up so that if a particular cell has any data in it, the contents of a different cell get sent to another. I want the no data/data to serve as a trigger.
As an example, if I put anything into cell A3, I want the contents of cell A1 to copy to H1. I'd also like it to be dynamic so that if I put something into cell B3, the contents of B1 get copied to H1, etc.
I have a spreadsheet with two tabs Line Crew and Master Log. I have a macro that searches the Master Log Column H for a value "Line Crew" and if it finds it, it will copy that row (Specified range) to the Line Crew tab. My problem with the macro is that it keeps copying the same row. I would like it to move down to the next row search for "Line Crew" , copy and paste until it gets to the end of Master Log Sheet. I have attached a sample of the spreadsheet. Here is my code:
[Code] ..........
Attached File : Book1.xlsm
WS "Activities" has a list of dates in col B (Inputted as 02/01/2012, 04/01/2012, 01/02/2012 etc.) (Formated as 02-Jan-2012, 01-Feb-2012 etc.)
WS "MonthReport" is where the rows are being pasted Currently the code will paste rows based on the search string in MonthReport("B1") So - If I type 02/01/2012 in B1 it copies all the rows where that is the date.
What I need it to do is be able to search for "January" and then return all the rows where the date is between 01/01/2012 and 31/01/2012. (Or all of Feb, Mar etc dependant on what is in MonthReport("B1")
Private Sub CommandButton1_Click()
Dim LSearchRow As Long
Dim LCopyToRow As Long
[Code].....
I'm looking to pull about 700-725ish lines from a spread sheet (Sheet A) and paste them to a different sheet (Sheet B) based on a cell value.
My information spans from A to R, and the cell I'd like it to check for value is in column G, lets just say the value is "A". Is there a good way to go about this?
vba to copy and insert row based on cell value
I have a spreadsheet with serveral thousand lines. I need to add row(s) and fill-in values based on a value in anothe cell; for example,
Based on the value in Column A, a row(s) needs to be added below the row and a count (value) to B needs to be inserted into the cell in Column B. This step needs to be repeated for all rows to the end of the sheet.
I would want to copy and insert the entire row.
LABELAB110
2
1
I have a list of items with a quantity in the final column. I need the rows to be copied the same number of times as the quantity displayed so that instead of having 1 row with a quantity of 5, it copies this row a further 4 times so that there are 5 rows. how this can be achieved other than manually as is currently the case? I've attached an extract so that you can see what I am working with. Column H holds the quantity (obviously) and ideally should be reset to 1 when the item is copied the relevant number of times.
View 3 Replies View RelatedIs there a macro that can copy the information of any italicize item in Sheet1 to Sheet2 and automatically italicize the item in Sheet3 if the same item exist?
In my attached example:
In Sheet1, B3 to B8 contain information about a restaurant.
I want the macro to copy any restaurant (and its information) that is italicize to Sheet2. And in Sheet3, any restaurant that is in italic in Sheet2 will become italicize in Sheet3 if the name is match. Is there such a macro that can do these things?
I have been working several weeks on producing a macro that can quickly eliminate blank lines in an .xls file which is created by exporting a Crystal Report into Excel. The macro can do that, but the big problem is that it freezes up the users PC for 3-5 minutes. If you go into Task Manager you can observe that CPU usage is at 100%. The .xls files that I am trying to run this macro against are around 50,000 rows long with data in about 10 columns. About 2/3 of those rows are blank. This is an inherent problem when exporting Crystal Reports into Excel. I went to Business Objects website (Crystal Reports) and their solution is simply not an option. They suggest removing If-Then-Else logic. I simply cannot do that because that is the heart of how the report selects data for each row to print in the report.
Below is the code that I wrote with documentation to explain how it works. If you would like to try it I attached an .xls file. It is only 800 rows long so that I could stay under the forum's requirement of attaching nothing larger than a 48.8 kb file. The file has only one column, 800 rows long. You may want to copy and paste it a few times to make it longer. When running the macro it will open a dialog box so that you can go wherever you copied the file, and open it up.
Sub OpenXLSFile_DeleteBlankLines()
Dim fileToOpen As String
Dim lRows As Long
'open dialog box for user to access an Excel file for deleting blank lines
fileToOpen = Application. GetOpenFilename(FileFilter:="microsoft excel files (*.xls), *.xls", Title:="Select an .xls file to open for deleting blank lines...", MultiSelect:=False)
If fileToOpen <> "" Then
Application.Workbooks.Open fileToOpen
End If.......................
have written a macro who can do this job, and offered me to have a look at my data. They are attached
View 4 Replies View RelatedI've schedule header date 1-oct,2-oct,3-oct.....etc and have two cells Last Date and Hours I need from those cells once i add date and hours to copy the hours and paste in schedule header in the exact date..
for example
#
Last date
Last Hours
[Code]....
but was too slow takes long time.
2nd VBA code to copy last hours to schedule date based on condition on last date cell.
I am trying to create a tracking spreadsheet in which modules need to move through certain phases. I have tabs for all appropriate phases. I would like to be able to select from a pull-down the current phase and have the spreadsheet automatically populate the appropriate tab. Ideally, I would like to be able to edit the process in any of the phases and have it backfill as well (ie if the status changes while in phase 3, I don't have to go back to phase 1 to change it, I can edit it in the phase 3 tab and phase 1 will automatically update).
Additionally, I would like it to calculate this constantly not just when the spreadsheet opens.
I have achieved this partially with formulas but I am finding that it is extremely slow and also doens't always update correctly. I also can't get the circular referencing to work so I don't have full capability using the formulas.
Basically lets say I have in cell A1 to A10 floor access data i.e. Users who used their ID cards to access a room.
Now the data always starts with either Rejected or Admitted then the user's name and then the card number and the access floor etc. the card currently has.
What I am looking for is that the macro should first check if the cell has Rejected or Admitted written in it - this I can do myself using =Left(A1,8) which should give me the helper column I need.
Then based on this I want it to only copy the name of the individual i.e. it should look in the cell and only copy whatever is written between "Rejected" and "(Card". The cell data is something like this:
Rejected Doe, John (Card #123456) at ABC 123 Floor1/Floor2/Floor3/Floor4 Door 1 [In] [Clearance]
I would like to sort rows from Sheets 2-6 based on the value in Column G into Sheets with the same name. For example, if a cell in column G states "BluePrint", I would like the entire row to be copied into the tab labeled "BluePrint".
however I have been unsuccessful in adapting the coding to my specific wording.
I am making a workbook for our 4H horse shows. I want to be able to list the kids on the first page and check off (x in the cell) which classes they will be entering and then have the program move their info to each of the specific class worksheets where we will record the results. I'd like to move rows A thru E to each applicable class sheet. I've attached the workbook.
View 6 Replies View RelatedI have data on sheet-1 ("MEAL CHART") that I copy over to sheet-2 (Nutri_DB) daily. The macro below is working for me when I post the data the same day it is recorded. However, I frequently need to post my data the day before or day after it is recorded.
I would like to modify my code below so it copies/pastes the data based on the date in cell B1 (Named range "DATE") not the actual date (today()).
Based on the example and solutions from one of our friends post
http://www.excelforum.com/excel-prog...ell-value.html.
i want to know the code with the same data as posted in THAT example,changing the data slightly like adding "TODAY" & "TOMMORROW" as other key words which will be Cut/Copied as seperate groups one beneath the other.
I had attached the worksheet with the actual data & the final Required format.
I am trying to create a macro to fill Sheet1 cells A1 through P1 down, and I would like it to be filled down based on the number in Sheet2 cell R1.
View 4 Replies View Relatedthe following situation:
I have several worksheets in a file with worksheet 1 containing all the raw data I am working with.
In worksheet 3, I have hundreds of rows containing different texts in column C. Let's call this texttolook4.
I want search for texttolook4 (all rows) in worksheet 1 (column D) and copy the worksheet 1 row if found in a new worksheet.