conditional copying

drag-driver · Mar 5th, 2002, 06:32 AM

Want to copy a row to a new sheet only if the condition in another cell is true.Dont want it to copy the cell if the condtion is false.

Mar 5th, 2002, 07:34 AM

I want to know how to do that too. Although I want to then go to the next item in a list and perform the same function (again only if the condition is met)

Klefty · Mar 5th, 2002, 08:01 AM

Assuming your data is in column A and your condition to copy is in column B, both on Sheet1, and you wish to copy to Sheet2, then you could try the following..

Sub copy()
r = 1
Do While Cells(r, 1) > ""
If Cells(r, 2) = "yescopy" Then c$ = Cells(r, 1): rr = rr + 1
Sheets("Sheet2").Select
Cells(rr, 1) = c$
Sheets("Sheet1").Select
r = r + 1
Loop
End Sub

Note the above will only copy a single cell across to the new sheet. If you need to copy more you should be able to see how by looking at the code, if not reply back and I'll see what I can do

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 5th, 2002, 06:32 AM	#1
drag-driver Board Regular Join Date: Feb 2002 Posts: 91	Want to copy a row to a new sheet only if the condition in another cell is true.Dont want it to copy the cell if the condtion is false.

Mar 5th, 2002, 07:34 AM	#2
Guest Posts: n/a	I want to know how to do that too. Although I want to then go to the next item in a list and perform the same function (again only if the condition is met)

Mar 5th, 2002, 08:01 AM	#3
Klefty New Member Join Date: Mar 2002 Posts: 3	Assuming your data is in column A and your condition to copy is in column B, both on Sheet1, and you wish to copy to Sheet2, then you could try the following.. Sub copy() r = 1 Do While Cells(r, 1) > "" If Cells(r, 2) = "yescopy" Then c$ = Cells(r, 1): rr = rr + 1 Sheets("Sheet2").Select Cells(rr, 1) = c$ Sheets("Sheet1").Select r = r + 1 Loop End Sub Note the above will only copy a single cell across to the new sheet. If you need to copy more you should be able to see how by looking at the code, if not reply back and I'll see what I can do