VBA - Select And Copy Range Down After Specific Value Found

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
... ... ...

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
Exit For
End If
Next i
End Sub

View 3 Replies


Copy/paste A Found Range

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, _
If Not Rng Is Nothing Then
FirstAddress = Rng.Address

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

Find Text And Copy Found Range

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

Select File, Specific Tab, Then Copy/paste

Feb 13, 2010

Feedback.xls is the file I want to have my macro run in. By pushing a button to run the macro, it will prompt the user to select where their file is on their computer. This file will have different file names based on the end user. For example sake, I've included CAP.xls.

After the user selects their file, it will prompt them to choose which tab to copy and paste data from. Typically, there will be 30+ tabs on their worksheet. For example sake, I've created 5 tabs on CAP.xls. The tabs in their workbook will be labeled as I have labeled mine, M1 CAP, M2 CAP & M3 CAP. Therefore, it should prompt the user to select which tab to choose from.

After the user selects their tab (M1 CAP, M2 CAP, M3 CAP), the macro should prompt the user to choose which row of information to copy. In CAP.xls, I have a few rows of information to choose from. They all start with FY10A1, FY10A2, FY10A3, but this information could change. Once they select the row, it will copy each of those fields onto the respectively labeled fields on Feedback.xls.

View 5 Replies View Related

Select First Specific Range After Filter?

Nov 20, 2012

i just want to select first four column cells(A,B,C,D) in first row after filte the data.

View 1 Replies View Related

VBA - Lookup Value Found In A Column Within Another Range And Copy Adjacent Values

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

Select Specific Coloured Cells From A Range Of Data In One Go

Feb 3, 2010

How do you select specific coloured cells from a range of data in one go, without having to scroll through the worksheet and pick them out individually?

View 9 Replies View Related

Select / Activate Specific Row Then Copy Format / Formula To All Blank Rows

Jan 21, 2012

I need a code that will copy the format AND formulas of the entire row that I have selected (or activatedwith my cursor) to each and every blank row - until it gets to the last row of data on this spreadsheet.Since any employee could have more than 1 row of data - I am using a code that inserts1 blank row after each NEW employee name.

NOTE: This report is initially sorted by employee name so that each occurrence is grouped together.REPORT SPECIFICS:1) This report reflects typical paryoll information.2) Certain columns have data that is either in text, general, or number ($) format3) The number of columns may vary depending on which PR report is being worked4) For the sake of simplicity - we can assume that the column titles will always be across row 15) Each employee name on this report may repeat several times depending on how many weeks they worked,so the SUM() formula should adjust automatically to capture all the rows of data to add up for each employee

texttexttexttexttextformulaformulaformulaDeptDivEmployee NameEE#Period EndHrs WorkedPTOAccrd LiabilityCSDINSEWilma Wilsont4561/7/1280.5$ 100.00 CSDINSEWilma Wilsont4561/16/12121$ 200.00 CSDINNECage Nick2581/7/1281$ 600.00 CSDINNECage Nick2581/16/12245$ 25.00 CSDINNECage Nick2581/23/12323$ 25.00 CSDINWPolly Cracker1781/7/12856$ 60.00 CSDINWPolly Cracker1781/16/12242$ 654.00 ARVIPWPolly Cracker1781/23/12322$ 2.00 ARVIPWPolly Cracker1781/28/12161$ 5.00 ARVIPWPolly Cracker1782/6/1284$ 3.00 CSDINSEDim Sum6871/7/1284$ 65.00 CSDINSEDim Sum6871/16/12126$ 5.00

Sub InsertRowAtNewNameONE()Dim LR As Long, i As LongLR = Range("C" & Rows.Count).End(xlUp).RowFor i = LR To 2 Step -1If Range("C" & i).Value Range("C" & i - 1).Value Then Rows(i).InsertNext iEnd Sub

NOTE: See below: I will format and add formulas where I need on the 1st blank row that was createdand I need a code that will copy this particular row to all blank rows to the last.

recordtexttexttexttextcountformulaformulaformulaDeptDivEmployee NameEE#Period EndHrs WorkedPTOAccrd LiabilityCSDINSEWilma Wilsont4561/7/1280.5$ 100.00 CSDINSEWilma Wilsont4561/16/12121$ 200.00 2201.5$ 300.00

View 5 Replies View Related

Macro To Find Matching Text In A Range And Select Specific Cell

Oct 18, 2013

I have a client list in a table in my excel sheet. I currently enter the clients in a sheet that looks similar to a form. After the clients info is in this Form I have a button with a macro to copy the client info into a table on another sheet. This works perfectly.

Now I have another form that will retrieve the customers info in a click of a button in order to make changes to the client. Ei:I now have a second phone number and I want to update that client's info. What I want to do from here is take the info in Cell B2 (clients full Name), Do a vLookup in the "Saved Clients Table" in a Range within my table range. (Range: Saved Clients and the client's full name is in $A:$A and called "Clients Full Name" and once that name is found I need to select the cell in column C and the corresponding row.

This will allow me to copy the info in my form, Paste it in Transpose to the cell that is selected. (I already have that code)

