Comments for Automate Excel

Comment on VBA: Exit Without Saving by Wendell

Wendell — Wed, 12 Nov 2008 21:54:28 +0000

This is just what I was looking for.
Thanks

Comment on VBA: Yes or No Message Box by SK

SK — Mon, 10 Nov 2008 19:47:18 +0000

Sub MsgBox4()

MsgBox title:=”Analysis of Acctg Activities”, Prompt:=”Can not execute your command. No data availabe for that period.”

End Sub

When run this code it jumps to the conclusion. “Wrong number of orgumaents or invalid property assignment” and shows the MsgBox. I ran this code before several times without any problem. Now I am using Excel 2007.

Comment on Repeat the Last Action by Repeat the Last Action | CompuFiciency -- Applied CompuTelligence

Repeat the Last Action | CompuFiciency -- Applied CompuTelligence — Sun, 09 Nov 2008 01:04:11 +0000

[...] Repeat the Last Action Actions are generally defined as things you do with menus and title bars, like merging, formatting, running macros, etc, not typing in a cell. Sometimes you may like to repeat the last action easily, without going back through the menus again, there’s a shortcut! [...]

Comment on VBA Routine to return Column Letter of Cell by Andy Pope

Andy Pope — Wed, 05 Nov 2008 16:24:32 +0000

I would use worksheet formula

=SUBSTITUTE(ADDRESS(1,COLUMN(AD12),2),”$1″,”")

Or UDF

Function ColumnLetter(Cell_Add) As String
ColumnLetter = Replace(Cell_Add.EntireColumn.Cells(1).Address(, False), “$1″, “”)
End Function

Comment on Excel Creating Unique Identifiers by John

John — Wed, 05 Nov 2008 15:18:45 +0000

Jason

I assume this only works on 2007, I’m using Excel 2003 & can’t seem to get it to work.

Comment on VBA Routine to return Column Letter of Cell by Jon Peltier

Jon Peltier — Tue, 04 Nov 2008 13:55:25 +0000

I did this UDF before I saw Nick’s simple worksheet formula. Both are simpler than the original.

Public Function ColumnLetters(rng As Range)
Dim sAddr As String
Dim sTrim As String

sAddr = rng.Address(True, True, xlA1)
sTrim = Mid(sAddr, 2)
sTrim = Left(sTrim, InStr(sTrim, “$”) - 1)

ColumnLetters = sTrim
End Function

Comment on VBA Routine to return Column Letter of Cell by Nick Burns

Nick Burns — Tue, 04 Nov 2008 06:37:06 +0000

Couldn’t all that for determining the column letter be reduced to this:

Alpha_Column = Mid(Cell_Add.Address, 2, InStr(2, Cell_Add.Address, “$”) - 2)

Comment on VBA Routine to return Column Letter of Cell by Stan Scott

Stan Scott — Tue, 04 Nov 2008 05:58:29 +0000

I always use this:

Function Alpha_Column(Cell_Add as Range)
Alpha_Column = Replace(Replace(Cell_Add,”$”,”"),Row(Cell_Add),”")
End Function

Stan

Comment on Find the nth Word in a String by Jon Peltier

Jon Peltier — Fri, 31 Oct 2008 16:52:48 +0000

This might be simpler and more reliable:

Function Find_Nth_Word(sPhrase As String, iWord As Long) As String
Dim vPhrase As Variant
Dim iLen As Long

sPhrase = Trim$(sPhrase)
Do
iLen = Len(sPhrase)
sPhrase = Replace(sPhrase, ” “, ” “)
If iLen = Len(sPhrase) Then Exit Do
Loop
vPhrase = Split(sPhrase, ” “)
If iWord - 1 <= UBound(vPhrase) Then
Find_Nth_Word = vPhrase(iWord - 1)
End If
End Function

Comment on Create an RSS Feed With Excel by Mike

Mike — Thu, 30 Oct 2008 21:14:00 +0000

This is a great way to use excel. I’ve been looking for something to make RSS feeds to import into wordpress. Is it possible to add the ‘pub date’ tag into the rss feed??

-Mike