Macro Query

[Bradley H Callender]

Hi what macro code can i use to do the following:

when conditional formatting meets or is greater than 60
the value in that cell cuts and paste into another cell.


Thanks
Best Regards

 

[VoG]

Cells in which range? Cut and paste to where?

 

[Bradley H Callender]

Conditional formatting will be done in V6:V209 and if the condition is 60 or greater then they would be cut and pasted to Y6:Y209

 

[VoG]

Try this

Sub MoveData()
Dim i As Long
For i = 6 To 209
    With Range("V" & i)
        If .Value > 60 Then .Cut Destination:=.Offset(, 3)
    End With
Next i
End Sub

 

[Bradley H Callender]

Great works perfectly.

Ok i have values in V6:V209 and i want the values in V range to move to Y6:Y209 if the conditional formatting is >60 in Range AE6:AE209

 

[VoG]

Try

Sub MoveData()
Dim i As Long
For i = 6 To 209
    With Range("AE" & i)
        If .Value > 60 Then .Offset(, -9).Cut Destination:=.Offset(, -6)
    End With
Next i
End Sub

 

[Bradley H Callender]

.Offset(, -9).Cut Destination:=.Offset(, -6)

brings up debugging window when it gets to that line

 

[VoG]

That works without error for me. Are there error values like #N/A in column AE?

 

[Bradley H Callender]

No "N/a" no letters at all strictly totals based of conditional formatting

 

[Bradley H Callender]

Ok i figured out the problem one of the cells in V was merged