| Home |
| Search |
| Today's Posts |
|
#8
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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| choose default macros Not Enabled / Macros Enable Setting | Excel Programming | |||
| weird saving of a document with macros resulting with macros being transfered to the copy | Excel Programming | |||
| convert lotus 123w macros to excel macros | Excel Programming | |||
| Macros not appearing in the Tools Macro Macros list | Excel Programming | |||
| Suppress the Disable Macros / Enable Macros Dialog | Excel Programming | |||
Threaded Mode
