PC Review


Reply
Thread Tools Rate Thread

Copy data from a user form to a comment

 
 
Jock
Guest
Posts: n/a
 
      18th May 2009
Hi all,
How easy would it be to:
1) When a date is entered in column E, open a user form so the user can type
in names;
2) When names are all entered, when user form is closed the names are copied
to a newly created comment box in D (on the same row)?

Once names have been copied over to the comment, there is no need to save
them elsewhere.
Perhaps it would be easier to have the comment visible on screen rather than
use a user form at all and the user can then type directly into it??

Thanks,


--
Traa Dy Liooar

Jock
 
Reply With Quote
 
 
 
 
Jacob Skaria
Guest
Posts: n/a
 
      18th May 2009
Right click on the Sheet tab>ViewCode and copy the below code. Try entering a
date to ColE and feedback.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If IsDate(Target.Value) = True Then
Range("D" & Target.Row).AddComment "Enter Names"
Range("D" & Target.Row).Comment.Visible = True
End If
End If
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Jock" wrote:

> Hi all,
> How easy would it be to:
> 1) When a date is entered in column E, open a user form so the user can type
> in names;
> 2) When names are all entered, when user form is closed the names are copied
> to a newly created comment box in D (on the same row)?
>
> Once names have been copied over to the comment, there is no need to save
> them elsewhere.
> Perhaps it would be easier to have the comment visible on screen rather than
> use a user form at all and the user can then type directly into it??
>
> Thanks,
>
>
> --
> Traa Dy Liooar
>
> Jock

 
Reply With Quote
 
Jock
Guest
Posts: n/a
 
      18th May 2009
Hi Jacob,
How do I get the comment to 'auto hide' once the names have been entered and
the user has moved out of the comment box?
--
Traa Dy Liooar

Jock


"Jacob Skaria" wrote:

> Right click on the Sheet tab>ViewCode and copy the below code. Try entering a
> date to ColE and feedback.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column = 5 Then
> If IsDate(Target.Value) = True Then
> Range("D" & Target.Row).AddComment "Enter Names"
> Range("D" & Target.Row).Comment.Visible = True
> End If
> End If
> End Sub
>
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Jock" wrote:
>
> > Hi all,
> > How easy would it be to:
> > 1) When a date is entered in column E, open a user form so the user can type
> > in names;
> > 2) When names are all entered, when user form is closed the names are copied
> > to a newly created comment box in D (on the same row)?
> >
> > Once names have been copied over to the comment, there is no need to save
> > them elsewhere.
> > Perhaps it would be easier to have the comment visible on screen rather than
> > use a user form at all and the user can then type directly into it??
> >
> > Thanks,
> >
> >
> > --
> > Traa Dy Liooar
> >
> > Jock

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

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


Similar Threads
Thread Thread Starter Forum Replies Last Post
copy comment content to cell content as data not as comment =?Utf-8?B?TGlsYWNo?= Microsoft Excel Misc 2 21st Jun 2007 12:28 PM
How to copy data to another spreadsheet? see end comment kremstep@gmail.com Microsoft Excel Misc 1 4th Feb 2007 10:56 PM
How to have a 'comment box' on a user form =?Utf-8?B?cHNjaG1pZHQ=?= Microsoft Excel Programming 4 20th Mar 2006 05:10 PM
a comment plugin & copy paste directly from excel to comment ? fr. =?Utf-8?B?UkZN?= Microsoft Excel Worksheet Functions 0 1st Dec 2004 11:29 PM
How do I copy data from one form over to another form so I don't have to fill out the information twice? Ryan C. Microsoft Access Forms 0 28th Dec 2003 11:07 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 08:08 AM.