change cell from

[alexanderd]

i have a colum of info in which the last 3 or could be 10 parts of th
text could be "//////"
ie " alex /////" in which there could be spaces inbeteen the x and /
hwat i would like to do is replace the whole cell with the wor
"DELETE

Attachment filename: ads.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=62773

 

[Rollin_Again]

I don't know if this will help but you can try the macro below. Jus
select the range of cells which you would like to evaluate and then ru
the macro. It will evaluate each cell to see if it contains more tha
one */* If it find more than one of these characters it will replac
the content of the cell with the word DELETE.


Code
-------------------

Public Sub Find()

For Each vCell In Selection.Cells

If Len(Trim(vCell.Value)) - Len(Replace(Trim(vCell.Value), "/", "")) > 1 Then
vCell.Value = "DELETE"
End If

Next

End Sub[/b
-------------------




Rolli

 

[Don Guillett]

this should do it. You may want to test first by changing the commented
line.
If you want to delete the row, use
If Right(Trim(c), 2) = "//" Then c.entirerow.delete

Sub markdelete()
For Each c In Selection
'If Right(Trim(c), 2) = "//" Then c.Offset(0, 1) = "Delete"
If Right(Trim(c), 2) = "//" Then c.Value = "Delete"
Next
End Sub

 

[alexanderd]

if only life was so simple-------- seems to work a treat . i will giv
it a full trial on monday if i'm allowed to keep to my schedule

thank you for your quick inpu

 

[Don Guillett]

glad to help