clear cells containing specific values

[andresg1975]

If someone can help me on this:
I have
column A
row1 28th street market
row2 051911 11/15/04
row3 able sewer
row4 040792 10/27/03
row5 acme awning
row6 026466 07/23/02

and so on,

i need to keep cells containing only vendor names in this column and clear
the rest, leaving them blank.

Thanks a lot for your help

 

[JW]

Does it alternate like that all the way down? Vendor name then
market? If so, here is one possibility (not tested):
Sub foofer()
lRow = Range("A65536").End(xlUp).Row
For i = 3 To lRow Step 2
Cells(i, 1).ClearContents
Next
End Sub

 

[JW]

Also, the code I poste is assuming that you have a header row.
Example:
Row 1 - Header
Row 2 - 28th Street Market
Row 3 - 051911 11/15/04

If you do not have a header row, simply change the i variable in the
For Next loop to a 2.

 

[andresg1975]

It does not alternate like that, i would appreciate if you have any other
idea of doing it

 

[JW]

Need more info. Need a way to identify the vendor records from the
non-vendor records.

 

[andresg1975]

is there a way to create a macro that,
lets say look in column a for blank cells, and clear the contents of column b

 

[JW]

Sub foofinator()
lRow = Range("b65536").End(xlUp).Row
For i = 2 To lRow
If IsEmpty(Cells(i, 1)) Then _
Cells(i, 2).ClearContents
Next
End Sub

 

[andresg1975]

Thanks a lot for your help. That works perfect!

Sub foofinator()
lRow = Range("b65536").End(xlUp).Row
For i = 2 To lRow
If IsEmpty(Cells(i, 1)) Then _
Cells(i, 2).ClearContents
Next
End Sub