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?

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?

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?

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?

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?

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?

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?