Replies

Kweaver:
To get possible winning numbers for the MegaMillions game or six other national/regional lotteries, my “Lottery Numbers” Excel workbook free download is here…
http://excelusergroup.org/media/p/5941.aspx

Steve:
I ran John Walkenbach’s VBA code speed test in 5 seconds, but your Card code was only 20% complete at the 3 minute mark. I lost interest at that point.
Are you using a government computer? (grin)

For what it is worth, the Microsoft xlsclean.exe download that was recommended only does a partial clean. It removes all content from the unused rows at the bottom of a sheet, but does not clear the columns to the right of the data.
I took a peak at the code and for those interested the “clear” line for the columns was omitted…
‘—
Set ur = wksWks.Rows(r + 1 & “:” & wksWks.Rows.Count)
ur.Clear
‘Reset row height which can also cause the lastcell to be innacurate
ur.EntireRow.RowHeight = wksWks.StandardHeight

Set ur = wksWks.Range(wksWks.Cells(1, c + 1), wksWks.Cells(1, 256)).EntireColumn
‘Reset column width which can also cause the lastcell to be innacurate
ur.EntireColumn.ColumnWidth = wksWks.StandardWidth
‘—

Jim Cone
Portland, Oregon USA
http://www.mediafire.com/PrimitiveSoftware
(Extras for Excel is worth a look)

Something simple…
Enter a zero for no renewal, enter 1 for renewal.
Sort ascending by forecast percent.
Count the number of zeros in the bottom half vs. the top half.

Or almost a simple…
Use the Correl function on the above sorted data.
‘–
Jim Cone
Portland, Oregon USA
30+ ways to sort (excel add-in)

You could use a dynamic range that self adjusts…
Example… http://www.contextures.com/xlNames01.html#Dynamic
”—
Jim Cone
Portland, Oregon USA
30 + ways to sort in excel

Maybe…

Function GetSpecialFolders(ByRef vFolder As Variant) As String
Dim WSHShell As Object
Set WSHShell = CreateObject(“WScript.Shell”)
GetSpecialFolders = WSHShell.SpecialFolders(vFolder)
Set WSHShell = Nothing
End Function

Sub WhatWhereHow()
MsgBox GetSpecialFolders(“Templates”)
‘also try “Programs”
End Sub
‘—
Jim Cone
Portland, Oregon USA
commercial add-in

Re Office 2000: be careful what you wish for.

Excel prints selections on separate pages.
Have your co-worker copy and paste the two selections on a separate sheet and print that sheet.
‘–
Jim Cone
Portland, Oregon USA
Excel printing add-in – Special Print

Sub GetAddedUp()
Dim LastRow As Long
LastRow = Application.WorksheetFunction.Max _
(Cells(Rows.Count, 9).End(xlUp).Row, _
Cells(Rows.Count, 10).End(xlUp).Row)

Cells(LastRow + 2, 9).Formula = “=Sum(I2:I” & LastRow & “)”
Cells(LastRow + 2, 10).Formula = “=Sum(J2:J” & LastRow & “)”

Cells(LastRow + 2, 11).Formula = “=If(Sum(I” & LastRow + 2 & _
“:J” & LastRow + 2 & “)sum(K2:K” & LastRow & _
“),””Check””,Sum(I” & LastRow + 2 & “:J” & LastRow + 2 & “))”
End Sub
‘–
Jim Cone
Portland, Oregon USA
Special Sort Excel add-in

I can’t duplicate your problem with Firefox 3.5.11 on WindowsXP SP3.
I just tried this ebay item: Some software
Firefox gave me a separate window when I clicked “enlarge”.
‘–
Jim Cone
Portland Oregon USA
Primitive Software

You can paste the data into Word and use Format | Columns
or
try to find a third party utility/add-in to arrange the columns in Excel.
‘–
Jim Cone
Portland Oregon USA
Special Print (Side by Side) add-in

Review the data type of the sub arguments – in particular that you pass a Variant to a Variant.
‘–
Jim Cone
Portland, Oregon USA
Primitive Software

Thank you for your assistance.
I was looking at the wrong prefs.js file: C:Program FilesMozilla Firefoxdefaultsprofile

The prefs.js file in the location you provided has about 180 entries, a good share of which deal with my Samsung printer.
I now have a base line to return to (as necessary), if I make any more “improvements” to the about:config settings.
(I have to stop reading those “speed up your browser” magazine articles)

‘–
Jim Cone

The download of the MS help file for VB Script is here…
Windows Script 5.6 Documentation
It can be used in and with VBA in the VBEditior.
‘–
Jim Cone
Portland, Oregon USA
Special Sort Excel add-in (review)

Comments…
1. Your attachment has conditional formatting applied to only 3 cells: A3:C3
2. Column C is number formatted to show negative numbers in Red.
3. Excel versions prior to XL2007 are limited to 3 conditional formats per cell.
Things happen to CF when converting from xl2007 to an earlier version.
4. My free Excel add-in “Formats & Styles”… Excel add-ins
lists or removes: Styles, number formats, conditional formatting.
Example
‘–
Jim Cone
Portland, Oregon USA

Re: Autosize comments…
There is no built-in way to do that as far as I know.

Vba code could save the text and cell location for each comment, delete all comments and then add the comments back to the worksheet.
Whether the comment size would be to your liking is uncertain.

VBA code can size (not autosize) comments to a specific width and height. Something like…
‘–
Set cmts = Worksheets(1).Comments
For Each c In cmts
c.Shape.Width = 70
c.Shape.Height = 120
Next
‘–
Jim Cone
Portland, Oregon USA
Primitive Software Excel add-ins

The Sgn function is used so that results will align left. A positive result will have a leading space.
(note: the Str function provides a leading space but only works with periods as decimal points)

The “#” is a type declaration character indicating the number is a double.
‘–
Jim Cone
Portland, Oregon USA
XL Companion add-in