Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Application/Object defined error?
Okay so using some code i have tried and tried to get this to work in
different ways but cant figure out why it's not working For easy sakes we will say that intRowNum = 2 strDescription = "Comment goes here" ' This should basically have theCell return as like "D2" or whichever letter it is theCell = ColumnLetter(LastColumn(intRowNum)) & intRowNum Range(theCell).AddComment (strDescription) Function LastColumn(Row As String) As String ' This gets the last column in a row when the row is specified LastColumn = ActiveSheet.Cells(intRowNum, Columns.Count).End(xlToLeft).Column + 1 End Function Function ColumnLetter(ColumnNumber As Integer) As String ' This converts the column back to the appropriate letter If ColumnNumber 26 Then ColumnLetter = Chr(Int((ColumnNumber - 1) / 26) + 64) & _ Chr(((ColumnNumber - 1) Mod 26) + 65) Else ColumnLetter = Chr(ColumnNumber + 64) End If End Function Basically i already know what the row is, i just need to find the last column of that row that has no text in it, and then add my own comment to it. Thanks for the help guys! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run-time error '50290': Application-defined or object-defined erro | Excel Discussion (Misc queries) | |||
Application Defined error | Excel Discussion (Misc queries) | |||
I got this problem run-time error 1004 application defined ... | Excel Discussion (Misc queries) | |||
Application-defined or object-defined error Please Help | Excel Discussion (Misc queries) | |||
Macro error : Application-defined or object-defined error | Excel Discussion (Misc queries) |