Copy Column Of Found Cell
Nov 3, 2006
i'm having trouble with some of the codes...
i'm suppose to create a code that searches a specific phrase/word in a row, then from that row, i want to mark the entire column, so that i can copy it and paste it in a new sheet
eg. find 'NE_KENNUNG', once it's found, mark the whole column "C"(the column may vary), copy the whole column, paste on to a new sheet
here's what i've written so far..
-------------------------------------------------------------
Private Sub CommandButton1_Click()
Search ("NE_KENNUNG")
End Sub
Sub Search(strSrch As String)
Dim xFind
MsgBox "in Suchfunktion !"
If strSrch = "" Then Exit Sub
View 7 Replies
ADVERTISEMENT
Jul 8, 2014
I have a file which has in excess of 12,000 rows of data in 5 columns (sample file attached with fake data). The five rows are:
"First Name" "Last Name" "Name" (uses CONCATENATE to combine column A & B) "Email" "Date Attended"
There will be duplications in the list as people will have attended more than once over the years.
What I want to do is search through the email addresses (Column D with D1 being the header) and where there is a duplicate email address copy the cell to the right of the duplicate (F#) into the next available cell to the right of the first occurance and then delete the row with the duplicated email address.
I am on Windows 7 and Excel 2010
View 4 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
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
Apr 5, 2008
I have found many posts similar to what I am trying to accomplish, but nothing that I have been able to modify and make work. I need a VBA script that will find a cell with the text data "Difference" and copy the adjacent (to the right) cell's data. I then need to find a cell with text data "Ops" and paste the previous data to it's adjacent cell.
View 3 Replies
View Related
May 6, 2009
I have two different functions, first is importing website to excel and the a second is testing string according to pattern. Each one of them is working ok. I'm trying to find a word " finance" in URL and put it into cell "A1".
Sub ParseWebsite()
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To 10
SiteURL = "URL;http://www.cnn.com"
With ActiveSheet.QueryTables.Add(Connection:=SiteURL, Destination:=Range("A" & i))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False................
View 5 Replies
View Related
Dec 21, 2009
What I would like to do is if a string e.g. "*12/18/09*" is found in column A, then place "1" in column B. There are many rows that I would like to search. Either a formula or VBA would be fine.
View 6 Replies
View Related
May 27, 2014
Looking to find 1 of 2 words in a cell in column B and return the word found in the same row in column E. This seemed easy but I am not having any luck.
the cells in column B have several words in them but I am looking for 2 specific words "PLAT" and "ORIG". If the word is not in the cell, it should show a blank cell in column E in the same row, otherwise one of the 2 words should be in that row in column E. A VBA loop would be ideal but a formula that can do it might work as well.
View 3 Replies
View Related
May 10, 2008
I am trying to clean up and simplify my macros by compartmentalizing frequently repeated commands. I like to search for text in column headings and define the cell containing it as a range that I can later use .column or .row commands on, so my macros are a bit more flexible. The code I currently use for this is
Dim XColumn As Range ‘the cell containing the text “X”
Cells.Select
Selection.Find(What:="X", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Set XColumn = ActiveCell
I would like to be able to create a Macro (possibly name FindSetCell()) that will accept arguments and achieve the results of the above code in other macros
I think the command might look something like FindSetCell(“text to be searched for”,”name of newly Defined Range”) But I have not figured out how to code it
View 2 Replies
View Related
Aug 30, 2012
I am trying to make a macro that will query a column J4 for a date, if the date is found say "Wednesday, July 4, 2012" (J8) get the text from Column K8 "Independence Day" and insert the text in Cell (H1).
The Macro Prints sign in sheets with the date in H2, it only prints Monday through friday. Then skips the weekend and the next date will start the following Monday.
The Federal Holiday schedule is in column range J (Date) and K (Holiday)
This is where I am stuck ....
EmployeeTimeSheet_2012.xlsm
View 2 Replies
View Related
Aug 23, 2009
I have a table that i use for a customer database. and the end user adds new customers to this table, what i would like is for a message box to pop up whenever cell B2 matches an entry in a column in the customers table. the table starts on row 25, and the column i would like to check for duplicates is column B. I would like the message box to give the user the message "A customer by this name already exists, Would you like to load this customers file?" If the answer is yes, then the row that the match was found on would be copied and pasted onto row 1. if the answer is no, then nothing else happens. I hope this makes sense, i am posting this sheet of my workbook for reference.
View 8 Replies
View Related
Oct 23, 2009
what is wrong in this code, it does not paste.
HTML Range("A65536").End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(-1, 7).Select
ActiveCell.Copy Destination:=ActiveCell.FormulaR1C1 = "=(R[1])"
I am trying to copy from the selected cell and paste one cell below(next row) in same column.
View 2 Replies
View Related
Jun 5, 2013
I need to remove values from column A that are present in column C without modifying the order in column B. To be more explicit below is an example:
Column A---------Column B-------Column C
5230400----------81,50----------1660000
3275500----------78,00----------6245700
2856300----------47,50----------5230400
1879800----------62,50----------2497900
2124300----------99,00----------1879800
2497900----------65,00
4826900----------77,50
2124200----------34,00
6245700----------61,50
3324400----------86,00
1660000----------53,00
Column A represents 600 materials.
Column B represents 600 prices. (different for each material)
Column C represents 107 materials that are present in column A and have to be removed along with their prices in column B.
Now i want to remove the materials that are in column A and C along with their prices, so i won't damage the order in the file.Meaning if i delete a row in A and shift the other materials up or down, and in the same time column B remains unchanged, the remaining materials will have different prices...and that's not good.
View 4 Replies
View Related
Aug 3, 2009
I found a macro that searches a column on each worksheet and copies the searched for value to another worksheet but. I would like to modify this to copy the searched for value and the next 10 cells in the row but I am not able to figure out how to accomplish this. I highlighted in red the piece I would like to modify.
For Each sh In ActiveWorkbook.Worksheets
With sh.range("c10:c10000") 'this determines where to search
For I = LBound(MyArr) To UBound(MyArr)
'If you use LookIn:=xlValues it will also work with a
'formula cell that evaluates to "@"
'Note : I use xlPart in this example and not xlWhole
Set Rng = .Find(What:=MyArr(I), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
FirstAddress = Rng.Address
Do
Rng.Copy NewSh.range("d1000000").End(xlUp).Offset(1,0)
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address FirstAddress
End If
Next I
End With
Next sh
View 9 Replies
View Related
Jul 5, 2007
I am looking for a visual basic script (macro) wherin I can copy fields from one sheet based on condition to main sheet. Sample sheet is enclosed as sample.xls. Here is what I intend to do: two tabs are there in sheet. master and work.
Need to check in "work" tab sheet if x name exists and if yes then copy three cells namely Input, Direct/.Indirect and code and paste all three cells in master sheet in front of X name wherever x name appears in resource name column.... Ultimately work sheet will be searched for all names which are in Master Tab and three field will be filled accordingly. Finally all the resources in resource Column will have three addditional field in mster sheet taken from work sheet.
View 5 Replies
View Related
Apr 29, 2008
I have a sheets called " Records" that contains a table with columns E to to AE, rows begining at E5. Each column is it's own attribute and the table in question will have records added to it in the future, so the search would need to include the possibility. What I am trying to do is search only a small range of those attribute columns for a particular text but I want to display all the attributes of the records that meet the search criteria (I hope that makes sense!) So far I have the below code (found on this forum previously), but it searches all attributes columns rather than just the ones I want to search, and I am willing to try something else completely different!
Public Sub search_flights()
Dim My_Result As Variant
Dim first_Result As Variant
Dim Flight_Number As Range
'clear search results
Worksheets("Search").Rows("11:" & Rows.Count).ClearContents
Set Flight_Number = Worksheets("Search").Range("C7")
'check data
If Trim(Flight_Number.Value) = "" Then
MsgBox "Please Enter a flight number in Cell C7"
Exit Sub
End If.....................
View 5 Replies
View Related
Sep 5, 2008
I have a spreadsheet (range A1:P5000). B2:B5000 would contain cheque numbers. Many of the cheque numbers would be repeated and would have common data in columns C, D, E, F, G, H, L and N.
I am trying to get VB code to copy and paste the common data when a user enters a cheque number.
For example:
When a user enters a cheque number in B3, VB would check B2 for a match. If a match is found, then VB would copy C2, D2, E2, F2, G2, H2, L2 and N2 and paste them in C3, D3, E3, F3, G3, H3, L3 and N3. If no match is found, then the user would have to manually enter the data in C3, D3, E3, F3, G3, H3, L3 and N3.
When a user enters a cheque number in B4, VB would check the B2:B3 for a match. If a match is found (in B2 – for example), then VB would copy C2, D2, E2, F2, G2, H2, L2 and N2 and paste them in C4, D4, E4, F4, G4, H4, L4 and N4. If no match is found, then the user would have to manually enter the data in C4, D4, E4, F4, G4, H4, L4 and N4.
When a user enters a cheque number in B100, VB would check the B2:B99 for a match. If a match is found (in B90 – for example), then VB would copy C90, D90, E90, F90, G90, H90, L90 and N90 and paste them in C100, D100, E100, F100, G100, H100, L100 and N100. If no match is found, then the user would have to manually enter the data in C100, D100, E100, F100, G100, H100, L100 and N100.
View 14 Replies
View Related
Nov 28, 2012
I have been trying to write VBA which basicly search for specific value in column A and copy values from that cell to down and two columns next. Select row and columns down after specific value in column A was find.
Like this
A B C
... ... ...
X 100 115
... ... ...
up to last row
I try with VBA below but it do not works.
Sub Select_Rows_GK()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If Range("A" & i).Value = "9000" Then
Range("A" & Rows.Count).Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Exit For
End If
Next i
End Sub
View 3 Replies
View Related
Jun 9, 2009
I have one master worksheet with 1000 ID's. I also have 10 other spreadsheets with 1000 ID's. I need my macro to use the master worksheet and identify where the IDs are located among the 10 spreadsheets. If there is a match, then my macro should copy the entire row and place it in an output file (another spreadsheet).
The following code only tests the master worksheet and three other sheets (one being null/error is ID not found).
Sub Macro5()
'
' Macro5 Macro
Dim Raw, Mix1, Mix2, error As Excel.Worksheet
Set Raw = Sheets("RAW_DATA")
Set Mix1 = Sheets("Mix1")
Set Mix2 = Sheets("Mix2")
Set error = Sheets("error")
Raw.Select
For x = 1 To 1000
For y = 1 To 1000
If Raw.Cells(x, 1) = Mix1.Cells(y, 1) Then.................
View 9 Replies
View Related
May 15, 2007
I have some EXCEL files, titled as "AAA", "BBB", "CCC", so on... Calculated values are placed in Column Z for each file. In order for me to export the files to another software, I would need to create another new EXCEL file (I call it MASS) and place all the calculated values in that new file. In that new file, the titles have to be on Column A and the calculated values on Column B.
For example, File "AAA" has 120 calculated values. In MASS, the word "AAA" has to appear on Column A a number of 120 times and the 120 calculated values are then placed on Column B. Each value must correspond to the word "AAA". The same procedure goes for "BBB", in which the word "BBB" is placed on Column A after the end of "AAA". What I want to achieve is by using a macro that will look up the title of the Active Worksheet and then scan Column A in MASS. If the title matches whatever is in Column A, then the macro will paste the corresponding calculated values onto Column B automatically.
For example, for file "GGG", the macro will look up the word "GGG", scan through Column A in MASS for the start of the word "GGG" and paste the calculated values at the start of Column B. Could I have an idea of how might the macro looks like?
View 9 Replies
View Related
Dec 5, 2013
I found some useful code for copying specific worksheets into a new workbook based on the sheet name, which I have not been able to alter to suit my needs.
I have a workbook that has a Master Sheet that contains a summary of each claim (Name, type of claim, dates, dollar amounts, etc.) and a sheet for each specific claim.
I know I can use the filter feature on the master sheet to view all of the physical damage claims (and one column has a hyperlink to the worksheet for that specific claim). But every month I have to create a report that shows each type of claim, dates, and so on.
I would like to create a macro that can copy the worksheets to a new workbook based on the type of claim it is. I'm thinking something like for each ws in wb if range ("F15") = 1 & .range ("B4") < 30 days from today copy that sheet into a new wb.
Below is a generic and far smaller version of my workbook. The name column contains my hyperlinks to the specific sheet. Each sheet is also named based on the text in the name column (so John Doe's sheet would be named 'John Doe') and so forth.
Date of Loss
Name
Cargo
BI
PD
Paid
Reserves
[Code] ........
View 1 Replies
View Related
Feb 15, 2008
I have a requirement to create a master spreadsheet using a macro to copy set cells from several other spreadsheets and paste them into the master one in a list for accounting purposes.
So far the macro reads in the spreadsheet filename(s) and copy/pastes the cells to the master one - I need to be able to paste the values onto subsequent rows for each input sheet which is where my problems lies. Currently the row just pasted in is overwritten over by the following one, I need to go to the next row down but am stuck on how to do it.
Sub EmployeeExp()
'
' EmployeeExp Macro
' Macro recorded 12/02/2008 by eugene.cross
'
Dim i As Integer
Dim f As String
I've attached an example master output sheet to show what I want to produce, albeit this has only one row!
View 7 Replies
View Related
Jun 10, 2014
i want to delete the column which are blank
e.g
i have data in Column A1:N1 then delete the column O:Z
View 2 Replies
View Related
Aug 12, 2009
This code inserts a new column to the left of Column CV ...
View 6 Replies
View Related
Dec 7, 2010
I am trying to perform a simple insert macro. That will search column A for a value "Jack".
Once the value has been found insert a blank row, 2 rows up from that value. Not below.
View 9 Replies
View Related
Sep 4, 2013
I would like a macro to order the columns as per the hardcoded list. If the column is not found than add the column at the position as per the hardcoded list. Below macro does the first part of re-ordering however if the column is not found how do I add an empty column:
Sub Reorder_Columns()
Dim ColOrder As Variant, i As Integer, Found As Range
ColOrder = Array("LogicalFileName", "LogicalFilePath", "UploadedDate", "UploadedBy",
[Code].....
View 1 Replies
View Related
Feb 26, 2008
What formula can I use to return the value in column A if the value is found.
Something like:
=LOOKUP($M$1,$B$18:$O$31,give the value in Column A of the row of where the result is)
View 9 Replies
View Related
Nov 26, 2008
I’m working in Excel ’03 with a large table. I’m hoping to run a macro against a cell with value ‘X’ whenever that value is found within a particular column. I’d like this to be relative and not tied to a particular column so I can tweak it as needed down the road and run it against different columns.
In the example below, lets say I’m working with column B. I’d like something that would go through every cell in the column and run a macro when it comes across a particular value. Let’s say this value is x.
__A B C D E F
1 a x a a a x
2 b a b b b a
3 c x c c c c
4 f f f x f f
5 s s s a s s
6 g x g g g x
7 a a a a a a
8 s s s s s s
So, in my example, the macro would be run on B1, B3, and B6. And, if I wanted to go back in later, I could run this on column D and the macro would run on cell D4.
View 9 Replies
View Related
Jun 11, 2006
I have a set of data (time in minutes) below (fig 1) that I need to use if the total time between two entered times matches a coloms total. If it matches I want Excel to use the data in that colom to affect the data in another (fig 2) colom adding the times to each cell.
Looking at both figs. below I want Row B, Colom A in fig 2 to add Row A, Col A to Row A, Col A in fig 1 since both are the total of 19.
fig 1
Coloms A B C D
Row A 5 5 6 6
Row B 5 6 6 8
Row C 4 5 6 7
Row D 5 4 4 5
Total 19 20 23 26
fig 2
Coloms A B C D
Row A 1:00 2:00 3:11 4:01
Row B
Row C
Row E
Row F 1:19 2:20 3:33 4:27
Row F-A= 19 20 23 26
View 9 Replies
View Related
Sep 5, 2007
I need a VBA code that will search column H for any value that DOES NOT start with "9" (this is a character field). If it finds a cell that doesn't start with "9", I would like it to delete the entire row. It will need to repeat this process for every cell in Column H that has a value and then stop.
View 7 Replies
View Related