Here are screenshots of what I am trying to accomplish. [URL] .......

View 3 Replies View Related

Select Range To Copy, Find Values And Copy

Feb 2, 2010

I have a base document that i can import another data document with a button (this is working).

I then have another WS ("search") in the base document with lots of identifiers which I want to use as my search range to look through the document that I just imported (column A).

I need a msg to ask the user what month they would like to find the $ value on (Ie, January) in the imported WS... this way it doesnt copy the entire line only cell in the selected month column.

Then I want to the user to be able to click a button that will check through the identifiers on the "search" WS and if the same identifier appears in the imported WS in column A, then for the $ value in the column selected to be copied to the search Range work sheet.

If the idenfifier is not matched then in place of the $ value copied can be the string "no in XXX WS" .

I have attached the document with dummy data in each work sheet with details more cleary what I have meantion above.

View 9 Replies View Related

Select Range & Copy

Oct 31, 2007

I have a macro to search column E for an occurance of the text ALPHA,(there is more than one occurance of the text, so I'm using a loop to search for the next occurance,once the first one is found. No problems there).

Once I find a Row that contains ALPHA( say Row 15), I want to Copy the columns A15:R15 (NOT the EntireRow).

how I can Copy only a Range of Cells and not the EntireRow?

View 9 Replies View Related

Select Only First Value Found?

Feb 4, 2013

I want to select only the cells that have colorinterior = 4 (Green)

Dim Cell As Range
For Each Cell In [G:G]
If Cell.Interior.ColorIndex = 4 Then b = Cell.Address
Next Cell

but this code only selects the last cell with green format, my idea is to select the first and the last cell on column G, making b the last cell and a the first cell, to delete afterwards what is between, is there a way on the above code to select only the first cell and not the last one, making the a = first cell and b = last cell?

View 3 Replies View Related

Select And Copy By Date Range?

Jul 21, 2014

I am attempting to select a row if the date field value is within a date range.

I would like to be able to click a button, have a pop-up, be asked to insert a start date and an end date. For example 2014-07-01 and 2014-07-21 I would then like the macro to copy rows if the date value is within that range to the next available row onto a new worksheet.

View 1 Replies View Related

Copy Range When I Select A Value In A Combobox

Mar 2, 2009

First I will explain what this workbook does.
In worksheet "sheet1" I use "change sheet" button to change the backgroud by selecting some pictures, in range S14 I have one number from the name of the background picture (using substiture function).
By selecting one cell (with blue text) + one value from the combobox, in worksheet "sheet2" : -the selected value in column A will be deleted
- the selected value in column B will be added
- in column C I will see the adress of the active cell (cell with blue text)
- in column D I will see the blue text from the active cell

I need in column E to copy the range S14 from "sheet1" when I select a value in the combobox !
The range S14 will have different values!
I had tried this code (in module1 "Sub test") but it's not working how I need it to work:

View 14 Replies View Related

Select Cell Of Found Value

Sep 19, 2007

im currently creating an excel database type spreadsheet and have a form with a textbox and a button. The code behind the button is as follows:

Sub find_Click()

Dim strFind
Dim rSearch As Range
Set rSearch = Sheet1.Range("A2:A1000")
strFind = Me.txtpolicy.Value
If strFind = NullString Then Goto error1

With rSearch
Set c = . find(strFind, LookIn:=xlValues)
If Not c Is Nothing Then


MsgBox "No match was found. Please try again"

End If

End With

End Sub

The error message I get is select method of Range class failed

Debugging highlights the c.select line

View 3 Replies View Related

Range Select Then Count Down 10 Cells Below And Copy

Jan 13, 2009

I am having a problem putting a range select statement in my macro. Here is what I'm trying to do. I want to select E1, then count down 10 cells below and copy. My sheet is filtered, so those rows are not continues. When I do the record a macro it highlights the rows and it looks like this (e10:e506, but it's only 10 items). I only want it to count down 10 cells and copy. Is there a statement for this.

View 3 Replies View Related

Select And Copy Range From Active Cell

Oct 21, 2009

I want my code to evaluate each cell in column B, and based on its value, copy the row from D to X and paste on the newly activated worksheet. I'm trying to use Offset, but it's not working.

View 6 Replies View Related

VBA Select Range To Copy Based On Two Variables

Jan 13, 2014

I have a Macro that already works great but now I need to look for another variable to sort it down even further. I think it can be done by setting up a "Case" but still not sure how to do that. It already looks through the range to find all the rows that return a value of "True". Now I need it sort those results so it only returns what has a specified value in Column "AJ". I am looking to do several choices (Listed Here). So the end result will be all the items that return "TRUE" In Column "AI" and are Items that return one of these values per Case "Starters, Appetizers, Soup, Salad, Entree, Dessert, Special" with then copy over in the exact format that is listed in the code below.

For example All the items that are selected with "TRUE" can be narrowed down to all of those that are "Salad" as well - Then copied over in the exact format that is listed in the code below.

What I am doing is breaking out all the different course of food and putting a Header in-between each (That is already built and working) - So I can select all the food from a master list and then put it in order on the "Catering BEO" Sheet with Headers in between

