Codes To Copy Data With Certain Criteria
Jun 7, 2008
Sir Vog-II/Jindon
I have written mentioned below codes to copy data with certain craiteria can you please see them if these codes need to be improved or concise.
HTML
Sub ayazgreat()
Dim Header
Dim Header2
Dim LastRow As Long
Dim Rng As Range
Header = Array("Region", "Item Issued", "Invoice Date", "Cheque #", "Amount", "Chq Date")
Header2 = "Total"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Sheets("Payment").Copy
ActiveSheet.Shapes("Button 1").Delete
ActiveSheet.Shapes("Button 2").Delete
Rows("1:2").Delete Shift:=xlUp
ActiveSheet.Range("C3:H3").Value = Header
ActiveSheet.Columns("E:H").AutoFit
View 9 Replies
ADVERTISEMENT
Apr 21, 2009
I have "All revenue sheet ",
All Revenue
ABCDEFGHIJK1Sheets Name2UB Revenue4/1/2009115050022009894757619017303IB Revenue4/1/2009115050022009894757619017304SD Revenue4/1/2009115050022009894757619017305KU Revenue4/2/20093184081201027382.4771438035134.46KU Revenue4/3/2009115050022009894757619017307KU Revenue4/4/2009115050022009894757619017308KU Revenue4/5/2009115050022009894757619017309UJ Revenue4/1/20091150500220098947576190173010UJ Revenue4/2/20091150500220098947576190173011UJ Revenue4/3/200911505002200989475761901730
Excel tables to the web >> Excel Jeanie HTML 4
fo which I have developed following codes taking help from Jindon and Krish Codes , which works but a problem is that there is a creteria in Query Sheet in column C, If I write City Name with St Date and En Date it displays result and If I leave C2 blank and only write Strat Date and End Date , it shows nothing, however it shows all cities data from mentioned dates, which to be done by Advance Filter.
HTML Sub Query_1()
Dim a, i As Long, w(), n As Long, LR As Long, c As Long
Dim fDate As Date, sDate As Date, City As String
a = Sheets("All Revenue").Range("A2").CurrentRegion.Resize(, 11)
sDate = Sheets("Query-1").Range("a2").Value
fDate = Sheets("Query-1").Range("b2").Value
City = Sheets("Query-1").Range("c2").Value
View 9 Replies
View Related
Oct 17, 2012
I have a workbook with 3 sheets
Sheet1 - TeamList - Column A is a list of all the team leaders which is used to create a new worksheet for every team. Col B is blank. Column C, D, E are the team lists where teams can consist of anywhere from 10-25 employees.
For example
Column A
Column B
Column C
Column D
Column E
Team Leaders
Team Leader
Employee
Pin
TL 1
TL 1
Emp 1
10001
[Code] ......
Sheet2 "RawHours" A raw data sheet that contains employee hours information
For Example
Employee #
PIN
NAME
Reg
OT
TRN
Stat
Sick
Vac
Berv
2000100
10001
Emp 1
24.00
0.00
[Code] .......
Sheet3 - Template
Basically what I want to be able to do is create a sheet for every team leader and copy and paste there team into the appropriate sheet.
I have the sheet create done by simply copying the template and renaming each sheet using the Team Leaders list from column A from the TeamList sheet. And then I copy the page setup information using the template as well but when it comes to pulling over the appropriate team members in to the appropriate sheet I can not seem to wrap my head around it.
Below is the current code I am using:
Code:
Option Explicit
Sub CreateSheet()
Dim LR, i As Long
Dim shCount As Integer
Dim Sh As Worksheet
Dim Cell As Range
Dim CpySht As PageSetup
[Code] ........
View 3 Replies
View Related
May 5, 2006
I'm trying to convert various codes from one column of an excel spreadsheet into different codes in another column. I was able to accomplish this with "If" statements, however I'm only able to string together seven of these statements in one command. Is there a better way to add formulas for more than seven conversions? Below is a copy of what I've done so far with the seven converts:
=IF(ISNUMBER(SEARCH("WARN",J2)),"Warning",IF(ISNUMBER(SEARCH("PSSNAP",N2)),"Sales",IF(ISNUMBER(SEARCH("WARN",L2)),"Warning",IF(ISNUMBER(SEARCH("2699",L2)),"Warning",IF(ISNUMBER(SEARCH("4004",L2)),"Warning",IF(ISNUMBER(SEARCH("2036",L2)),"Warning",""))))))
I want to add about 15 more codes to convert within this formula but it's maxed out in the format I'm using.
View 3 Replies
View Related
Apr 25, 2007
I have is the formula works as long as there are no blanks in column "A" my situation has changed and I will have blanks in column "A". I've attached the file to show how if you have blanks. I was trying to work through the blanks any help would be a bonus.
View 2 Replies
View Related
Mar 9, 2014
I have problem to copy data from other worksheet. yes, i can do Vlookup or IF function, but it will copy only when key in the formula, and it is not practical to do that if the columns are more that 10.
Situation is like this:
Worksheet 1 - > A1 Customer Name, B1 Amount, C1 Details.
Worksheet 2 -> A1 Customer Name, B1 Completion, C1 Total Cost, D1 Amount, E1 Date, F1 Details
I want to create a formula which will copy automatically all the data 100% completed in Worksheet 2 into Worksheet 1. What i have in mind is using something like this for Worksheet 1:
=IFERROR(INDEX(Worksheet2!$A$2:$F$15,SMALL(IF(Worksheet2!Criteria=100%,ROW(Worksheet2!Criteria)-ROW(Worksheet2!$B$2)+1),ROWS(A$2:A2))),"")
View 5 Replies
View Related
Apr 18, 2014
I have a report extracted from a system but the output format makes it difficult for data manipulation. If order to do that, I need to arrange data to a specific format.
From the attached file:
CopytoAnotherSheet.xlsx
I like to copy data from Col A, B and C from Sheet 1 and represented in a nice order to Sheet2 I have started writing out the steps but finding it hard to continue.
View 14 Replies
View Related
Oct 31, 2008
i need a macro that will copy data according to criteria to another sheet within the workbook,
Raw data is in Sheet "Workings" from range A1:L,???? (not fixed), i need the macro to filter Col b and look for string CBA, CITIAIMS, MIR ASIA, STATE STREET, CITIBANK, REG then copy all data relating to these string to Sheet- " Cash_To_External_Custodian"
Workings
Account CodeCustodianSourceValue DateBreak DateAgeSideCCYLedger AmountStatement AmountAmount DifferenceError TypeQLGACITIAIMSDES21-Oct-0821-Oct-08-6SCRAUD0.0063,115.1163,115.115647366QLGSBQLGACITIAIMSDES22-Oct-0822-Oct-08-7SCRAUD0.0011,665.0311,665.035649060QLGSBQLGACITIAIMSDERIV28-Oct-0828-Oct-08-13LCRAUD100,000.000.00-100,000.005661452QLGACITIAIMSDES28-Oct-0828-Oct-08-13LCRAUD18,274.880.00-18,274.885655105
When pasting data to "Cash_To_External_Custodian", i would like the macro to paste to the required columns as per my screen dump below, as you can see i want the macro to skip Col b ,Starting Range is A6
Cash_To_External_CustodianAccount Code Case RefCustodianSourceValue DateBreak DateAgeSideCCYLedger AmountStatement AmountAmount DifferenceError TypeQLGACITIAIMSDES21-Oct-0821-Oct-08-6SCRAUD0.0063,115.1163115.115647366QLGSBQLGACITIAIMSDES22-Oct-0822-Oct-08-7SCRAUD0.0011,665.0311665.035649060QLGSBQLGACITIAIMSDERIV28-Oct-0828-Oct-08-13LCRAUD100,000.000.00-1000005661452QLGACITIAIMSDES28-Oct-0828-Oct-08-13LCRAUD18,274.880.00-18274.885655105
View 9 Replies
View Related
Sep 28, 2006
Data exists in a workbook's sheet name "0293" in columns A, B, C, & D. If a row's value in column B exceeds zero, the entire row & formatting needs to be added to the bottom of data in a sheet called "Comprehensive" of the same workbook and put 0293 in column E of the same row. What would be the simplest VBA code to copy sheet 0293's data & add it to the "Comprehensive" sheet with the sheet name in column E of the same row?
View 2 Replies
View Related
Sep 26, 2007
I have eight locations that appear on a single spreadsheet/Text file. I need to separate based on the Property ID for each location and then paste the result into a separate sheet for each one. I have arrange the code to look for each property ID and then copy the found data, but I am having a problem. The first find and Copy drops the first row but adds two to the end, so I am getting data for the next company. The second problem is that the second set of found data is appended to the size of the first found set. ( The first set is 3,570 rows, the second set is 2,646 rows. When Resized 6,216 rows are copied ) I can't seem to figure out how to reset the found range.
Sub Test()
Dim RngSize As Long
Dim srtHere As Long
Dim endHere As Long
'Find The First company
RngSize = Cells.Find("337x2", [B1], , , xlByRows, xlPrevious).Row
'Select columns to copy by resizing the found area to include additional Columns
Set b = Range("Test").Find(what:="337X2").Resize(RngSize, 9)
'Copy Found area to the destination........................
View 6 Replies
View Related
Apr 4, 2008
I have a workbook that is used to track job estimates.
What I would like to have is a macro that would search through column N on the original file and if any of the cells have "No RFE" in them - generate a new workbook with only this list that would include any data from columns C-U copied from the original file.
I've been seaching the forum, but so far have had little luck finding something that suits my needs.
View 9 Replies
View Related
May 8, 2008
I need to be able to search column y and rows 5-100 and where cells contain "A" copy and paste entire row to row 110. I am guessing it is really simple but I am obviuosly missing something
View 3 Replies
View Related
Oct 28, 2009
I am trying to compare two sets of data.
I have a set of All zip codes in 10 counties in one worksheet:
ex:
Column 1 / Column 2
30303 / Fulton
30307 / Fulton
30310 / DeKalb
30234 / Cobb
But this sheet has about 300 zip codes
Then in a second worksheet I have dollars by zip
30303 / $10,000
30456 / $56,000
I'd like to make a third column in this sheet that fills in what county. Does anyone know how to search sheet one for the appropriate zip, then stick the word beside that zip into the column 3 secion of the dollars by zip code?
I'd rather not have to search every zip code in the dollars section one at a time. Not all the zip codes in the state are represented in the second sheet, so it's not quite as simple as just lining them up.
View 13 Replies
View Related
Feb 16, 2010
I have data on a worksheet (“Interface”) that I need to copy over 7 other tabs for analysis.
("Module_1", "Module_2", "Module_3", "Module_4", "Module_5", "Module_6", "Module_7").
The linking Field on the Interface tab defines what row I need to paste the data to on Module 1-7. The column headers are the same on both the interface and other tabs (“YES, NO, N/A, BLANKS, STANDARDS MET, STANDARDS NOT MET, NOT APPLICABLE”)
The tab is selected based on the row
Module 1Medication Management
Module 2Privacy
Module 3Process
Module 4Patient Safety
Module 5Medical Records
Module 6Infection Control
Module 7Environment of Care
I’m trying to modify code written for a similar purpose with no luck. This is the code I'm trying to modify. I know I'm not on the right track yet.
View 2 Replies
View Related
Feb 19, 2009
We're working with a large workbook with data from A5:P20000 on sheet1.
I need to be able to pull data from sheet1 to sheet2 based on the invoice number in column A on sheet2.
Sheet2 will have different invoice numbers in column A, some of these invoices numbers are in column H on sheet1. I need excel to find these invoice numbers and copy the data from that row on sheet2 to the row with that invoice number on column2.
Example:
Sheet2 A5 has invoice number 1234457
This same invoice number is located on sheet1 H3400
Need to copy to sheet2 (starting in cell B5) the following cells from sheet1 (B3400, C3400, E3400, G3400, H3400, I3400, J3400, K3400, M3400, N3400).
View 15 Replies
View Related
Oct 16, 2006
Attach is a sample of my project. I have to loop through B9:B80 in sheet("Raw Data") and capture the value of each cell. EG:
* if Value captured is 120A --> check with sheet("SP14F") from the row which contains the same value.
* i have to check that the aperture, outer and inner values of Layer 120A and so on..of the Raw Data sheet is the same as that of in the SP14F sheet.
* if the values are not the same, change the font to red
i understand that this task requires looping and arrays.
View 4 Replies
View Related
Jul 8, 2009
I am trying to do in the title so here it goes. I want a user to be able (on form 1) to enter a list of codes that refer to specific requirements (e.g. code PB114 may mean the user needs to perform a pressure test) and then excel will automatically display the requirement somewhere below. It is going to be somewhat of a database. In otherwords lets say in cell A1 you type in a code, e.g. PB114. In a range of merged cells or somewhere below that cell I want the information "Perform a pressure test" to appear.
View 5 Replies
View Related
Jul 27, 2013
I am working on a project to automate the import of data and fixing the formatting.
The data contains the date in column A and time in column B. The time is in increments of 15 min for each day. The rest of the data is in columns C:F. Some of the dates don't have all of the times within the day (so instead of 96 rows of data per day, there maybe 80 rows). I have a second sheet of just dates and times that has the correct amount of rows for each day. What I need to do is have the rows data that matches in both the date and time column from sheet 1 copied over to the corresponding date and time on sheet 2. Blank data rows on sheet 2 are fine. I have found some stuff on .Find, but the stuff I found was for specific searches.
Example
Sheet 1
7/27/13 12:00 AM 1 2 3 4
7/27/13 12:15 AM 5 6 7 8
7/27/13 01:00 AM 9 10 11 12
Sheet 2
7/27/13 12:00 AM 1 2 3 4
7/27/13 12:15 AM 5 6 7 8
7/27/13 12:30 AM
7/27/13 12:45 AM
7/27/13 01:00 AM 9 10 11 12
View 1 Replies
View Related
Oct 2, 2006
I have a source sheet which contains data. Within this data there is a column (column 3) called Name and I would like to take the data from this sheet and paste it onto a new sheet but in grouped format. So take all instances where it finds criteria 1, then 2 and so on and just paste it on a new line each time it finds a criteria. So far I have the following code to search
Sub loopy()
Dim rngTemp As Range ' the range variable declaration
Dim intCounter As Integer 'counter as integer
' the following loop goes through all the cells in column a up until the last used cell in the column
For Each rngTemp In Range("a1", Range("a" & Rows.Count).End(xlUp))
'increment the counter if the cell has value fridge
If rngTemp = "Fridge" Then intCounter = intCounter + 1
Next rngTemp
MsgBox "There were " & intCounter & " cells equal to Fridge"
End Sub
View 2 Replies
View Related
Aug 13, 2008
I have a have excel problem Im trying to figure out. I have 2 sheets. Sheet1 and Sheet2. I want to copy into sheet1 cell B2 the contents of sheet2 column C row x iff sheet2 column B row x = 1. There will be only one cell in that column equal to 1, so I will be copying that cells(colB; rowx) adjacent cell (colC;rowx) contents. This is what I have so far but it doesnt work. =IF('Sheet2'!B:B=1,DONTKNOW WHAT TO PUT,""))
View 5 Replies
View Related
Mar 31, 2014
Is there any vba codes that can show tab/sheet that is based on the filter selection.
For example:
Cell A1 have a data validation of Apple, orange and Mango
I have 3 tabs named Apple, orange and Mango.
So every time I select Apple on the main in page filter. Apple tab will show. and if orange then orange tab will show.
View 3 Replies
View Related
Dec 15, 2011
I got 2 sheets. (1 called "Revenue", the other "101") in the sheet revenue are department codes (variable 100 to 999) they are situated in row "B". the corresponding data in row "D".
this data needs to be transported to the sheet "101"
in the sheet "101" are put the numbers 100 to 999 in row "A"
in row "B" we need the data from the revenue sheet that is corresponding with the department code.
View 1 Replies
View Related
Apr 27, 2014
I have a worksheet (Data) that lists when pupils are in for Nursery sessions during the week. If they are in they have a 3 (hours) by their name in the relevant columns.
In the AM worksheet I now need to pull through a "register" so under each daily heading I need to pull through everyone that has a 3 next to their name under Monday AM / Tuesday AM / Wednesday AM etc. from the Data sheet. However, I don't want it to copy any blank cells. I then need to do the same for the PM sheet.
View 2 Replies
View Related
Nov 21, 2011
I have a macro that would check data in Column A and validate if a particular number is repeating, then for that number go to column B, Take the Values from there go to a new sheet and paste the values in a row.
CurrencyDateRef CodeIDAccountAmountDes.USD07152011XDVU4315210.4200.C5001.USD-18,606,772.190Distr Payable 07152011USD07152011XDVU4315210.4200.C5002.USD-111,131.450Distr Payable 07152011USD07152011XDVU4315420.4240.C5001.USD18,606,772.190Distr Payable 07152011USD07152011XDVU4315420.4240.C5002.USD111,131.450Distr Payable 07152011
I get the data in the below format
CurrencyDateRef CodeIDAccountAccountAmountDes.USD07152011XDVU4315210.4200.C5001.USD420.4240.C5001.USD-18,606,772.190Distr Payable 07152011USD07152011XDVU4315210.4200.C5002.USD420.4240.C5002.USD-111,131.450Distr Payable 07152011
I need to the macro to get the data not from the second cell.
Below is my macro
Sub test()
Dim idRange As Range, c As Range
Dim uniqueID As String
Dim destSht As Worksheet, sourceSheet As Worksheet
Dim r As Long
Dim i As Integer
Dim map As Object, key, item
[code]....
View 2 Replies
View Related
Sep 4, 2006
I have a workbook with 2 - worksheets "DATA" and "LETTER".
The "DATA" sheet has columns "First Name" "Last Name" "Address"...etc.
The user can enter in either a "X" or a "x" in cells B6:B100 on the "DATA" worksheet.
After the user enters a X or x and hits the macro button I need it to copy certain cells from "DATA" worksheet to "LETTER" worksheet. I have listed a example below.
In this example if a "X" or "x" is entered into B6 on "DATA" worksheet and the macro button is hit, then: ....
View 9 Replies
View Related
May 12, 2008
I need to copy all the work sheets into one single work sheet (mastersheet). The source work sheets are having same column structure. The condition which i need to take care of is that after column 3 if at all there is any data till column 10 then in the destination mastersheet these should be copied in different rows with first two columns repeated. I need to do this using VBA macro.
View 9 Replies
View Related
Jun 2, 2008
Now what I am looking to do is search my spreadsheet for specific criteria and then copy and paste these rows of information to a new sheet.
In my first spreadsheet that I am using as a database, I want to be able to select any entry from the month and copy it to another spreadsheet named for that criteria.
In other words, I want to find every entry for January, copy just that data's rows and paste them to the January spreadsheet, February to February, etc. My date fields are in column A.
I also want to do the same with representatives names found in column B.
This will break down the data for each rep and each month. Using the filter, then copy and pasting would be cumbersome.
View 9 Replies
View Related
Jun 22, 2009
I'm trying to analyse data and summarise it by date (greater than 60 days, and between 30 days and 60 days), by department using the first two digits of department codes, and where there are multi-line order numbers.
View 4 Replies
View Related
May 6, 2014
Data Validation setup: "Allow" is: List "Source" is: =$E$12:$E$15
D___E____F
12__CA__CASH
13__OT__ONLINE TRANSACTION
14__DD__DIRECT DEPOSITE
15__AW__AUTOMATIC WITHDRAWAL
The codes in E column are what is entered in a worksheet range (user cannot see the list). Needed is to show both the two-character code in column E and the text definitions in column F in the dropdown. As data validation now works, users only see the two-character code and are not remembering what the code stands for - they need to see the definition.
Is there a way to show both the two-character code from column E along with the text in column F? When user selects, only the code would be entered in the target cell. (Is data validation the correct technique?)
I have set this problem up in closely located cells to construct the issue. In reality, the validation list is well off-screen from where the user is actually inserting the codes and there are many more codes/definitions.
View 3 Replies
View Related
Oct 18, 2007
I am trying to do away with our traditional "hard copy" book of warranty codes here and I would like to create a sheet with 6 changing combo boxes so I don't have to flip through this dad-burn book all day for codes.
the first combo box would be like "brands" then "type" "model" "section" "item" "repair type" and then like a cell to display a value from a list depending on all 6 previous combo box selections. Similar to those car part websites where you enter your vehichles info to arrive at a part number or price.
View 9 Replies
View Related
