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
> > > >
> > > >
> >
> >
|
Similar Threads
