Web    www.BenSwenson.com

Return to front page | Return to News Archive
[Ben]:Excel Random Selection update Discuss This [0 comments so far] View Comments
Today there was a note waiting for me from an anonymous reader who was having trouble with a macro I made available a few years ago.
Hi there,

I wanted to use your macro on this link:
http://www.benswenson.com/news.php?ctrl=viewNews&objid=1673. But when trying to run the macro I get a Random Select Macro - Compile Error: Sub or Function not defined Error. Could you perhaps point me in the right direction for getting the macro to work under Excel 2010?

Thank you.

I'd reply directly to you, but you didn't leave any contact info, so here's the solution.

To get this macro to work, you need to add the following function:
Public Function GetColumnLetter(colNum As Long) As String
Dim i, x As Long
For i = Int(Log(CDbl(25 * (CDbl(colNum) + 1))) / Log(26)) - 1 To 0 Step -1
x = (26 ^ (i + 1) - 1) / 25 - 1
If colNum > x Then
GetColumnLetter = GetColumnLetter & Chr(((colNum - x - 1) 26 ^ i) Mod 26 + 65)
End If
Next i
End Function


Good luck!
  2013-05-31
Permanent Link:
Excel Random Selection update
 
BenSwenson.com Home
Forums
User ID:
Password:
Register here
94 users 8209 posts 0 active users
 
Communications
Contact Administrator
Contact Picture of the Day
Images
Picture Archive
New images
Picture of the day
(2016-04-15)
Links
Schlock Mercenary
The LawDog Files
View From the Porch
Alex Mattingly
Smallest Minority
 
Amazon Affiliate Link
Individual Sponsors
LensAndLasers.com
Thrim LLC


©2017 by Ben Swenson.   All rights reserved.
Reproduction in whole or in part without permission is prohibited.
     Hosted by: