Menu

Cell description/comment/tool tip?

Search this Thread

Prev

Previous Post

Next Post

Next

#5

Report Post

Posted to microsoft.public.excel.programming

Ian Cowley Ian Cowley is offline

Ian Cowley is offline

external usenet poster

Posts: 2

Default

Cell description/comment/tool tip?

In message , Kevin B
burbled:
Using the sample row data an placing it in Column A row 1 of Sheet 1

Thanks for the pointer, I've now implmented the following code:

Private Function SetComments()
'Set range to top-left cell and get value
r = 1
Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet

strval = ws.Cells(1, 1).Value

Application.ScreenUpdating = False
Application.StatusBar = "Adding Comments now.."

'loop over all the rows
Do While strval < Chr$(26) And strval < ""
Select Case strval
Case Is = "PLAN_DEF"
cols = 28
For c = 1 To cols
Cells(r, c).ClearComments
Cells(r, c).AddComment PLAN(c) & ": " & Cells(r, c).Value
Next c
Case Is = "RX_DEF"
cols = 13
For c = 1 To cols
Cells(r, c).ClearComments
Cells(r, c).AddComment RX(c) & ": " & Cells(r, c).Value
Next c
Case Is = "FIELD_DEF"
cols = 49
For c = 1 To cols
Cells(r, c).ClearComments
Cells(r, c).AddComment FIELD(c) & ": " & Cells(r, c).Value
Next c

Case Else
MsgBox "Unknown RTP line definition!!!" & " Failed on: " &
strval
End Select

r = r + 1
strval = Cells(r, 1).Value
Loop

Application.ScreenUpdating = True
Application.StatusBar = False

End Function
--
Ian Cowley
Bishop's Stortford/Cambridge, UK

www.iancowley.co.uk/contact

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
making a comment/description area in middle of form template	John-picks2592	Excel Discussion (Misc queries)	1	April 2nd 10 08:26 PM
click on part# in pulldown list fills description cell in next col	Jules	Excel Worksheet Functions	2	February 7th 08 06:08 AM
How to add additional description in a cell to a spreadsheet?	Judy S	Setting up and Configuration of Excel	1	August 29th 07 05:09 PM
Numeric Cell Value with text description	Paco86	Excel Discussion (Misc queries)	2	June 21st 06 12:00 PM
Cell description into the chart	maperalia	Excel Programming	1	December 9th 05 06:51 PM

All times are GMT +1. The time now is 11:32 PM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement