ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   clear cells containing specific values (https://www.excelbanter.com/excel-programming/397938-clear-cells-containing-specific-values.html)

andresg1975

clear cells containing specific values
 
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[_2_]

clear cells containing specific values
 
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

andresg1975 wrote:
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[_2_]

clear cells containing specific values
 
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.


JW wrote:
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

andresg1975 wrote:
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



andresg1975

clear cells containing specific values
 
It does not alternate like that, i would appreciate if you have any other
idea of doing it

"JW" wrote:

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.


JW wrote:
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

andresg1975 wrote:
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[_2_]

clear cells containing specific values
 
Need more info. Need a way to identify the vendor records from the
non-vendor records.
andresg1975 wrote:
It does not alternate like that, i would appreciate if you have any other
idea of doing it

"JW" wrote:

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.


JW wrote:
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

andresg1975 wrote:
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





andresg1975

clear cells containing specific values
 
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" wrote:

Need more info. Need a way to identify the vendor records from the
non-vendor records.
andresg1975 wrote:
It does not alternate like that, i would appreciate if you have any other
idea of doing it

"JW" wrote:

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.


JW wrote:
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

andresg1975 wrote:
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[_2_]

clear cells containing specific values
 
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 wrote:
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" wrote:

Need more info. Need a way to identify the vendor records from the
non-vendor records.
andresg1975 wrote:
It does not alternate like that, i would appreciate if you have any other
idea of doing it

"JW" wrote:

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.


JW wrote:
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

andresg1975 wrote:
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






andresg1975

clear cells containing specific values
 
Thanks a lot for your help. That works perfect!

"JW" wrote:

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 wrote:
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" wrote:

Need more info. Need a way to identify the vendor records from the
non-vendor records.
andresg1975 wrote:
It does not alternate like that, i would appreciate if you have any other
idea of doing it

"JW" wrote:

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.


JW wrote:
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

andresg1975 wrote:
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








All times are GMT +1. The time now is 10:09 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com