Replies

This article in PC magazine, about “CloudMark” (free) sounds pretty good.
I have not tried it.
http://www.pcmag.com/article2/0,2817,2385203,00.asp

‘—
Jim Cone
Portland, Oregon USA .
http://www.mediafire.com/PrimitiveSoftware .
(Extras for Excel add-in: convenience built-in)

ActiveChart.SeriesCollection(1).Points(1).Border.LineStyle = xlContinuous
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Calculate Payments XL add-in: amount, interest rate, payment, term – in the free folder)

See attachment…
Data sorted by name
Data subtotaled by volume
Groups with zero total – delete
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(free and commercial excel programs)

Just sort the data by column C (volumes), then delete.
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(XL Companion add-in: compares, matches, counts, lists, finds, deletes…)

Chip Pearson has code to create a folder/file listing here…
http://www.cpearson.com/excel/FolderTree.aspx
You could create two separate lists and copy/paste both of them on a new sheet.

There is at least one commercial alternative.
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(List Files XL add-in: finds and lists files/folders with hyperlinks)

Could be that the sheet name(s) doesn’t exist or the Pub_ workbook is not open.
Also, I recommend using “Color” not “ColorIndex” to define colors in xl2007 and later: .Tab.Color

‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(free and commercial excel programs)

You might to also try this flavor…

Range(“C5”).Activate
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = “Blank” Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

See your other identical post in Spreadsheets.

When deleting items from a collection, the general rule is to delete from the end back to the beginning. This modified version of your existing code, however does delete without problems…
‘—
Sub DeleteRows()
Range(“C5”).Activate

Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = “Blank” Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Extras for Excel add-in: convenience built-in)

Maybe too many styles? This free add-in (Formats & Styles) can list or remove them…
http://excelusergroup.org/media/p/4861.aspx
(about 1100 downloads)
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(free and commercial excel programs)

Big Round Button | Excel Options (button) | Popular (on left side top) | Include this many sheets: (spin button)
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Extras for Excel add-in: convenience built-in)

I deleted the blank rows on your attached file and ended up with 40 rows with data.
I don’t know how that compares to what you expected.

On your original data, I would just sort the data – blank rows sort to the bottom – no copying, no new worksheet needed.
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Extras for Excel add-in: convenience built-in)

Private Sub ComboBox1_DropButtonClick()

‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Lottery Numbers.xls – in the free folder)

RowStart and FinalRow are evaluated once by Excel at the start of the loop.
The RowStart and FinalRow values are not reevaluated during the loop.
You will get uncertain results by trying the change those values during the loop. Don’t do it.

One thing you could do is use a counter inside the loop and exit the loop using “Exit For” when the counter reaches a specified value: Counter = Counter + 1
As it is not clear to me exactly what the criteria is for quiting the loop, I can’t advise further.
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(XL Companion add-in: compares, matches, counts, lists, finds, deletes…)

I just had a similar experience with xl2007 and windowsXP.
What fixed the problem was deleting the .xlb file that contains the menubar/toolbars (or ribbon) configuration.
The file is automatically rebuilt when Excel starts, if the file is missing.
There is a separate file for each version of Excel.
The file can be found on my machine at:
C:Documents and Settingssome nameApplication DataMicrosoftExcel
The actual file name should be “Excel10.xlb.”
‘—
Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Extras for Excel add-in: convenience built-in)