| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy IF condition exists
Is it possiable to Copy and paste if a specific condition exists?
Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy IF condition exists
Something like:
If Range("F5").Value<61 Then 'Your code to move/copy whatever you want. End If You will probably need more than that if you want to "move" the entire row rather than just copy it. HTH Otto "Office_Novice" wrote in message ... Is it possiable to Copy and paste if a specific condition exists? Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy IF condition exists
Well Thats a good start thanks, if i could bother you for one more? Rather
then spend the rest of my life typing this over and over Sub newone() If Range("F1").Value < 61 Then Sheets("Sheet1").Select Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet1").Select End If If Range("F2").Value < 61 Then Rows("2:2").Select Selection.Copy Sheets("Sheet2").Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Sheets("Sheet1").Select End If Could this be put in a loop to Do....Until There are no numbers < 61? "Otto Moehrbach" wrote: Something like: If Range("F5").Value<61 Then 'Your code to move/copy whatever you want. End If You will probably need more than that if you want to "move" the entire row rather than just copy it. HTH Otto "Office_Novice" wrote in message ... Is it possiable to Copy and paste if a specific condition exists? Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy IF condition exists
Maybe something like this: HTH Otto
Sub newone() Dim RngColF As Range Dim i As Range Dim Dest As Range Sheets("Sheet1").Select Set RngColF = Range("F1", Range("F" & Rows.Count).End(xlUp)) With Sheets("Sheet2") Set Dest = .Range("A1") End With For Each i In RngColF If i.Value < 61 Then i.EntireRow.Copy Dest Set Dest = Dest.Offset(1) End If Next i End Sub "Office_Novice" wrote in message ... Well Thats a good start thanks, if i could bother you for one more? Rather then spend the rest of my life typing this over and over Sub newone() If Range("F1").Value < 61 Then Sheets("Sheet1").Select Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet1").Select End If If Range("F2").Value < 61 Then Rows("2:2").Select Selection.Copy Sheets("Sheet2").Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Sheets("Sheet1").Select End If Could this be put in a loop to Do....Until There are no numbers < 61? "Otto Moehrbach" wrote: Something like: If Range("F5").Value<61 Then 'Your code to move/copy whatever you want. End If You will probably need more than that if you want to "move" the entire row rather than just copy it. HTH Otto "Office_Novice" wrote in message ... Is it possiable to Copy and paste if a specific condition exists? Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy IF condition exists
So Far so Good thanks Otto!
"Otto Moehrbach" wrote: Maybe something like this: HTH Otto Sub newone() Dim RngColF As Range Dim i As Range Dim Dest As Range Sheets("Sheet1").Select Set RngColF = Range("F1", Range("F" & Rows.Count).End(xlUp)) With Sheets("Sheet2") Set Dest = .Range("A1") End With For Each i In RngColF If i.Value < 61 Then i.EntireRow.Copy Dest Set Dest = Dest.Offset(1) End If Next i End Sub "Office_Novice" wrote in message ... Well Thats a good start thanks, if i could bother you for one more? Rather then spend the rest of my life typing this over and over Sub newone() If Range("F1").Value < 61 Then Sheets("Sheet1").Select Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet1").Select End If If Range("F2").Value < 61 Then Rows("2:2").Select Selection.Copy Sheets("Sheet2").Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Sheets("Sheet1").Select End If Could this be put in a loop to Do....Until There are no numbers < 61? "Otto Moehrbach" wrote: Something like: If Range("F5").Value<61 Then 'Your code to move/copy whatever you want. End If You will probably need more than that if you want to "move" the entire row rather than just copy it. HTH Otto "Office_Novice" wrote in message ... Is it possiable to Copy and paste if a specific condition exists? Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy IF condition exists
So far so good?? You mean there's more? Otto
"Office_Novice" wrote in message ... So Far so Good thanks Otto! "Otto Moehrbach" wrote: Maybe something like this: HTH Otto Sub newone() Dim RngColF As Range Dim i As Range Dim Dest As Range Sheets("Sheet1").Select Set RngColF = Range("F1", Range("F" & Rows.Count).End(xlUp)) With Sheets("Sheet2") Set Dest = .Range("A1") End With For Each i In RngColF If i.Value < 61 Then i.EntireRow.Copy Dest Set Dest = Dest.Offset(1) End If Next i End Sub "Office_Novice" wrote in message ... Well Thats a good start thanks, if i could bother you for one more? Rather then spend the rest of my life typing this over and over Sub newone() If Range("F1").Value < 61 Then Sheets("Sheet1").Select Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet1").Select End If If Range("F2").Value < 61 Then Rows("2:2").Select Selection.Copy Sheets("Sheet2").Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Sheets("Sheet1").Select End If Could this be put in a loop to Do....Until There are no numbers < 61? "Otto Moehrbach" wrote: Something like: If Range("F5").Value<61 Then 'Your code to move/copy whatever you want. End If You will probably need more than that if you want to "move" the entire row rather than just copy it. HTH Otto "Office_Novice" wrote in message ... Is it possiable to Copy and paste if a specific condition exists? Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy IF condition exists
Isnt there always more? Thanks for you rhelp.
"Otto Moehrbach" wrote: So far so good?? You mean there's more? Otto "Office_Novice" wrote in message ... So Far so Good thanks Otto! "Otto Moehrbach" wrote: Maybe something like this: HTH Otto Sub newone() Dim RngColF As Range Dim i As Range Dim Dest As Range Sheets("Sheet1").Select Set RngColF = Range("F1", Range("F" & Rows.Count).End(xlUp)) With Sheets("Sheet2") Set Dest = .Range("A1") End With For Each i In RngColF If i.Value < 61 Then i.EntireRow.Copy Dest Set Dest = Dest.Offset(1) End If Next i End Sub "Office_Novice" wrote in message ... Well Thats a good start thanks, if i could bother you for one more? Rather then spend the rest of my life typing this over and over Sub newone() If Range("F1").Value < 61 Then Sheets("Sheet1").Select Rows("1:1").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet1").Select End If If Range("F2").Value < 61 Then Rows("2:2").Select Selection.Copy Sheets("Sheet2").Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Sheets("Sheet1").Select End If Could this be put in a loop to Do....Until There are no numbers < 61? "Otto Moehrbach" wrote: Something like: If Range("F5").Value<61 Then 'Your code to move/copy whatever you want. End If You will probably need more than that if you want to "move" the entire row rather than just copy it. HTH Otto "Office_Novice" wrote in message ... Is it possiable to Copy and paste if a specific condition exists? Heres the problem in column "F" there is a number. If that number is less then 61 i would like to move the entire row to another sheet. also the range will change with the data. can this be done? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Block cell if specific condition exists | Excel Discussion (Misc queries) | |||
| How to Add columns if a condition exists | Excel Discussion (Misc queries) | |||
| do not copy data to another sheet if exists | Excel Worksheet Functions | |||
| Taking content from worksheet,loc it in another, and if exists. copy it to a third... | Excel Programming | |||
Linear Mode
