|
Posted to microsoft.public.excel.programming
|
|
|
MACROS
This worked. Thanks.
"Excelenator" wrote:
This should do the trick
Code:
--------------------
Sub MovePrinted()
Dim i As Integer
Dim c As Range
For Each c In Range("A:A")
If UCase(Right(c.Value, 3)) = "TTL" Then
i = 0
End If
If UCase(Right(c.Value, 7)) = "PRINTED" Then
Range(c.Address).Offset(i, 1).Value = c.Value
c.Value = ""
Else
i = i - 1
End If
Next
End Sub
--------------------
--
Excelenator
------------------------------------------------------------------------
Excelenator's Profile: http://www.excelforum.com/member.php...o&userid=36768
View this thread: http://www.excelforum.com/showthread...hreadid=565130
|