hello, is there a way to have an AddComment box open up automatically
ready for data entry, first thing whenever a cell is brought into focus
i.e. clicked- on? Basically, I need to give users an easier way to
entering a description on cells containing dollar amounts for
expenditures. Could someone tell me what that code might look like?
tia

--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)

Hi BananaHeadAche,

You could use the built in comments toolbar:

View | Toolbars | Check 'Reviewing'


---
Regards,
Norman



wrote in message
...
hello, is there a way to have an AddComment box open up automatically
ready for data entry, first thing whenever a cell is brought into focus
i.e. clicked- on? Basically, I need to give users an easier way to
entering a description on cells containing dollar amounts for
expenditures. Could someone tell me what that code might look like?
tia

--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)

From Debra Dalgleish's site
http://www.contextures.com/xlcomments03.html

Sub CommentAddOrEdit()
'adds new plain text comment or positions
'cursor at end of existing comment text
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment text:=""
End If
SendKeys "%ie~"
End Sub

You can combine this with the selection change event or the change event to
achieve the functionality you want/describe.

--
Regards,
Tom Ogilvy


wrote in message
...
hello, is there a way to have an AddComment box open up automatically
ready for data entry, first thing whenever a cell is brought into focus
i.e. clicked- on? Basically, I need to give users an easier way to
entering a description on cells containing dollar amounts for
expenditures. Could someone tell me what that code might look like?
tia

--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)

Hmm,

Thanks Norman for the quick reply but how does that accomplish the
original post?! I'm really needing a macro or a subroutine I could
apply to specific cells that doesn't require the user to do anything
manually other than enter the comment and then a dollar amount.

Norman Jones wrote:

Hi BananaHeadAche,

You could use the built in comments toolbar:

View | Toolbars | Check 'Reviewing'


---
Regards,
Norman



wrote in message
...


hello, is there a way to have an AddComment box open up automatically
ready for data entry, first thing whenever a cell is brought into focus
i.e. clicked- on? Basically, I need to give users an easier way to
entering a description on cells containing dollar amounts for
expenditures. Could someone tell me what that code might look like?
tia

--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)









--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)

Hi BananaHeadAche,

Basically, I need to give users an easier way to entering a description
on cells containing dollar amounts for expenditures.

The suggested toolbar includes a button which adds a comment or opens a
comment if it exists.

That does not seem overly taxing.

I'm really needing a macro or a subroutine I could apply to specific cells
that doesn't require the user to do anything manually other than enter the
comment and then a dollar amount.

In that case Tom has provided you with just such a routine and, via his
event code suggestions, a method of applying it as needed.

---
Regards,
Norman



wrote in message
...
Hmm,

Thanks Norman for the quick reply but how does that accomplish the
original post?! I'm really needing a macro or a subroutine I could apply
to specific cells that doesn't require the user to do anything manually
other than enter the comment and then a dollar amount.

Norman Jones wrote:

Hi BananaHeadAche,

You could use the built in comments toolbar:

View | Toolbars | Check 'Reviewing'


---
Regards,
Norman



wrote in message
...

hello, is there a way to have an AddComment box open up automatically
ready for data entry, first thing whenever a cell is brought into focus
i.e. clicked- on? Basically, I need to give users an easier way to
entering a description on cells containing dollar amounts for
expenditures. Could someone tell me what that code might look like?
tia

--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)







--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)

Thank you! Tom this was exactly what I needed ;-)

Cheers!

Tom Ogilvy wrote:

From Debra Dalgleish's site
http://www.contextures.com/xlcomments03.html

Sub CommentAddOrEdit()
'adds new plain text comment or positions
'cursor at end of existing comment text
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment text:=""
End If
SendKeys "%ie~"
End Sub

You can combine this with the selection change event or the change event to
achieve the functionality you want/describe.





--
_\//_
/ _ _ \
( @ @ ) Pardon the intrusion...
__.oOOo__()__oOOo._______________________
_|_____|_____|_____|_____|_____|_____|___
___|_____|_____|_____|_____|_____|_____|_
_|_____|_____|_____|_____|_____|_____|___
___|_____|Oooo.|_____|_____|_____|_____|_
.oooO ( )
( ) )/ /
\ ((_/
\_)