Hi, Need some help - Copy pasting and creating coments! Thanks
Closed
shock43
Posts
4
Registration date
Tuesday January 15, 2013
Status
Member
Last seen
January 16, 2013
-
Jan 15, 2013 at 06:27 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jan 17, 2013 at 10:14 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jan 17, 2013 at 10:14 AM
Related:
- Hi, Need some help - Copy pasting and creating coments! Thanks
- Root directory is full or error in pasting - Excel Forum
- Copy and paste fonts - Guide
- This message was deleted text copy and paste - Android Forum
- Creating a youtube account - Guide
- Can i change my outlook email address without creating a new account - Guide
5 responses
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jan 15, 2013 at 12:18 PM
Jan 15, 2013 at 12:18 PM
you can try some thing like this
With Cells(1, "A")
.AddComment
.Comment.Visible = False
.Comment.Text Text:="" & Cells(1, "B")
End With
shock43
Posts
4
Registration date
Tuesday January 15, 2013
Status
Member
Last seen
January 16, 2013
Jan 16, 2013 at 01:56 AM
Jan 16, 2013 at 01:56 AM
Hi,
Firstly thank you Rizvisa1, really appreciate the quick response.
Sorry, im slightly new at excel -
1. click on view - macros
2. record macro
3. put in a short cut key (i put "j")
4. pase what you sent me :
With Cells(1, "A")
.AddComment
.Comment.Visible = False
.Comment.Text Text:="" & Cells(1, "B")
End With
---- in the discription
5. click on 'ok'
6. Then i wrote something (xyz) . pressed control C, went to a new cell, and pressed "cntrl j"
-- however as a result my excel crashed and it closed the program..
Anything I am doing wrong?
Thanks a bunch for your time!
Firstly thank you Rizvisa1, really appreciate the quick response.
Sorry, im slightly new at excel -
1. click on view - macros
2. record macro
3. put in a short cut key (i put "j")
4. pase what you sent me :
With Cells(1, "A")
.AddComment
.Comment.Visible = False
.Comment.Text Text:="" & Cells(1, "B")
End With
---- in the discription
5. click on 'ok'
6. Then i wrote something (xyz) . pressed control C, went to a new cell, and pressed "cntrl j"
-- however as a result my excel crashed and it closed the program..
Anything I am doing wrong?
Thanks a bunch for your time!
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jan 16, 2013 at 05:45 AM
Jan 16, 2013 at 05:45 AM
cannot say why it crashed, but do this
1. write some text in cell b1
2. press alt +f11 at same time
3. inset new module
4. paste code
4. run macro
5. check to comments in cell a1
1. write some text in cell b1
2. press alt +f11 at same time
3. inset new module
4. paste code
With Cells(1, "A")
.AddComment
.Comment.Visible = False
.Comment.Text Text:="" & Cells(1, "B")
End With
4. run macro
5. check to comments in cell a1
shock43
Posts
4
Registration date
Tuesday January 15, 2013
Status
Member
Last seen
January 16, 2013
Jan 16, 2013 at 07:15 AM
Jan 16, 2013 at 07:15 AM
Hey,
it says compile error, invalid outside procedure.
and highlights the first part of the macro
Not sure what to do next. Appreciate the help!
it says compile error, invalid outside procedure.
and highlights the first part of the macro
Not sure what to do next. Appreciate the help!
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jan 16, 2013 at 07:24 AM
Jan 16, 2013 at 07:24 AM
oh. you need to add sub
Public Sub insertComment()
With Cells(1, "A")
.AddComment
.Comment.Visible = False
.Comment.Text Text:="" & Cells(1, "B")
End With
End Sub
shock43
Posts
4
Registration date
Tuesday January 15, 2013
Status
Member
Last seen
January 16, 2013
Jan 16, 2013 at 11:25 PM
Jan 16, 2013 at 11:25 PM
Hey,
The macro essentially creates a blank comment in the cell A1 text.
What i needed was a faster way of doing the follwing:
copy stuff from one cell - go to another cell - insert a comment box in that new cell - paste what i copied from the first cell
a one way faster way of doing the above.
Thanks so much for your help!
The macro essentially creates a blank comment in the cell A1 text.
What i needed was a faster way of doing the follwing:
copy stuff from one cell - go to another cell - insert a comment box in that new cell - paste what i copied from the first cell
a one way faster way of doing the above.
Thanks so much for your help!
Didn't find the answer you are looking for?
Ask a question
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Jan 17, 2013 at 10:14 AM
Jan 17, 2013 at 10:14 AM
Hi Shock,
See if this code satisfies your needs:
1. Select the cell you would like to add the comment to.
2. Run the code (you already know how to add a shortcut key to the code.).
3. An inputbox appears asking you which cell you would like to copy the contents from.
Best regards,
Trowa
See if this code satisfies your needs:
Sub test()
Dim x As String
x = InputBox("Please input cell you would like to copy, (as in A1).")
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Range(x).Value
End With
End Sub
1. Select the cell you would like to add the comment to.
2. Run the code (you already know how to add a shortcut key to the code.).
3. An inputbox appears asking you which cell you would like to copy the contents from.
Best regards,
Trowa
