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.
I have been struggling to setup these two workbooks for a bit now, and I can't for the life of me figure out a formula to do what I need to do. Essentially, I have one workbook that contains a list of purchase records for my company, sortable by Date, Vendor, Price, etc. and one workbook that has a sheet for every vendor. What I need is a formula that will search column B for a vendor, Allied Waste for example, and transfer all the information within the rows for every instance that vendor is found to the new workbook.
This is basically just a way where I can input information once in one workbook, where the sheets are divided by month, and the info will automatically transfer to another workbook, where the sheets are divided by vendor.
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
I have a work book with several work sheets, what I'm trying to do or find a a method of coping data from one sheet to another provided the data in any given cell matches a specific criteria. Example below:
Work sheet 1 is the primary sheet in the work book on this sheet I have a cell with a text value (Bob). Ok on the next work sheet 2 I need to search for a cell that contains (Bob). When or if it is found I need information from other cells in that row (where Bob was found) copied to work sheet 1 in a specified row and colum. If it is not found a negative value can be placed in the specified cells.
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 RelatedI 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.
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).
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.
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
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
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: ....
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 RelatedI have a workbook with many sheets of similar but not identical data. I need to extract columns from each sheet based on 5 header criteria and paste them to a single sheet. Each worksheet contains these 5 criteria.
I've been working with the VBA script I've pasted below. It's grabbing the 5 column criteria that I have in sheet 12, and comparing them to sheet 1 in the workbook, then copying them to sheet 12. This much is good, but I need the script to also return the data from the other worksheets as well. I've tried modifying the script based on other loop functions in other scripts I've found, but I'm not having any luck.
I have an invoicing spreadsheet, what I want is to have a main working page and then tabs after separated by vendor, but save myself a bunch of manual work in the future.
I want to be able to work in the main tab and the other tabs automatically update with the new info.
So I want the macro to search the text in the first column and if it finds "AIM Land Services Ltd." then I want it to populate the appropriate tab, in this case "AIM", with all the respective information after it ie: A-O. But I dont want it to select any other vendors/ info.
This is what I have:
Sub MoveData()
For Each cell In Range("A1:A1") ' Where to look for the date
If cell.Value = "AIM Land Services Ltd." Then ' The date
Range("A5:O350").Select ' What is the range to copy
Selection.Copy ' Copy it
Sheets("Invoice_Log").Select ' Select the Sheet it applies to
Range("A5").Select ' Where to paste the data
[Code] .........
I have a detailed note inside biweekly.xls, it explains everything in context.
Two excel sheets, one is updated manually (Vikki's Yearly Averages.xls), while the other is for reporting (biweekly.xls)
The coding will all be in biweekly.xls.
First, it needs to take a date to the right of a name from biweekly.xls and use the month and year from that date for the search.
Then it needs to look in VYK.xls under the name and copy every entry starting in the year specified and month specified and ending at the current date.
My sample.xls have 11 columns and 6 rows ("for now" as the user might update this.) first row is the header, column G,I,K are the option if the data is to be copied to new workbook. there are 2 command buttons (1) Copy to New Workbook (2) Clear Columns G,I,K.
what i want is to analyze each row using Macro, if there is/are selected cell in that row then copy the header, columns A-E, the selected cell and the unselected in that row must have a value "0" in new workbook. if one row have no selected cell then skip it.
"Sheet2" in sample.xls is the sample output that i want to see in new workbook.
I have a lot of data that I want to put into another workbook so as to free up space and make the workbook efficient, however, I do not know how to open a workbook in VBA.
Once this workbook is open, I then want to sum the data based on set criteria.
I am looking for a way to search through several workbooks for a row containing the user's inputted data. I was thinking I could Autofilter each workbook but having trouble getting the code to reference a cell value in another workbook.
Sub Autofilter()
Windows("file.xls").Activate
With "Sheet1"
.AutoFilterMode = True
.Range("A1:EV1").Autofilter Field:=1, Criteria1:"Workbooks("reference.xls"). Sheets(1).Cells(A2)"
End With
End Sub
I would like to have file.xls Autofiltered by the value in cell A2 which is in workbook reference.xls. Am I going about this the wrong way? Auto Merged Post Until 24 Hrs Passes;Here is the code repaired so it doesn't through the syntax error:
Sub Autofilter()
Windows("file.xls").Activate
With "Sheet1"
.AutoFilterMode = True
.Range("A1:EV1").Autofilter Field:=1, Criteria1:=Workbooks("reference.xls").Worksheets("Sheet1").Range(A2).Value
End With
End Sub
But it still isn't working. Something is causing trouble at the With statement...
I have 2 workbooks, one is my source of data and the other is the destination workbook. What I need to do is to copy the row data when the checkbox is marked and the criteria was met to the destination workbook. I have the code below:
VB:
Sub CheckBox5_Click()
'uses formulas in an empty column to spot all appropriate rows at once
Dim LR As Long, NR As Long, wbMASTER As Workbook, wbNAME As String
wbNAME = "C:UsersPublicDocumentsSPOT_MB.xls"
[Code] .....
What I want to do now is to :
1. Create a checkbox that will run the code to copy the row when the criteria is met to the next empty row of a master file.
2. Keep the master file open while the data is updating.
I have a workbook with many (25) worksheets which all have the same structure, column headings, etc. but vary as to the number of rows. I would like to search all worksheets in workbook and copy to worksheet "120" only those rows where column C is "120" and column E is "1-00053-".
Ideally, input boxes would be used to enter these criteria so that it can be used for different scenarios in which these values will vary.
I have tabs within my workbook that are pulling from other tabs in the same workbook. There are 30-40 tabs, and only 10-15 are used at a time. Is there a way to hide tabs that are not being used? If I do a calculation in A1 and it's greater than 0, I'd like the tab that is pulling from A1 to be visible. If A1 is 0, then I'd like to hide it.
View 14 Replies View RelatedI have two workbooks. I use excel 2003
I need to update the master workbook with data from the invoices workbook using the following criteria.
In the master workbook column C has unique job numbers.
In the invoice workbook column F has unique job numbers.
Both worksheets are the first worksheet in both workbooks.
If the job number in the invoice workbook is already in the master workbook do nothing.
If the job number is in the master workbook but not the invoice workbook then delete the entire row from the master workbook.
If the job number is not in the master workbook add it to the master workbook.
To complicate matters the master workbook is shared. It is my understanding that shared workbooks can't contain the macros needed ? It would be preferable that the master sheet had them but if not ...
I am trying to delete a workbook, yes the whole workbook, if cell A1 is blank.
View 2 Replies View RelatedCopy data from workbook, open existing workbook, select range and paste. But my copied data is lost.
Sub Select_Copy_Paste()
'
'
Windows("ElektroFunctiesDatabase.xlsm").Activate
Sheets("PowerSupply's").Select
Range("A2:I6").Select
Selection.Copy
[Code] .........
' Here i need to do something to paste data into r.address?
Here's what we need to do:
We are compiling one master spreedsheet from many smaller ones and I need to figure out how to copy them quickly and efficiently. For example:
Small Spreadsheet:
Column B is marked as P, M, C or S. This represents the type of the account.
Column C is the name of the account.
Master Spreadsheet:
We have a column for each account type (P,M,C,S)
Can we use a formula/macro to automatically copy columns B and C from the small sheet and organize them accordingly in the Master Spreadsheet?
For example:
Small spreadsheet:
P Account Name1
M Account Name 2
M Account Name3
C Account Name4
M Account Name5
would appear in the Master Spreadsheet as:
P M C
Account Name1 Account Name2
Account Name1 Account Name3 Account Name4
Account Name1 Account Name5
I have data like in excel, which I uploaded and I need "simple" thing, If in column G is text Australia then copy from D column each cell which has "AUS1*" + copy the same number cell from C column and copy it into cell A and B. I hope I wrote it understandable
View 2 Replies View RelatedI'm not sure why this doesn't work on the dummy data?
Problems:It doesn't recognize the September 2011 datesIt is supposed to pull dates between July and August (i.e. 2 dates) and pull everything except those dates.
The date strings have to be variable based since it can't be hard coded.
Code:
Sub copyrow()
Dim rc As Integer, row As Integer, i As Integer
Dim mm As String, fdt As String, pdt As String, mo As String, yr As String
Dim Date1 As String, Date2 As String
mm = Month(Date) - 1
mo = Format(Now(), "mm") 'ex. "08"
yr = Format(Now(), "yyyy")
Date1 = mm & "/01/" & yr
Date2 = mo & "/01/" & yr
[code].....
I am copying from cell A2 to C2, then A8 to C8, etc. if the cell in column "A" contains the text "Item" until the end of data in column A. Here is what I am attempting:
Sub MoveItem()
sText = "Item"
sText = LCase(sText)
iMax = Cells.SpecialCells(xlCellTypeLastCell).Row
For i1 = iMax To 1 Step -1
If InStr(1, LCase(Cells(i1, 1)), sText) <> 0 Then
Cells(i1, 1).Copy Destination:=Cells(i1, 3)
End If
Next i1
End Sub
The problem is the destination location. If I define it as a Range eg: Cells(i1, 1).Copy Destination:=Range("C2") The macro works, but does not iterate the destination cell.
I need to assign to variable the number of cells in axle "Y", I explain them, I have assigned to the variable "Celda" the number "4" that, celda = 4 where 4 is the number of cells where begin the information that i need to copy,at firts they were separated sheets, and the macro it was working, assigning a letter a the processed row in the column of the left, but now is a one sheet, and I need, this macro find the last cells that the contain a letter in the left and assign the number of cells to the variable "celda" dont the range for example "A33" else "33" and begin toward down, I have this
Workbooks(origen).Activate
Application.ScreenUpdating = False
celda = 4 'where the number 4 will be changed for the number of cells in axle "Y" in this case "33"
celda2 = 4
cdestino = 1
While Workbooks(origen).Worksheets(1).Cells(celda, 2).Value <> ""
dato = Cells(celda, 2).Value
Select Case dato
Case "Aplicación de material"............
how I can copy formulaes in cells B2:S2 down the row if the corresponding A-cell is not empty (contain a string)?
View 3 Replies View Related