Locate Word In Column And Copy Adjacent Range
May 16, 2012
I am new to VBA and have tried to develop the code for finding a specific stock symbol (Column A) from over 4200 symbols from a downloaded csv file, copy the data in in its (specific symbol's) row (in the next 5 columns B to F) to the 3rd blank row in the master workbook (data arranged from Bottom to Top). In the Master workbook each stock symbol has a worksheet with its symbol as the tab e.g. BHP.AX is the tab or sheetname for BHP stock in the Australian Stock Exchange. The downloaded file comes from a subscribed site EODData which provides daily OHLCV (Open/High/Low/Close/Volume) data against each symbol.
My attempt is shown below and it is very primitive. It does not work! I wish to run it from the Master workbook (name:-0PortfolioASXMultipleIB.xlsm) and not from Csv Data file.
VB:
Sub Macro0CopyFromCSV()
'Insert a blank row and format it in Master workbook
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[Code] ......
View 9 Replies
ADVERTISEMENT
Jan 30, 2014
I'm trying to create a macro that can lookup values down a list, find that value within another list and copy the adjacent cells.
The values to look for will always be on the same column and the values to look into will always be in the same range or columns but not always in the same row.
For example.
AI:AI contains a list of ID's which will be manually input every day so they might have a different order.
C:AF has all the data to look into. C always being a list of ID values and I want for every ID found on AI:AI to be search for on C:C: and then once a match is found, I need specific adjancent cell values to be copied next to the ID found on AI.
The values that need to be returned are found on columns B,D,F,G,H,I,J,P,AF and they will always display on those columns.
I've been doing this based on vlookup and INDEX/MATCh formulas but I've come across some limitations for something I want to develop further so I'm trying to do this based on VBA.
View 5 Replies
View Related
Feb 7, 2008
I need a formula (or formulas) to give me the "coordinates" (Column & Row location) of a certain value in a large rectangular range. Intuitively this should be doable with a smart combination of VLOOKUP, HLOOKUP, INDEX, MATCH, ADDRESS and/or CELL functions (maybe in the form of "array formulas") but I can't seem to find the way...
Here is an example of what I need:
I have a large rectangular range (A10:F500), full of numerical values. Then in cell A1 I have one of the (many) values contained in the range, let's say, 3.14159. I need two formulas that give me the following:
a) A formula in cell B1 that tells me in which COLUMN of the range the value 3.14159 is located
a) A formula in cell C1 that tells me in which ROW of the range the value 3.14159 is located
If the range consisted of a single column (or a single row), this would be an easy INDEX and MATCH combination.... but I'm dealing with a *rectangular* range here...
View 9 Replies
View Related
Jan 22, 2013
I want to say if the word 'suitcase' is in column W (any row), place the word 'suitcase' in column Z, same row.
View 2 Replies
View Related
May 20, 2008
I have a worksheet on which the data is already grouped. At the top of each group is a row that contains only the group name. Since the rest of that row is blank, I want to use a blank cell on that row as a reference, then copy the group name to a newly created column, then fill that column down to the next group.
The goal is to create a column that contains the group name, rather than just having the group name as a " header" at the top of each group.
View 5 Replies
View Related
Jan 11, 2010
I have three columns (A to C) with contineous data (# rows always variable).
I would manually type a number in a cell (S2) that would correspond with a number in Column A. What I would like the code to do is that it finds the number in column A and selects the whole range in column B and C starting from that row, and copies that whole selection to N10.
After that all the data in column N should be substracted with a value given in S3 and all data in column O with a value given in S4.
View 9 Replies
View Related
Apr 17, 2009
Split from: Clear Range To Right Of Active Cell Down. I was working through this the first step was to clear the contents of the cells. After they are cleared, I have another sub that then goes and retreives a unquie number and places it back at the top of the column that I just cleared. Would this same code that cleared the cells contents work to copy the contents of the active cell down that same column, until the cell to its right is blank? -R-
View 5 Replies
View Related
Dec 8, 2009
In a worksheet, J2:J52 contains a list of unique strings; each cell populated by an embedded formula. Some of the cells contain a valid 'blank' "" given by the formula.
I'd like K2:K52 to contain the values J2:J52, with all the populated cells stacked at the top and the 'blank' cells at the bottom. 'Blank' cells do not have to be in any particular order.
I've been fiddling with the formula kindly provided by WindKnife on the second post in the thread below for the past couple of hours, but to no avail:
http://www.excelforum.com/excel-work...om-a-list.html
Columns A:H in the same worksheet are populated and unavailable for use.
View 8 Replies
View Related
Nov 25, 2011
I've managed to get hold of the following code that will copy the values from a range and paste them to a Word document, what I need to do if possible is only copy the rows that have data in column A.
Additionally, the code should only copy across to column R - so to summarise, copy ALL columns from A to R and only if A has data in it, (starting at A2).
Code:
Option Explicit
Sub Data2Word()
'Remember: this code requires a referece to the Word object model
'dimension some local variables
[Code].....
View 9 Replies
View Related
Jan 22, 2014
i will illustrate what i want to do here with these two excel sheets below. I want to some sort of coding that searches for A and B (Name of the Branch) from sheet 2 and copy the No. of transactions given against A & B from sheet 2 to sheet 1.
OR keep just A & B in sheet 2 and delete the rest of the rows so that i can manually copy and paste values against A & B.
SHEET 1
Name of the Branch
No. of Transactions
A
B
[Code]....
View 2 Replies
View Related
Jan 5, 2014
I have a workbook with 30 worksheets. Each sheet has 84 rows of data (start in 15 columns (A to O). I would like to create a summary sheet that only shows the most important data from each sheet.
The summary sheet would have 12 lines of headers and formatted crap at the top.
The Summary sheet header columns would be:
Site (A), Date (B) Health (C), Status (D), Critical (E), Task (F),
Dependencies (G), Owner (H), T-Date (I), Task Date (J), Mitigation Date (I)
The data in the sheets are not in that order, of course.
That
1. puts the name of the sheet I am copying from in column A
2. the deadline date in Column B (that date is always in C10 of each worksheet)
3. and copies Cells from Column A,B,G,H,I,O in any row in which the value in A is not "good" into columns C through H. I would like to paste those rows into the summary sheet. I have code that loops through the sheets and rows in each sheet to find the rows to copy. I can copy cell values directly from the active sheet to the summary sheet, but because I am copying a cell at a time, it takes 7 minutes. Yes I am impatient :)
Here is the code snippet where the copying is done:
Dim sh As Worksheet 'current worksheet
Dim DestSh As Worksheet 'worksheet in which to paste summary
Dim Last As Long
Dim CopyRow As Long 'row to copy
Dim LastCopyRow As Long
[Code] ........
ExitTheSub:
Application.Goto Sheets("KMARollup").Cells(1)
End Sub
I think there must be a way to use ranges to build an array of cell values and paste only once but I am lost here.
View 2 Replies
View Related
Jul 20, 2008
On the data sheet I attached you can see easily what I am trying to do:
The macro should do something like this basically:
Column A there is a entry like "L110E (CST_PRG-Wheel Loaders-E series models)"
Lets say we have 10.000 entries more or less like this.
Macro should do this:
* Take first word for example in this case "L110E" and copy into column D same row.
* Take second word's second part in this case only "PRG" and copy into column B same row.
* Take the 3rd word between - - in this case only "Wheel Loaders" and copy into column C.
View 10 Replies
View Related
Jan 5, 2008
I need a formula to check sheet 1 column N and to copy the entire row if the cell in column has the word NO.
The row has to be extract in sheet 3.
View 9 Replies
View Related
Apr 15, 2014
I have 10 worksheets in my workbook. The two that I'm concerned with in this post are "Main" and "Completed".
If Column AA in "Main" contains the word "Complete" (which is from a drop down list) I want to copy the entire row from "Main" and paste in the "Complete" sheet without over-writting previous pasted rows.
Back in sheet "Main" I want the data in that row to be cleared with the exception of Column A as it contains a formula for sorting blanks. If I delete that row it will mess up my links on other sheets.
View 14 Replies
View Related
Feb 23, 2008
I went through all the forums but confused a little. In the work sheet I want Excel to find an exact word such as letter "a" in all over the work sheet (not a column name) and paste it to the destination work sheet. I am attaching an example file, can some help me to solve the problem.
View 9 Replies
View Related
Jul 10, 2012
I use an excel workbook that contains around 20-30 output tables/ranges and i would to have a macro which will enable me to open a specific word document and paste these tables/ranges from excel into the word document. I am unsure as to how to get excel and word to "talk to each other"???
To make things more difficult i would like to be able to set the paste location in the word document, and ideally i would the copy and paste function to be a normal copy and paste and not a paste special as the tables/rnage in excel have already been formatted correctly and column widths adjusted to fit the margin of the word document.
Currently I select the range in excel, switch to word and paste then continue until all tables/ranges are pasted. Not difficult but as certain calculations change these tables/ranges need to be re-copied and pasted to word which gets frustrating.
View 1 Replies
View Related
May 8, 2014
I have names like frank steven louis alex stewart
I want to move the last words of each column to a new column.i have the collections of 200 data.
View 2 Replies
View Related
Jul 8, 2014
I've got a long list of company names, i'm trying to create a formula to see if they match but the problem is the names won't match exactly (e.g it would be Joe Bloggs Limited & Joe blogg's ltd). I've thought about it and think the best way to see if they match would be to take the first word from the first cell (in this case Joe) and then search for it in the next cell and return TRUE if it exists anywhere in the cell and FALSE if not.
View 3 Replies
View Related
Apr 1, 2008
I have a sheet where in one column, the word "high" will be repeated. I need to find these multiples and then list down in a seperate column the text relevant to each of those multiples (contained in an adjacent cell). I.e if A1 & A3 hold the text "high", take the corresponding values in b1 & B3 and list them in new column C (C1 & C2 continuing in sequential order). I have searched the forums but i can' t seem to find anything.
View 9 Replies
View Related
Aug 31, 2006
I have a spreadsheet formed from a text file.
I want to search for each instance of "DOG" in column A, and copy the row below it and then paste that entire row to a new sheet called DOG. I can then autofilter and use a pivot table on the DOG sheet.
I cant just use an autofilter, because the row below can and sometimes does appear elsewhere in the spreadsheet, but refers to something else. It is all because this is an imported text file.
I have attached the spreadsheet to show you what I mean.....
here is the code I have so far, modified from another thread I posted.
Sub dogs()
Dim rd As Worksheet, dg As Worksheet, i As Long
Dim fRng As Range, Crit
Application. ScreenUpdating = False
Set rd = Sheets("Pets")
Set dg = Sheets("Dog")
The attached is a very cut down version of my spreadsheet...
View 9 Replies
View Related
Oct 31, 2006
1. Find a Text
2. Select the cell
3. Select the row and columns above the data we found
4. Copy it
View 2 Replies
View Related
Feb 16, 2012
I need to count how many times the word Test is in the range B4:H9 with
Range N2 = Test the formula below works if Test is only in the cell once.
=COUNTIF($B$4:$H$9,"*" & N2 & "*")
But I have data in cells like below, this is all in one cell, so how would I have it count all the times test is in the range when some cells have test 2 or more times in a single cell?
5
Test
8am-2pm
Test
5pm-10pm
View 5 Replies
View Related
Jul 12, 2006
We have an excel worksheet with textfields, that are compiled (when a btn is clicked) and the results are assigned to a static range. (Meaning, the results always appears in the same cells)
Question is: How can i have the results appear in a different row each time, starting on row 14 ?
View 4 Replies
View Related
Jul 18, 2007
I've got a formula that takes a value from the last numerical entry in a column. Is there a way to code this so that I don't have to enter the cell location of that number manually every time I append the sheet?
View 7 Replies
View Related
Mar 20, 2012
I have a worksheet (A) similar to the following:
Jan '12, Feb '12, Mar '12 --> Header Row
-5, 10, 2
6, -2, 3
5, -2, -1
I have another worksheet (B) with the same header Row (Jan '12, Feb '12, Mar '12). I need to create formula in cell A2 on worksheet B (right under Jan '12) that dynamically locates the Jan '12 column in worksheet A and then sums the numbers in that column only if they are < 0.
So in cell A2 on worksheet B (under Jan '12) I'd have -5 (only -5 is < 0), in cell B2 on worksheet B (under Feb '12) I'd have -4 (-2 + -2) and in cell C2 on worksheet B (under Mar '12) I'd have -1.
I've tried several variations of sumproduct, sumif, index, etc. with no luck.
View 3 Replies
View Related
Mar 10, 2013
I need to locate the highest number in column b then in column c minus the users score from the highest so they can see how much they are behind the highest score. eg.
A B C D
fred 150 highest
dawn 125 25 points needed
mark 100 50 points needed
kevin 80 70 points needed
View 4 Replies
View Related
Jul 11, 2006
I needed to find "406" which is in A5280 copy the previous 160 rows X 3 columns to A5281.
Because of other factors involved I now realise it would be better to have the macro do the following.
1. Find "04/06" (in A5123)
2. Copy from 2 rows above this cell (A5121) down to (C5280)
3. Paste into A5281
Sub ACopy3()
Const intRowsToCopy As Integer = 160
Dim rngFound As Range
Dim Ro
Dim Col
Application. ScreenUpdating = False
Set rngFound = Columns("A:A").Find(What:="406", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
Range(rngFound.Offset((intRowsToCopy - 1) * (-1), 2), rngFound).Copy rngFound.Offset(1, 0)
Application.ScreenUpdating = True
End Sub
View 9 Replies
View Related
Sep 3, 2009
I need my macros to search for the word "Cancel" or "Cancelled" in columns "T" and "U". Once found, I need the macros to make that entire row an opaque shading.
There will be other wording in these cells that contain "Cancel" or "Cancelled". Is it possible for the macros to search in the sentence and find the words "Cancel" or "Cancelled"
I started on the code below but am stuck.
View 14 Replies
View Related
Sep 14, 2007
Is there a way to reference a column depending on its header? Is there a way of doing this without the need of surveying one-by-one all the column headers with a for loop? I need this cuz if I have a very dinamic program which moves columns arround and depending on the state of the program the position of a column can change.
View 2 Replies
View Related
May 20, 2012
I need a formula that will tell me which 'BPS' a person should receive based off of the count of loans closed (between 'Criteria 2' & 'Criteria 2.1' and/or the volume (total of 'Loan Amount')(between 'Criteria 1' & 'Critera 1.1'), whichever gives the person a the higher tier.
I have provided an example below. In the example John Doe should receive .01750 'BPS' because he closed over 1 million in volume. If, for example, John Doe closed 5 loans for 400,000, then he would receive .01600, since he met the criteria for the 2nd tier based off of # of loans closed.
The formula needs to take into consideration which 'Comp Plan' the person has, as well as the other criteria mentioned above.
Bitmap BRANCHBitmap COMP PLANCOMP PLAN IDCOMP PLAN TIERCRITERIA 1CRITERIA 1.1CRITERIA 2CRITERIA 2.1BPSSACRAMENTOSAC-COMP-A11$ - $ 599,999.99 020.01250SACRAMENTOSAC-COMP-A12$ 600,000.00 $ 999,999.99 350.01500SACRAMENTOSAC-COMP-A13$ 1,000,000.00 $ 100,000,000.00 61000.01600SACRAMENTOSAC-COMP-B21$ - $ 599,999.99 020.01500SACRAMENTOSAC-COMP-B22$ 600,000.00 $ 999,999.99 350.01600
[Code] .......
View 1 Replies
View Related