Sub BEOA4()
Application.ScreenUpdating = False
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim FoundX As Range
Dim FirstFound As String
Dim lastrow As Long


View 3 Replies View Related

Allow User To Select Range To Copy Macro Code

Apr 30, 2008

I cant seem to get to work together in the same macro but that work great seperated. I need them to be in the same macro. The first just simply copy's text from one workbook to another:

Sub Test2()
ActiveSheet. Range("a1").Copy _
Destination:=Workbooks("punchlist.xls"). Sheets("Sheet1").Cells(Rows.Count,1).End(xlup).Offset(1,0)
End Sub

That worked ok but I needed to change it to the "active cell" instead of cell "a1". So then this line of code was made:

Dim userInputCell As Range

On Error Resume Next
Set userInputCell = Application.InputBox("Use the mouse to select a cell on any sheet", type:=8)
On Error Goto 0
If userInputCell Is Nothing Then
MsgBox "Cancel pressed"
Msgbox "You selected " & userInputCell.Address(,,,True)
End If

The second code works just the way I want it but it doesnt copy over the text to the other workbook. I assume the 2 codes need to be together but I cant get it to work without errors. I also need the text to copy over without changing the borders on either workbook.

View 3 Replies View Related

Copy Data Into Specific Range?

Jul 4, 2014

I have a worksheet which contains daily results and want to copy the formulas within the Cell F2 but only copy into the cells where the data has recently been added.

EG: Within the attached worksheet i have just entered the data for the 03/06/2014, so i only want the formula to be copied into column F for this range.

Potential it could the vb code could look at Column B and if blank then paste.

View 8 Replies View Related

Copy Specific Cell Range From Tab 1 To Tab 2?

Apr 3, 2014

I have a timeline in tab 1. I want to copy a specific cell range from tab 1 to tab 2 but when I make an edit to tab 1, I want it to show up on tab 2 automatically. I believe that's cell referencing but how do I reference an entire range?

View 1 Replies View Related

Copy Specific Range To Offset Location

Jan 21, 2009

I would appreciate some ones help to correct a macro I'm trying to write. The macro copies 3 columns from Sheet1 to Sheet2 in a selected location. The 3rd column copied needs to be pasted in a different column in Sheet2.

View 6 Replies View Related

Delete Row If Specific Data Is Found With That Row

Oct 22, 2009

I have been trying to create a macro vba that will look at a specific row in the current sheet and if it sees a name I need to delete that row. But I am looking to also under stand what it is doing so I can use this script in other instances. I just bought some things off MrExcel's Store but i won't get this for a few days.

View 9 Replies View Related

Use A Column Of Data If A Specific Value Is Found

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

Copy / Paste Columns That Has Specific Range With Formulas

Jan 3, 2013

Is there any way to copy a column that has a specific range

=COUNTIF(B12:BE12,"*p") etc

to copy that to a column lets say 5 columns to the right without my range changing?


I need the same range in all columns, and I cant seem to accomplish this.

View 3 Replies View Related


Jul 23, 2008

I have this:

Private Sub CommandButton1_Click()
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
End Sub

View 9 Replies View Related

Calculate If Specific Word Found In Column

Feb 15, 2008

I would like to use the following code to see if the word "reservoir" shows up in any of the rows in a certain column. If it does I want to insert the formula = SUM(D7:D257)*0.1 into cell C2 and if it doesn't then I want to put a 0 into cell C2. I've tried many routes but can't get past the error if it can't find the word.


View 4 Replies View Related

Macro To Copy Range Hidden Paste In Specific Location

Mar 26, 2014

I have recorded the below macro and I am not very happy with it. enhance the macro and add the following:

I need to copy the range "ROW" and past it below the range "MENU". Also the range "ROW" (ROW = copy of 3 line with some cells merged) is hidden.

I need to unhide and hide back the rang ROW. Right know I have to leave the range appearing otherwise my macro doesn't work.

HTML Code: 

Sub ADD()
' ActiveWindow.LargeScroll Down:=2
Application.CutCopyMode = False
' ActiveWindow.LargeScroll Down:=-2
Selection.Insert Shift:=xlDown
End Sub

View 1 Replies View Related

Copy Range From Multiple Workbooks With Specific Text In File Name

Nov 8, 2008

That does allow me to filter the output in Master, but ideally what I would want to do is not have to set aside 300 lines in the Master file for each of the Staff files. Conceptually, I'd like to have the spreadsheets Staff A, Staff B, etc. look for and export only lines which have data in them and then have Master bring those lines in automatically. This may not be possible, in which case your suggested solution is the best approach.

View 9 Replies View Related

Return Column Number When Specific Text Is Found

Apr 29, 2014

I am looking for a formula to return the column number of the array when a specific text is found, in this case the text is "Yes"

The Array will only ever be 5 cells beside each other in a row

for example, M4:Q4, will be as follows - No No No Yes No

I want a formula to look at these 5 cells and return the number 4 as that is where the "Yes" value is

View 5 Replies View Related

Copyrights 2005-15 www.BigResource.com, All rights reserved