I tried to make something to find a certain value (from a userform) in a range, and then copy the line partially to another sheet. Then go forth to the next found item and do the same. But... I cannot seem to make this loop.
With Sheets("Data input").Range("N5:N1100")
Dim FoundRange As Range
Worksheets("Data input").Activate
[Code].....
What I am trying to do is automatically move the date received and the total qty received from the Rcvg. Log sheet to the RFMs Release sheet.
The problem is:
1) I don't know what I'm doing
2) On the Rcvg. Log several part numbers that are the same with different Qtys.
3) on the Rcvg. Log the are several part numbers that are the same using different programs.
What I would like to do is combine all the same part numbers with the same program add the total Qty received and paste the date received and total Qty into the RFMs Release sheet in the proper part numbers row.
Is this possible?
Attached is a shortened copy of the spreadsheet normally there about 3000 entries.
Our small family business has a mailing campaign that we track with excel. However, we're very concerned about users opening the macro-filled master spreadsheet. Instead, we'd like a macro to do everything for them.
When a letter comes back in the mail with a bad address, the user types the Street number and street name such as "1234 Main St" into $A2 of c:dropbox eturned.xlsm, presses the macro button, and it should do the following:
Opens and Searches "Sheet1", "column S", in the file c:dropboxmaster1.xlsm, and finds the LAST instance of the address typed.Selects that entire rowCopies the entire row.Pastes the contents into the row of the active cell in the destination spreadsheet, overwriting what was there before. Such as $2:$2 if the address was typed in $A2.In the master1.xlsm spreadsheet, sets the entire copied row color to "gray".closes master1.xlsm and saves changes.
The end result is that the user now has an identical row of information in their spreadsheet, and the master spreadsheet's row is colored gray indicating it has been completed.
Other notes:I'm open to more efficient steps than this if you have them.There are approx 5,000 records to search through in master1.xlsx at any given time.
Purpose:
Build a roster from:
Sheets(Settings).Range("A21").Value (this value is variable)
Problem:
Find that A21 value in Range T2:T100 (each value in the range is unique)
Copy that value to Sheets("Roster") E8
and the next 9 values to
E14
E20
E26
E32
G2
G14
G20
G26
G32
Reason for posting: I've been trying to do this with vba but sheet formula will probably work, I can always Copy/Paste Special/Values to clear the formula. Keyword searching has resulted in no progress.
Im going to try to make this as clear as possible. I cant use my actual data because it wouldnt make any sense to anyone so Ive made up an example problem. Here goes...
Lets say in Sheet 1 I have two descending columns of data. Column A is MODEL of Vehicle (Civic for example). Column B is vehicle identification number (xxx for example). Sheet two has 4 columns of data, but only one is really required for this example. Cell A1 is the MAKE of vehicle (Honda for example). Directly below that in Cell A2 is the MODEL of the vehicle (Civic). There are then a few rows of empty space until it gets to the next vehicle MAKE and MODEL.
So in Sheet1 there is a long list of MAKE's in ColumnA and VIN's in ColumnB. Sheet2 Has a long list of MAKE's and MODEL's in ColumnA and random data in other columns.
What I want to do is assemble a Macro to start in Sheet1-A2, read the MODEL then copy the corresponding Vehicle Identification Number in B2. I then want it to go to Sheet2-A2 and start searching downward until it comes across a matching MODEL. Once it finds the match I want it to step downward 2 cells and paste the Vehicle Identification Number. Then return to Sheet1-A3, and repeat the process until EOF.
I don't know if this is even possible via VBA, but thought I'd throw it out there and see what you guys think.
In the attached workbook column D contains fields for the UsagePN. If a part is "rolled-up" in our order system to a new part number, then the OLD part number, (in colmn B), is associated with a UsagePN. What I need to do is, for every part that has a UsagePN in Column D, I need to find that part number in column B and add the inventory values from the old part number to the new one.
For Example:
Row 74 in the attachment has a UsagePN of AC1230105V. I need to take the values from cells G74 thru K74 andd ADD them to the existing values in G77 thru K77, which are the inventory values for AC1230105V.
In other words, since part number AC1230105 has rolled-up to the new part number AC1230105V, I need to add all of the inventory to the new part number, AC1230105V.
After this is done for ALL parts with a usage part number, I will delete all the rows containing UsagePN's.
Here's the catch, as you can see in the example, there is no consistency, so a simple formula like adding the values to the same part number with a "V" at the end won't work. I guess you would have to do something like for each row with a value in column D, dim that row so you can refer back to it, then search for a match in column B, insert a "helper" row below where the part number is found to add the quantities, then replace the original with the helper row, and then delete the helper. One of you guys probably knows a better way.
Keep in mind that you won't always find a match, so the macro needs to continue to the next part if no match is found.
I hope I was clear. This one looks like it will be a nightmare, but I hope somebody on here has some ideas.
see attached spreadsheet. In sheet 1 I would like to look up each word in column D, seeing if they are in column B at all. Note if the word "Jill" is in D and "jilly" in a surname in B I would like it to get picked up. I have highlighted manually those that would get picked up. Those that do get picked up I would like to be copied into column C as per sheet 2 (this is what I would like it to end up like). There is a very long winded way of doing this using a find function and 1 column per word but as the actual sheet i'm using has thousands of different words this isn't really viable!
View 8 Replies View RelatedI am trying to take data from specific cells on PBI_DATA_SORT and paste it into a new line in PBI_DATA_SORT_TRACKING with a date and time stamp in separate cells.
I have been able to get it to copy from one to another but not with a date and time stamp.
Code:
Sub Macro3()
'
' Macro3 Macro
'
Sheets("PBI_DATA_SORT").Range("D139:H139,M139").Copy
[Code]....
I have 4 sheets called Data, xxx, www and yyy. The sheet names xxx, www and yyy are also words that are existing in the sheet Data in Row C. Am I able to copy paste all the lines existing in the sheet Data including i.e. xxx in Row C into the sheet xxx? This should also work for the words www and yyy.
View 9 Replies View RelatedI am trying to copy multiple rows (ie: rows that have data in them) over to another sheet on the next available line.
I have the code to go through and filter the data that I want to use. Now I have anywhere from 1-50 rows of data all sequentially together that I need to either copy or move to another sheet ("Data") on the next available line.
I have this code so far:
Worksheets("To Be Worked").Range("B5:K5").Value = Worksheets("Data").Range("A1").End(xlDown).Offset(1, 0)
But this only includes 1 row so I either have to loop the VBA or expand the range to include multiple rows. Both of which I don't know how to do. And that code doesn't work too well either.
I am trying find a match from multple "text" values.
The values I'm using are flight numbers from sheet "Indiv case" in column (range H2:H51). The flight number could occur multiple time in the column.
The associated flight number sheet "Code & categories" in column (range H2:H257) are associated with the last port of embarkation (range I2:I257) in "Code & categories" sheet.
I need to copy & past the name of the Last port of embarkation from sheet "Code & categories" into sheet "Indiv case" adjcent to the flight numbers in column (I2:I51).
Example: Sheet "Indiv case" from Column (H2:H51) Fligh number Data: UA863, VA4148, EK432, BA15, BA15, VA98, QF8, AC33 etc Using these value from "Indiv case" from Column (H2:H51) search and match valuse in "Code & categories" in column (range H2:H257)
If match found copy valuse from sheet "Code & categories in column (i2:I257) in to sheet "Indiv case" into column (I2:I51) Last port of embarkation".
H2;H257, I2:I257
Flight, Last Post
3k111, Singapore
3k131, Singapore
AC33, Vancouver
Copy and Past "Last Port" into sheet "Indiv case (I2:I51) adjcent to matching flight code.
I have a text document with 1000 lines. All the lines are in this format
important< %#$ other words
other important thing < %Z$different words
some important text < $# some other words
I want to know if is such a excel filter that will delete all the characters starting from "<" until the end of the line.
So, the output of this 1000 lines will look something like this:
important
other important thing
some important text
i have a spreadsheet with 21,000 part numbers. I am trying to group the like part numbers, then leave a space between the unlike part numbers. right now my spreadsheet has a space between each part number and i want to eliminate that. but also keeping the part's qty, date, etc. with it.
View 14 Replies View RelatedI 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.
The following macro does what it is designed to do and needs to be run from a control sheet called "Guide". When I run it from this Guide sheet it stops at around row 53 (out of 1400 rows) on each of the specified sheets in the macro. I have struggled with this problem and have now discovered that the macro will run correctly when run from one of the worksheets specified in the array, e.g. sheet "200 and 100".
Sub Calculateclosingtrades1()
Dim r As Long, c As Integer, LastRow As Long, rcheck As Long
LastRow = Range("J65536").End(xlUp).Row
Dim shtTemp As Worksheet
Dim vntName As Variant
For Each vntName In Array("200 and 100", "100 and 50", "50 and 25", "40 and 20", "20 and 10", "15 and 10", "18 and 9", "200 only", "100 only", "50 only", "40 only", "25 only", "20 only", "15 only").............
I have a spreadsheet with 2 worksheets. On the first "active parts" I have a list of active part numbers and on the second "All Parts" I have all of the parts available.
I want to compare every part in the All Parts worksheet to see if the part number exists on the Active Parts sheet - if it's there, I would like it to return the value "Active" in column B in All Parts. I have a formula in column B in All Parts that seems to work for the first few, but as soon as it finds one that is active, the rest of the cells below all return "Active".
I want to do is add data into Sheet A each day then press a button which will copy the data in a range and paste it into Sheet B, but I want to create a list of all data so I need it to find the next empty cell and start the paste from there (if that makes sense).
I want it to create a data base on one sheet from a daily import, I have a code to copy one cell to next empty cell but dont know how to duplicate it to a range.
I hope I have given you enough info this is what I have done so far
Public Sub CopyData()
Dim ws As Worksheet, bi As Byte, vData(1 To 1)
Set ws = Sheets("A")
For bi = 1 To 1
vData(bi) = Application.Choose(bi, ws.Range("A1"))
[Code]....
I'm working with matrix in vba and i'm trying to put all values of a specific line in that matrix in a line in excel. For example:
Matrix =
1 2
3 4
and i want Range("B1:B2") = 3 | 4 (the second line of that matrix).
Is there any way of doing this without perfoming a loop?
[something like Range("B1:B2").value = 'range'(matrix(0,0) , matrix(0,1)) ]
I have a spreadsheet where on a weekly basis data is copied in to various tabs. I then have a "formula" tab where I have a single line of formulas which look up the various data tabs and extract the results I want to show.
Currently each week, before I import the new data into the various tabs, I copy the last row in the "formula" tab and paste to the line below it. This contains all the working formulas. I then paste values only on the line that I copied, thus "locking in" the values it calculated with that weeks data. This means that each row then contains the results with that week's data, and this will grow week by week.
What I am looking for is a formula that automates this process. So let's say that row 30 is the final row of data on my formula tab, it contains the formulas I want to use. I would need a macros that does the following:
1. Looks up last row (row 30)
2. Copies last row (row 30)
3. Pastes to next empty row (row 31)
4. Pastes values only to second last row (row 30)
I'm not too great with writing macros, I've found plenty that can find the last row, but I can't get them to work to highlight that row.
I'm trying to copy the cells from a sheet and transfer only the values to other sheet.
I did it via code and it worked fine, except for the dates. In the new sheet the months and days are swapped.
The original date is composed via the concatenate function, since it gets inputs (day, month and year) from the user in different cells. It's in the format D/M/YYYY (examples: 4/2/2014, 10/12/2013). I believe the excel interprets it as Text, even if I formated the cells to Date.
I think it may have something to do with the default format in different countries. Here in Brazil we use DD/MM/YYYY, but my Excel is in english and in US the format is MM/DD/YYYY, am I right?
I am trying to create a macro that copies the values from A2 to the last row of data on sheet1 and past them to cell B2 on sheet2
View 2 Replies View RelatedI am trying to locate specific values in column a of a spreadsheet and I want to be able to move (cut and paste, offset, ???) only those values to column c of the same row. The values I am looking for are text and they all begin <@29>, <@33>, etc. (pagemaker codes). I want to move the cells with the pagemaker codes to column c. and leave the other ones in column a. Does anybody know how to do this using vba? Below is a sample of my column a.
16D
16D
16D
16D
16D
16D
16D
16D
16D
16D.........
Here's what I need to do. I need to search 3 huge columns from multiple workbooks and copy all values > 0 onto 1 Worksheet in a completely new workbook.
I've done a search and this was the closest I've found to what I need: Find, copy, paste to diffrent sheet
But I couldn't get it to work.
Here's where I am:
For iteration = 1 To numFiles
'blah blah blah get filenames
'filename of new workbook = outputFileName
'worksheet name in new workbook = Cumulative Record Data
'filename of data workbook = dataFileName
'worksheet name in data workbook = Record
The error code I get is Run-time error '1004' - Application defined or object-defined error on line
I am building a Macro which can be found underneath. The red code is not working right now and I am looking for alternatives to solve this error but until now I haven't found none.
Basically, I am looking for a correct code to copy files from a sheet to another sheet with a find macro.
Sub vinden()
Dim FindString As String
Dim Rng As Range
FindString = Range("A21")
If Trim(FindString) <> "" Then
With Sheets("Voorraadverloop").Range("A1:IV65536")
I need a formula that will look at a entire work sheet find a name, then find a date, and display a string from a cell in the date row.
For example I want it to first find all the rows that has "Jane Doe", then find a specific date from those rows, and then display a value from a cell in that row. Keep in mind that the there will be no consistency with the row data, but the column's are static.
Attachment 261622
I'm trying to create a macro that will take a value found on Sheet 1 in Column A and search Sheet 2 Column D. If the value matches exactly it will highlight the row on Sheet 2 in Red and if a match is found but it has some extra characters in the list it will highlight the row in Yellow. I have included a sample sheet to show you exactly how the outcome should look. It will need to run on a loop until there are no more values found in Column A on sheet 1.
View 7 Replies View RelatedI'm supposed to find duplicates in sheet_1 Q6:Q251 and copy one of each to sheet_2 D6:D243 as well as unique values from the same column. In a sheet_1 B6:B251 I have values related to Q6:Q251 and I have to copy each of them to sheet_2, E6:I6 in the same row as the related duplicate (I'll have max 5 duplicates). You can find attached simple example of what should be the result (sheet_2)
View 7 Replies View RelatedI have a value in sheet3 cell "C9". (the value is stewart)
I am tring to have the macro go down column "C" in sheet1 and the value is the same as "C9"s value in sheet3 then copy the 7 cells to the right and paste them in the 7 cells right of "C9" in sheet3.
Example: If the value in cell "C9" in sheet3 = "stewart" and the value in "C109" in sheet1 is "stewart" the copy C110:C116 in sheet1 and paste those values in C10:C16 in sheet3.
I guess you wouldn't have to offset, you could copy C109:C116 and paste it to C9:C16 since its the same value.
See attached spreadsheet for reference : MacroHelp.xlsx
I would like the macro to look in column I, and when it finds "TRUE", I'd like it to copy and paste values in all the cells to the left of it.
Reason being is that I want to rid the row of its formula, so the next time someone changes the info (the date the vlookup is searching for) in the tabs those cells are referring to, I will not lose the data it returned previously.
Really all I want is to copy and paste the values in the lowermost row of new information for each plant, but this is the best way I can currently think of.
I've removed the tabs the cells in columns B-G are referring to for sensitivity's sake.
I have created (pieced) together a macro to search through a list and paste the results in another worksheet it works fine but i can't get it to loop through the list.
Sub Findall()
Dim y As Long
Dim starta As String
Dim tr As Long, tc As Long
Dim sr As Long, sc As Long
Dim s As Worksheet, t As Worksheet
Dim SourceCell As Range
'Setup
Application. ScreenUpdating = False
Set t = Sheets("Target Sheet")
Set s = Sheets("Search sheet")
Set SourceCell = ActiveCell
Do While IsEmpty(ActiveCell) = False
Counter = 1
'Get last used row in Target Sheet
t.Select..........................
