VBA - Copy Range Of Rows With Conditions?
Dec 17, 2012
I'm trying to code a clean up of some data ranges ready for priting / reporting. I need to move filtered data from the source sheet, to a new one.
The issue is, that I need to apply some logic to the rows I filter out, not something I can do with autofilter...
- Only copy rows including and BETWEEN the first and last rows where total count in col 8 is > 0
So in example1, I'd want to copy out rows P6 - 1A
BUT
- Always copy at least 5 rows when there is one value > 0 in col 8
So in example2, I'd want to copy out rows P5 - 1C, ideally...
Total
Boys
Girls
Total
[Code]....
View 3 Replies
ADVERTISEMENT
Jun 4, 2008
Im making a timeplan for projects in our company. Each Sheet is for one month.
So long I only found macros for copying rows if checkbox is true, but without the date condition.
In cell C2 I have the current date shown with today() formula
On the end of the month for example on Sheet called "May" I want that
all rows witch are unchecked that means unfinished (H6;H50 are checkboxes)
are copied to the next Sheet "Juny". This must happen only once a month (on the first day of next month). Example: On Sheet "May" this macro should be run only on 1st of Juny.
The rows should be copied without spaces between rows (if rows 6 and 8 are unfinished in Sheet "May" the next Sheet "Juny" should contain this rows in line 6 and 7).
View 9 Replies
View Related
Feb 21, 2014
I have a sheet of data (Sheet1 below) running into almost 1000 rows. Each month, I get an updated sheet (Sheet2) which has overlapping data with sheet1 (rows starting with N, O, P, Q), new data (rows starting with R, S) and data present in Sheet1 but not in Sheet2 (row starting with M in Sheet1). The columns "Item" and "Quantity" in sheet1 are populated by me and are blank in sheet2. The table below explains the structure.
Sheet1
Name
ID
Date
Item
Quantity
M
231
14/03/2001
egg
5
[Code] .......
It gets tedious to update Sheet2 every month. Is it possible to merge the 2 sheets into a Sheet3 (like below) if Name, ID, Date in each row is an exact match?
Sheet3
Name
ID
Date
Item
Quantity
M
231
14/03/2001
egg
5
[Code] ........
Further, it will make my job much easier, if it was possible to identify rows only present in Sheet1 and add a tag "absent in new" in a new columnidentify rows only present in Sheet2 and add a tag "new" in the new columnidentify rows with matching data in Name, ID, Date in Sheet1 and Sheet2 and add a tag "current" in the new column.
Something like the table below:
Sheet3 (Desirable)
Name
ID
Date
Item
Quantity
Comments
M
231
14/03/2001
egg
5
Absent in New
[Code] ...
View 2 Replies
View Related
Sep 5, 2006
I have this macro to copy a range to another worksheet:
Sub transpose_UPCID() ' Hace el copy y paste transposed en BAUCS de los numeros de UPC"s y
' las cajas ATR
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Sheets("Sales-Inventory").Range("UPC", Range("MK_ID").End(xlDown))
Set rng2 = Sheets("Sales-Inventory").Range("Figure", Range("Figure").End(xlDown))
rng1.Copy
Sheets("BAUCS").Range("C11").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
rng2.Copy
Sheets("BAUCS").Range("C37").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Application.CutCopyMode = True
End Sub
The only problem is that this code copies all the items and I need this code to look into Column A in the Sales-Inventory worksheet. There I have a data validation with a total of six options. I also have six differents worksheets where I need to copy the values based on that data validation. To give you and example, all items containing XX in column A copy to XX worksheet. Something like that.
View 9 Replies
View Related
Jan 28, 2010
I need to copy a specific range A2:F20, down starting row 21, thirty times. But also, I need to add a name at from the list located in the at H1 to H30 of names of (30)product names. How can I list the name available in Col H in column A which in this case will be at A20 then at A30, A40 and so on.
View 4 Replies
View Related
Apr 10, 2014
I want do copy a range and paste to a specific range. So if the copy selection is larger I don't want it to paste the rows that don't fit.
With this code it copy a range and paste even outside my given paste range.
VB:
Range("F33:H60").Select
Selection.Copy
Sheets("7211").Select
Range("F33:H40").Select
ActiveSheet.Paste
View 4 Replies
View Related
Oct 16, 2008
I need to create a variable for the number of rows in a copied range.
The user will copy a range from an external workbook could be any number of rows.
On the target workbook I will be using a User defined Menu button to fire the paste.
I need to know how to count the number of rows that are in the the range that has been copied.
View 9 Replies
View Related
Jul 14, 2006
which I have modified from one that I use before for sheets 1 & 3 (instead of 4&5)
But it isn't working! I have defined a dynamic range in sheet 4, which is the range I want to search (its named "search") should i be using this range in the formula somewhere?
Private Sub CommandButton1_Click()
Dim rngFind As Range
Dim strFirstAddress As String
With Sheet4.UsedRange
Set rngFind = . Find(ComboBox1.Text, LookIn:=xlValues)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Do
rngFind.EntireRow.Copy Sheet5.Range("A" & Sheet5.Rows.Count).End(xlUp).Offset(0, 0)
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If ..................
View 9 Replies
View Related
Jun 17, 2008
I am having trouble with the Find method in Excel VBA.
This is the piece of code that I have written:
Sub NCMVariables()
Dim x As Integer
Dim c As Object
Sheets("Data").Select
With Worksheets("Data"). Range("A1:A60000")
Set c = .Find("USD", LookIn:=xlValues)
If Not c Is Nothing Then
View 3 Replies
View Related
Jun 21, 2008
as per the attached, need to insert those grey rows subject to the following condition :
if current row date <> next row date, .and. current row latitude / longitude <> next row latitude / longitude , insert grey row with date = current row date, else insert grey row next row date
note that the coordinates in the repeated grey rows, for the "Home" location, are the same through the sheet, should be entered by the user, at the beginning of the process, since there will be a spreasheet per user.
date is in column K
latitude / longitude are in columns B / C
this will be of tremendous assistance in automating mileage claim review.
View 8 Replies
View Related
Aug 16, 2007
a macro button on my excel sheet that should do the following.
i have a range (Ex: E3:E46) which is being continuously filled, i need to transfer the information to another sheet depending on column "E", (Ex: if "E3" = "A" paste row to sheet2 if = "B" paste row to sheet3) and so on each row could have another string in column "E".
after the paste is done it should clear the range making place for new entries, that should also be copied finding the next empty cell (it shouldn't delete the old entries)
View 9 Replies
View Related
May 8, 2008
I would like it to scan an entire column (column E) for rows of data that fall into a range of numbers chosen by the user (like maybe a list box or combo box in sheet 1) for example a number greater than or equal to 8 but less than or equal to 15 and copy all of the rows and columns of data across the entire sheet that fit the range from sheet 1 to sheet 2. I would like to use a separate list or combo box for the min and max values in which to search as seen in the example sheet 1 attached. I have tried the autofilters, custom filters and macro recorder with no success as it seems the filters do not like ranges of numbers.
View 3 Replies
View Related
Jun 3, 2008
I have a table in excel with a group of headings. (Serial Number, Model, Description, Repsonsible and a few others) What I would like to do is be able to search every cell within the range of that table. When the user clicks search an inputbox is displayed and you can enter any search term you like. if there is a match within the cell range, i want the entire row (and the heading row always at the top) printed into a new sheet to display results. There may be a match in multiple rows, and id like evrery row displayed.
View 5 Replies
View Related
Jun 1, 2008
i'm trying to create a macro to find any value <> "" from COLUMN B then copy Bx;Cx;Dx and paste into another worksheet with the name of COLUMN A.
And when the cells Cx or Dx is empty should appear 0 into the other worksheet
for example.
sheet1 ..... cell("dx") is empty
a b c d
w 5 3
the macro would copy 5,3,0 and paste into sheet named "w".
i found this code on internet but it's not quite good for me because it copies the hole row. i tried everything to change that but i couldn't.
[url]
(ORIGINAL CODE)
Sub SearchForString()
Dim LSearchRow As Integer
Dim LCopyToRow As Integer
View 9 Replies
View Related
May 8, 2009
This spreadsheet must perform calculations for every line since new items are added every day, so VBA is probably better than copying formulas down every line of the spreadsheet:
With the press of a button, I need to be able to select a range of dates and copy all lines within the range to a seperate sheet with the desired name under the same headings they currently reside under. I have included some modified code that is being used in another spreadsheet that was created for me, but I do not pretent to understand all of it and I no longer work with the creator of the spreadsheet. How do I use a button to open the form for date selections and entering the name of the new sheet, and then use the start button on the form to begin the matching and copying to a new sheet? If there is an easier way I am all for that too.
Also, I need to keep a total of all items by month as well as a monthly and annual average of the Total Item Value on the FY09 tab. This will eventually produce another sheet when a button is pressed to submit as a report. I think part of this answer is in using the MONTH(serial_number) function but I can only get this to work for a single cell. I need to search the entire Distribution 'D' column, match all the months to the FY09 tab to the respective month, and calculate the totals and averages. I think SUMIF may also be needed as well but need the MONTH(serial_number)to work first. If there is a way to code all of this in VBA that would be fine as well.
I have a pivot table on Sheet1 where I am trying to get the totals and averages described above but I am not sure it can do what I need. In column 'B' I need the total number of each item as well as the total number of all items. I tried various formats and adding the totals from the Totals tab but I have not figured it out.
View 7 Replies
View Related
Apr 24, 2009
I would like to delete rows that are based on these conditions: First ,Do a loop from row 2 to last available row. - Delete rows with same column(column B) that has the same value. However I want the last available row with the same ID to remain.
- Delete Rows with any values in found in other sheet column B. When the value taken from the first sheet(ABC) is compared to the column B in second sheet(DEF), if they are equal, the row will be deleted in the second sheet and the rows in first sheet will main. I had attached an simple example with the 2 sheets. The Result are shown in the example.
View 2 Replies
View Related
Apr 25, 2009
I would like to delete rows that are based on these conditions:
First ,Do a loop from row 2 to last available row
- Delete rows with same column(column B) that has the same value. However I want the last available row with the same ID to remain.
- Delete Rows with any values in found in other sheet column B. When the value taken from the first sheet(ABC) is compared to the column B in second sheet(DEF), if they are equal, the row will be deleted in the second sheet and the rows in first sheet will main.
The comparsion of ID are compared between sheet ABC and sheet DEF
(the Highlighted are those rows to be deleted based on those conditions)
The final outcome are shown on col H I J for sheet ABC and col I J K for sheet DEF.
ABC
ABCDEFGHIJ1QtyProduct
QtyProduct
2100111Case 1
100222Case 33100222Case 3
50333Case 1450333Case 1
57444Case 3557444Case 3
150666Case 26200555Case 1
100111Case 17150666Case 2
100888Case 38100111Case 1
231999Case 19100888Case 3
200555Case 110231999Case 1
100112Case 411200555Case 1
100113Case 112100112Case 4
100114Case 2 13100113Case 1
100115Case 114100114Case 2
View 9 Replies
View Related
Apr 24, 2006
Need to sum through an unknown number of row generated by advanced filter at run-time
Formula at C16
Data starts at row 57 (from copy/paste - advance filter)
Last row unknown
Criteria to match in A16
Data to be evaluated in B57:B (row unknown)
Found this formula on microsoft.public.excel.misc
=SUM(A57:INDEX(A:A,MATCH(9.99999999999999E+307,A:A)))
Which I modified formy start row
View 9 Replies
View Related
Nov 8, 2006
Is it possible to close rows based on conditions? e.g if A1 contained Yes or No as the switch to close and a column contains open or closed in each row for the trigger. So if A1=Yes all rows with 'closed' will be hidden, if A1=No then all rows are shown
View 8 Replies
View Related
May 2, 2014
I have an extract of sample data in columns A to E in the attached file.
I would like to create some VBA code to copy across to columns H to K the data in A to D that has that is flagged as "Y" in column E, sorted in descending order of the values in column D. When there is an "n/a" in column D the products should be sorted in ascending order of the product name. I have shown the desired outcome in H2:K6.
View 2 Replies
View Related
Apr 5, 2009
I had attached the excel sheet below. I need to have a macro which will be able to help me to deliver the result ( as attached) as per the raw data (as attached ).I have been cracking my head as there are more than 1000 item for me to be sorted by me daily and several reports with almost the same issue.
description-i will need worksheets to be created for each of the available status on the report and have all the details to be pasted accordingly to the status.this is meant for excel 2003.
View 3 Replies
View Related
Dec 20, 2006
I am attempting to come up with code to copy a row only if columns K:Z are all blank in a row.
I tried using thirteen if statements (it was a messy code) and then using a search code with a For/Next statement and none of them are working. They copy the rows but something keeps bugging no matter how I change them.
View 9 Replies
View Related
Apr 3, 2013
I'm trying to hide rows in an excel sheet based on two stipulations. I want to hide the row if it finds a particular value in column B and a different particular value in column K, otherwise i want it to do continue looping until it has hidden all rows that meet both stipulations.
VB:
Sub hide_loop()
Dim bl As Excel.Range
Dim blrange As Excel.Range
[Code]....
Currently I have tried different approaches, like a Do Loop, but I could not make that work, and this seems closer. The problem I'm having right now is that with this loop it hides everything found in column B regardless of what is in column K. I suspect this is because of the code following the if statement.''
View 9 Replies
View Related
Jan 17, 2013
combining 2 rows of data if certain conditions are met. I have attached an example of my worksheet for reference.
Example.xlsx
What I want to happen is if a number in column J is followed by an "x" then the values in columns AQ and AR should be combined with the row of the same number (e.g. if 236x is in column J2 then the values in AQ2 and AR2 should be combined with AQ3 and AR3 because 236 appears in column J3, the same process needs to be repeated for 237x with 237 etc.).
View 3 Replies
View Related
Jul 20, 2009
I need help with the following conditions. I have attached a sample file with desired results.
Conditions required to delete row:
1Delete Row when cell E is blank (example: Row 6 will be deleted as E6 is blank)
2First character in column 'C' is an alphabet (for example: Row 5 will be deleted as the first character in the cell is an alphabet
3First character in column 'B' is an alphabet (for example: Row 29 will be deleted as the first character in the cell is an alphabet
Special Notes : All characters in column 'B' are not in number format (ex: 555-9999 is general)
There are more than 1500 rows of data that need to be sorted with the above conditions.
View 9 Replies
View Related
Dec 30, 2011
I have the following data
Ticket NumberOriginSectorDescFB DataPax NameClassPointO CCRegionDestin
976533060397MAADXB-DFWCDHJKL3SD RAJESHFirstDFW---
976533060397MAALIT-DFWCDHJKL3SD RAJESHFirstDFW---
976533060397MAADFW-DXBCDHJKL3SD RAJESHFirstDXBUS--
976533060397MAADFW-LITCDHJKL3SD RAJESHFirstLITUS--
976533060397MAADXB-NBOCDHJKL3SD RAJESHFirstNBO--NBO
976533060397MAANBO-DXBCDHJKL3SD RAJESHFirstDXB---
976533060398MAADXB-DFWCDHJKL3SD RAJESHFirstDFW---
976533060398MAALIT-DFWCDHJKL3SD RAJESHFirstDFW---
976533060398MAADFW-DXBCDHJKL3SD RAJESHFirstDXBUS--
976533060398MAADFW-LITCDHJKL3SD RAJESHFirstLITUS--
976533060398MAADXB-NBOCDHJKL3SD RAJESHFirstNBO--NBO
976533060398MAANBO-DXBCDHJKL3SD RAJESHFirstDXB---
I need to delete rows based on following conditions, If,
Ticket number, origin, FB Data, Desc, pax name is same i need to delete all rows except the Row which has Destin filled in. In the above example I need rows only with NBO
Result should be as follows,
Ticket NumberOriginSectorDescFB DataPax NameClassPointO CCRegionDestin
976533060397MAADXB-NBOCDHJKL3SD RAJESHFirstNBO--NBO
976533060398MAADXB-NBOCDHJKL3SD RAJESHFirstNBO--NBO
I need one more criteria to be tested the above result. IF,
origin, FB Data, Desc, pax name is same and ticket no is A1+1 i need to delete the second row
Final result should be
Ticket NumberOriginSectorDescFB DataPax NameClassPointO CCRegionDestin
976533060397MAADXB-NBOCDHJKL3SD RAJESHFirstNBO--NBO
View 2 Replies
View Related
Mar 29, 2012
I need a macro that loops through all rows (With the exception of the first row) and looks for two conditions. If those two conditions are met, I'd like for it to delete the row.
The first condition is if Column O does not contain a certain phrase "VTX" VTX isn't the complete value of the column, it might just be contained within a few other notes in that column.
The second condition is if Col S equals "COMPLETE/FOLLOW-UP IMAGING".
So if these two conditions are met, Col O does not contain the word "VTX" and Col S equals "COMPLETE/FOLLOW-UP IMAGING", then that row should be deleted.
View 9 Replies
View Related
May 14, 2012
I am needing to format a spreadsheet using 2003 which only allows 3 conditional formats, but I have 4 conditions.
I need to highlight the row if column W has a
G - green (colorindex = 35)
R - red (colorindex = 3)
Y - yellow (colorindex = 36)
O - orange (colorindex = 44)
how I can do this?
View 7 Replies
View Related
Jul 1, 2012
I have a sheet caled "Data", with thousands of rows.
I want to delte any rows that have duplicate rows only if the following data is in the same row but if in column A, coloumn C and column H have the same data
A B C D E F H I
w 1 1 3 4 5 6 7
e 1 1 1 3 4 5 8
w 2 1 5 2 5 6 7
The last row would need to be deleted as dupilcates are A C and H
The data is not sorted.
View 3 Replies
View Related
Aug 1, 2008
I need to eliminate the passing jobs, leaving the failing ones so I can do coaching sessions with the guys that are missing the mark.
Conventions of the report:
Each job has a 20 digit job # and is allocated 12 rows worth of information fields unless customer has more than 1 cable outlet with a modem, then the rows increase by 4 for each additional modem
Tech name is repeated after every 12 rows even if within the same job #
On passing jobs, column I will only contain “Yes” (there are blank cells in column I, as not every parameter is checked on every job), failing jobs will contain “No” in column I
Items I need to accomplish:
· Increase column C width to 22 and column E to 25
· Format column C to number, 0 decimal places (to avoid scientific notation)
· Move tech name to beginning of each job # and eliminate repeated names
· Delete all rows plus tech name on passing jobs
· Change cell color to red in rows (columns A-I) that contain “No” in column I
I have highlighted each different job # in different color
John Smith10002934422610200000Outlet 2D - Up Stream SNR274029.4Yes10002934422610200000Outlet 2D - Up Stream Tx365546Yes10002934422610200000Outlet 2D - Down Stream .............................
View 10 Replies
View Related
