About Us

Andyjim

Thanks so much Joel...I'll try this

"Joel" wrote:

You probably want to clearcontents, not delete cells

clearrow = activecell.row
Range("A" & clearrow & ":F" & clearrow).clearcontents
Range("K" & clearrow & ":M" & clearrow).clearcontents
Range("O" & clearrow & ":S" & clearrow).clearcontents

"Andyjim" wrote:

I submitted this question earlier, but I don't see my post.

This loop works fine. I need to create a similar loop that does the same
thing except instead of copy and pasting, I need it to delete certain ranges
(specifically cells a:f, K:m, and o:s). This probably could be done with
offsets, but is there a better way? Thanks in advance.

Sub MoveCompletedTradesLoop()

Dim TradesEntered As Range, ClosCheck As Range

With Sheets("Analysis")
Set TradesEntered = .Range("at17:at56")
End With

'Loop: Check for complete trades, copy to Trade History
For X = 1 To TradesEntered.Count
Set ClosCheck = TradesEntered(X)

If ClosCheck.Value = "True" Then
With ClosCheck
.Worksheet.Select
ClosCheck.EntireRow.Select
Selection.Copy
Sheets("TradeHistory").Select
Range("A4").Activate
Selection.End(xlDown).Select
ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate
ActiveCell.EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Analysis").Select
Range("A1").Select
End With
'Else
' MsgBox ("OK") 'Goes with Else. Comment out
' Exit Sub 'Goes with Else. Comment it out.
End If
Next 'Ends "For Each" Loop

End Sub

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding criteria to loop	Andyjim	Excel Worksheet Functions	0	January 13th 08 08:54 PM
Adding in loop	Sally Mae	Charts and Charting in Excel	1	July 5th 06 01:34 PM
Advancing outer Loop Based on criteria of inner loop	ExcelMonkey	Excel Programming	1	August 15th 05 05:23 PM
Problem adding charts using Do-Loop Until loop	Chris Bromley[_2_]	Excel Programming	2	May 23rd 05 01:31 PM
3 range criteria for Loop	hotherps[_47_]	Excel Programming	0	April 14th 04 06:02 PM

Menu

About Us