Finding & deleting cells that do not contain a certain text string

Finding & deleting cells that do not contain a certain text string

Post by clmarque » Wed, 07 Dec 2005 15:52:55



Hello,

I'm brand new to VB for Excel, but I am trying...

I have a sheet with multiple columns of data. In column A, I have some
names that have the format "lastname, first initial". Some cells within
column A do not have the comma, and these are the ones that I would like
to delete. I only want to delete the cell (and shift others up), so
that the other columns are not affected.

I found some older posts that had asked a similar problem, but they
dealt with deleting the entire row. When I would change this to just
the selection, the macro would get hung up on that line. Any help
would be greatly appreciated.

Thanks,
Kez


--
clmarquez
------------------------------------------------------------------------
clmarquez's Profile: http://www.yqcomputer.com/
View this thread: http://www.yqcomputer.com/
 
 
 

Finding & deleting cells that do not contain a certain text string

Post by Bob Philli » Wed, 07 Dec 2005 17:43:20

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "A").Value Like "*,*" Then
Cells(i, "A").Delete Shift:=xlUp
End If
Next i

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"clmarquez" < XXXX@XXXXX.COM > wrote

http://www.yqcomputer.com/

 
 
 

Finding & deleting cells that do not contain a certain text string

Post by clmarque » Thu, 08 Dec 2005 02:32:57


Worked good, except it was deleting the cells that I wanted to keep!
So, I added a "Not" after your "If", and it solved the problem.

Thanks again for the quick reply and solution