Match Condition And Copy To The Next Empty Cell
Sep 21, 2007
I am trying to do the following....I have data in three column in the "historydata" sheet, A, B, C. A lists the dates, B lists categories, and C lists some data. The data in column C is defined by the date and category in column A and B. What I want to do is...I want to copy data in C to the next empty cell in another spreadsheet if it meets the date and category condition. (for instance, if (y,A)=9/17/2007 and (y, B) = bond A, then I want to copy (y,c) to the next empty cell in sheet "marginreq" based on the first column. Here is my code...but it doesn't work.
Sub OJOM()
Dim A As Integer
A = 2
Do While Worksheets("Historydata").Cells(A, 1) <> ""
If Worksheets("Historydata").Cells(A, 2).Value = Worksheets("MarginReq").Range("B5") And Worksheets("Historydata").Cells(A, 3).Value = Worksheets("MarginReq").Range("B7") Then
Application. ScreenUpdating = False
Worksheets("Historydata").Cells(A, 3). CurrentRegion.copy Sheets("MarginReq").cells(rows,count,1).End(xlUp).Offset(1,0)
Sheets("Historydata").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
Loop
End Sub
View 5 Replies
ADVERTISEMENT
May 23, 2014
Here find the excel file
My requirement
1) 4 values contains in each row based on the values from those cells the max value will display.
2) if more than 2 cells have empty,NR or NA text means the entire row has to delete.
3) if 2 or more that means 3 cells having values the empty cell,NR or NA cell will place value with the condition of macro that is 75% of other values which is maximum among them.
View 1 Replies
View Related
May 5, 2008
I did a search to find a question similar to mine and I found this:
Copying data matching a criteria into another spreadsheet
This is exactly the same concept I am trying to accomplish, but don't know how to...at all. I couldn't follow the thread either.
I have a schedule which is constantly being updated (simplier version attached). I want to create a schedule, which will:
1) First ask which region to display the information for (I would like to create the same pop up menu to choose from)
2) Then, it will select only that region's information (all rows & columns) and copy them into a new worksheet and lists it all
-if you go back to the Master List, you can again choose another Region and it will create another new worksheet with that region's information
3) Don't know if this is making things more complicated, but at the bottom of the attached file, there are 3 lines under "Land".
Is it possible to list these under the same spreadsheet as the region it is pertaining to but classify it separately under "Land" (ie leaving space, so it is clear this is separate
View 9 Replies
View Related
Oct 23, 2007
I would like to copy a value in a cell using a macro from one worksheet to another in the same workbook. If B1 in worksheet 1 has a value of 200 then this to be copied into worksheet 2 in the range of A1:A20 BUT in the next available empty cell, so if A1:A10 are full then 200 must go in A11.
View 10 Replies
View Related
Aug 7, 2006
The aim-to fill in the gaps. I have a spreadsheet with a series of dates etc. and when two entries have the same date, the second one has an empty cell. For my formula to work I need the various empty cells to be filled by the correct date from above, this to be done down the column.
If you have time for a further problem, is there a macro which can work out the average of differing number of rows, with the rows being group by the fact that four different column catagories need to show identical values for the fifth number to be used to calculate the average.
View 2 Replies
View Related
Feb 9, 2007
I have two columns "Time" and "Code". I have a macro that inserts rows based on the Time. For instance, if a cell on the "Time" column has a value of 0:10, I then insert 10 rows right below that cell. If a cell on the "Time" column has a value of 0:40, I then insert 40 rows right below that cell and so on. This macro works fine. What I would like to do is this: After I run this macro and the required rows are inserted, I would like to copy the contents of the "Code" column onto all the inserted rows.
Lets say "Time" is in column B and "Code" is in column C. Now lets say B2 has value 0:25, B3 has value 0:10, B4 has value 0:05, then my first macro inserts 25 rows below B2, 10 rows below B3, and 5 rows below B4. Now, what I want to do is copy the value from C2 and paste it in the 25 rows inserted below B2, and copy the value from C3 and paste it in the 10 rows inserted below B4. I only want to paste contents on column c. all other cells needs to be empty.
View 2 Replies
View Related
Mar 10, 2014
I'm trying to set it up so that if a particular cell has any data in it, the contents of a different cell get sent to another. I want the no data/data to serve as a trigger.
As an example, if I put anything into cell A3, I want the contents of cell A1 to copy to H1. I'd also like it to be dynamic so that if I put something into cell B3, the contents of B1 get copied to H1, etc.
View 4 Replies
View Related
Jul 30, 2013
Is this possible using code: Copy Cell A1 and Paste in first empty Cell down Column D. This would be connected to a command button. Both Cell A1 and Column D are on the same spreadsheet.
View 3 Replies
View Related
Aug 23, 2008
The following code is intended to copy and paste the value from cell I2 to the first unused cell in column K. There is is header in cell K1. It works fine if there is a value in K2 or K3, etc., however, if K2 is blank (all cells beyond K1 are blank) I get an error 400 when I run the sub.
View 14 Replies
View Related
Oct 3, 2008
I'm have never learnt VB before and would like to try to write one to perform the following: If the next cell isempty, go to the last cell, copy it and paste into the empty cell; Else if the cell is not empty, go to next line and repeat the procedures until reach row =10000
.(BEFORE)
Row 1:Product A
Row 2:
Row 3:
Row 4:
Row 5:Product B
Row 7:
Row 8:
Row 9:......
View 3 Replies
View Related
Feb 7, 2008
I have programmed in many languages but a noob when it comes to VBA. I can guess at the syntax but I don't really understand what I am doing. So I was wondering if the following is possible. I want to write a script that checks for a value on a different sheet (SheetA) and based on it being defined (ie not empty) copies the entire row to a different sheet (SheetB). I probably have around 120 rows in SheetA and will only expect to see 10-20 rows on SheetB based on the criteria for copying. I am also unsure if the VBA code should be for SheetA or SheetB. At first I thought I could just hide rows based on a value but I also need to export the sheet to a csv file and looks like excel exports all the rows, even the hidden ones and I don't want that.
View 8 Replies
View Related
Dec 15, 2011
I've got a range of data in Column D approx 50,000 rows long and I need to go down this range and when theres a blank cell copy the info from the cell above. I've got some code which loops through this but I need to make sure I put "EOF and the bottom of the info to stop the loop. Is there a slicker way of writing this code?
Code:
Sub TestBlankCell()
Range("D5").Select
Do
[Code].....
View 6 Replies
View Related
Jul 18, 2012
I am using a worksheet to scan or enter students into a school event and determine their eligibility to participate in the event. Everything is working great but I need to do the following on Enter Student button click:
1) Cut scanned value (ID number) from input Cell A1
2) Paste value into next empty cell in column A (Rows build as students are inputted)
3) Copy Eligibility status (text) from column F into A6
I have a limited VBA/Macro background and have NEVER got a button to work.
View 9 Replies
View Related
Oct 13, 2012
I've schedule header date 1-oct,2-oct,3-oct.....etc and have two cells Last Date and Hours I need from those cells once i add date and hours to copy the hours and paste in schedule header in the exact date..
for example
#
Last date
Last Hours
[Code]....
but was too slow takes long time.
2nd VBA code to copy last hours to schedule date based on condition on last date cell.
View 3 Replies
View Related
Sep 28, 2007
I'm setting up a spreadsheet for work and i have a question. I'm not familiar with the formulas. If i want to set up a formula to where if i type "complete" in the cell it will move the entire row over to the next sheet.
View 2 Replies
View Related
Jul 31, 2008
I have 2 sheets, sheet1 and sheet2. On sheet1 I have a cell (w,3) which displays either "OK" or "Needed". It will be like this for every row on the sheet. On sheet2 I have more information. I have been trying to create a macro or VB function that everytime the workbook is opened will scan the entire column W for any that say "needed" and if/when one is found copy the data in the cell in column A of the same row from sheet1 to column A of the first blank row in sheet2.
So say cell w,6 displays "needed", I then want to have cell a,6 copied from sheet1 to sheet2 into the first column A that is blank. I don't really care if when w,6 changes to "OK" it removes the entry on sheet2 or not, in fact if it does that would be great.
Here is the code that seems to be not so complicated and has copied information from one sheet to another, can't get it to work consistantly. I copied it off a similar post on this site and am not sure what the last value = "1" is doing but I doubt its helping my cause. The cell I need to trigger the action is in the 23 column, the cell I need copied is always in the first and the cell I need it to be copied into on the 2nd sheet is always in the first column as well. I'm pretty good with regular logical statements but I feel that a lack of knowledge about all the available commands is really whats hurting me on this....
View 9 Replies
View Related
Sep 11, 2013
When the worksheet is changed;
-For each row between A3 and A5000
-If cell in column L is empty
-Do Nothing and move on to next row
-Otherwise if cell in column L is not empty
-Copy entire row to alternate sheet, and delete row from original sheet.
-After all rows between A3 and A5000 have been checked, sort alternate sheet in ascending order based on the contents of column A.
The issue is that the code keeps skipping some rows that should be copied, possibly due to the 'for each' command not liking how I'm deleting rows (maybe?)
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim lRow As Long
lRow = Range("A3:A5000").Rows.Count
[Code] .....
View 2 Replies
View Related
May 10, 2014
I am trying to create a macro that copies cells B2 and C6 from the active worksheet in a workbook called "transfer". Then searches for the first empty cell in a worksheet called "summary" in a workbook called "report" and pastes the value from B2 in the first empty cell in column D and the value from C6 in the first empty call in column E.
View 4 Replies
View Related
Jul 24, 2014
I have 2 worksheets, one called "Consolidated" and one called "Converted".
I would like to have a spreadsheet where I press the update button and a macro runs that searches for the word "Converted" in column E on the Consolidated spreadsheet (the original). When it finds it, I would like the entire row to be cut and pasted onto the "Converted" worksheet.
I have managed to do this with my current code:
[Code] .....
However when this macro runs, the row left behind on the original sheet is a blank row and I don't want this. I would like it to be continuous spreadsheet, not dotted with random blank rows!
View 6 Replies
View Related
Mar 20, 2005
I am using MS Excel 2000. Sheet1 is my working sheet. Cell A17 displays the current date (dd/mm/yyyy). Cells B17:K17 display my summary figures for that day. What I would like is a macro button that would look at the date in Cell A17, and if it is the first of the month …. eg 01/03/2005 it should insert a new sheet into the workbook and put the name Mar05in this case or what ever month it is on the tab. It then copies Cell A17:K17 and pastes the data in to the corresponding monthly sheet starting in A3 to K3. Because my working sheet (Sheet1) is updated with different data daily the new summary data (always in A17:K17) needs to be copied and pasted under the previous days entry in the corresponding monthly sheet. For the month of March I should end up with 31 entries giving me a summary for that month.
View 7 Replies
View Related
Aug 23, 2006
Have the marco (see Code below)that I am trying to pull only records that have a "y" in a column. The problem I am haivng is that I also get cells that are blank and rows are skipped if the cell is blank or not "y".
Have tried searching for an answer or example for what I want to do. Looked at autofilter but had no luck.
Sub Macro1()
Set rd = Sheets("ActiveHerd") 'set read data sheet as rd
Set wd = Sheets("SaleSheet") 'set write data sheet as wd
For i = 12 To Range("A65536").End(xlUp).Row ' set i to the last row in column A
If UCase(Cells(i, 1)) = "Y" Then Range("A" & i & ":c" & i).Copy Destination:=wd.Range("AA" & i)
Next i
End Sub
View 9 Replies
View Related
Aug 23, 2007
I need my macro to copy and paste from one worksheet to another, which is fine. However I need the copied value to be pasted into the last empty cell in a specific column. It is currently pasting each copied value into the last empty cell in column 'A' regardless of which column I specify it to copy to in my code.
View 5 Replies
View Related
Dec 15, 2008
I am trying to do is create an invoice log of payments received. For each payment there is a cell value of how many products the customer has which is updated on each payment entry. What I want to do is have a macro that runs when all other data is entered to update this value.
So I have a main customer sheet where it holds the product amount in the same workbook, let's call this cell $A$1 holding a value of 47. I go to enter a payment record on the invoice sheet, once this is complete the macro will run and look to $A$1 on the first sheet and update $B1 on my invoice sheet. On the next entry it will update $B2, then $B3 and so on.
View 2 Replies
View Related
Sep 7, 2009
I need to copy the data form Cell "C" to Cell "D" only if Cell "D" is empty
i have been using the following code but it will overwrite cell "D" regardless if data is present or not.
View 8 Replies
View Related
Aug 15, 2014
I want a macro which will copy all the data from sheet 1 in columns A:C ignoring any blanks
then paste it into the first free cell in column B of sheet 2
View 1 Replies
View Related
Jan 28, 2007
I am looking for a formula function or a vba code where:
- In workbook1 find the first cell that is empty between range A7 -
A10,
- In workbook2, in Range G10- G13: find the word "Day1".
- If the word "Day1" exists in cells G10 or G11 or G12 or G13, copy
the particular cell or cells where "Day1" exists to the first found
empty cell or cells in range A7-A10 in workbook1.
Lets suppose cells A8, A9, A10(workbook1) are empty cells, that means
A8 is the first empty cell.
And G10,G11,G12, G13 (workbook2) have the word "Day1"
Then,
Copy cell G10 into cell A8
Copy cell G11 into cell A9
Copy cell G12 into cell A10
View 3 Replies
View Related
Apr 8, 2008
I have two sheets and I want to copy the values in a row in the first sheet to the second sheet. I am doing the following:
Sheet2. Range("A1").Value = Sheet1.Range("A1", Sheet1.Range("A1").End(xlToRight)).Value
But this only copies the value of A1 in Sheet1 to A1 in Sheet2. How should I modify it to copy the values for the whole range to the second sheet?
View 9 Replies
View Related
May 3, 2014
I have been struggling with a way to use an IF statement that determines if a cell in column B = 1 then copy that cell and the two cells next to it to a cell starting in range B50. Once the condition is true would want it to copy another below and so on.
B C D E D
1 E10 Rear door failed BL OK
2 B4 Clearance light inop. KL OK
2 C1 Fire extinguisher date expired KL Ok
1 E1 Bumper falling off BL NO
The first and fourth row have a "1" in column B. So as a result these two rows meet the condition and want to copy just the cell in B thru D. Results would look like below
First entry copied to cell B50
1 E10 Rear door failed
1 E1 Bumper falling off
View 3 Replies
View Related
Sep 10, 2013
I need to copy a cell into another spread sheet contingent on whether or not another cell in the row is empty.
For example, I need to copy cell A5 because D5 is empty.. However, if D5 was not empty I would not need to copy A5.
I don't need this macro to loop.
View 2 Replies
View Related
Mar 8, 2007
i need to have 6 or so cells copied and pasted into another sheet. (when a button is pressed) However before the data is pasted it checks if there is anything in the cell(s) that are being pasted into, if there is something then move down a line and paste. Here is the code i have already:
Sub Order2Invoice()
Sheets("OrderDatabase").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = Orderform!G5.Value
.Offset(0, 1) = Orderform!E10.Value
.Offset(0, 2) = Orderform!E11.Value
.Offset(0, 3) = Orderform!E12.Value
.Offset(0, 4) = Orderform!E13.Value
.Offset(0, 5) = Orderform!E15.Value
.Offset(0, 8) = Orderform!E15.Value
End With
Sheets("Invoice").Select
End Sub
View 4 Replies
View Related
