FA Cheers!! On Wed, Aug 20, 2014 at 8:03 AM, Pankaj Kumar <pankaj...@gmail.com> wrote:
> Hello Ashish and Vaibhav,
>
> You guys are genius. Thanks a lot for modified code. However, it seems. It
> still has limitation.
> It's working fine for single cell but when I'm trying to run macro for
> merged cell then getting error as *"Macro: Run-time error '13'; Type
> mismatch'*. Hence, may I request you to fix merged cell issue. Also, will
> the size of comment box be flexible based on no of character in the cell
> because currently comment box size is fixed irrespective of number of char.
> It's doesn't give good visibility when you've less no of char.
>
> I've below VBA code which works fine including merged cell but it too has
> limitation i.e. it doesn't add comment when number of char is more than 25.
> Below is the code. Can you take a look and modify this in case, you are
> unable to fix your code.
>
> Sub addme ()
> Dim Rng As Range
> Dim WorkRng As Range
> On Error resume Next
> xTitleId = "Select Cell"
> Set WorkRng= Application selection
> Set WorkRng= Application Inputbox ("Range",xTitleId,WorkRng.Address,
> Type:= 8)
> For Each Rng in WorkRng
> Rng.NoteText Text= Rng.value
> Next
> End Sub
>
> Regards,
> Pankaj
>
> ---------- Forwarded message ----------
> From: "Vaibhav Joshi" <v...@vabs.in>
> Date: Aug 19, 2014 12:52 AM
> Subject: Re: $$Excel-Macros$$ I need VBA code to copy the cell value and
> paste in comment box for the same cell.
> To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com>
> Cc:
>
> hi
>
> check this, i have modified Ashish ji's code. Select cell for which you
> want comment to appear & run macro by clicking blue button.
>
> Cheers!!
>
>
> On Mon, Aug 18, 2014 at 9:16 PM, Pankaj Kumar <pankaj...@gmail.com> wrote:
>
>> Thanks vaibav for your prompt response. It looks good but the problem
>> with this code is that whenever you double click on any cell in the sheet,
>> it'll pop - up the message box. But my requirement is restricted with
>> couple of cells only. Can we modify the code where input box will ask for
>> cell number and code will add comment or message box for that cell only.
>> Looking for your response.
>> Thanks,
>> Pankaj
>> On Aug 18, 2014 12:13 AM, "Vaibhav Joshi" <v...@vabs.in> wrote:
>>
>>> hi
>>>
>>> I suggest alternate way..
>>>
>>> put this code in ThisWorkbook module..
>>>
>>> You need to double click the cell whose text you want to read & msgbox
>>> will popup with text in cell.
>>>
>>> Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
>>> Target As Range, Cancel As Boolean)
>>> MsgBox Target.Text
>>> End Sub
>>>
>>> Cheers!!
>>>
>>>
>>> On Mon, Aug 18, 2014 at 10:24 AM, Pankaj Kumar <pankaj...@gmail.com>
>>> wrote:
>>>
>>>> I need VBA code to copy the cell value and paste in comment box for the
>>>> same cell.
>>>>
>>>> Example: If I select any cell or merged cells which has some text in it
>>>> then code should copy the text and create a comment and paste the same
>>>> text. I need this because when user can't see the entire text because it's
>>>> too long and he can't expand the cell due to certain restriction. Hence,
>>>> the code should ask to select the cell which has some text and it'll simply
>>>> copy the text and paste in comment. Comment box should be expanded enough
>>>> to have entire text visibility.
>>>>
>>>> Appreciate anyone response quickly.
>>>>
>>>> --
>>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>>> https://www.facebook.com/discussexcel
>>>>
>>>> FORUM RULES
>>>>
>>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>>> will not get quick attention or may not be answered.
>>>> 2) Don't post a question in the thread of another member.
>>>> 3) Don't post questions regarding breaking or bypassing any security
>>>> measure.
>>>> 4) Acknowledge the responses you receive, good or bad.
>>>> 5) Jobs posting is not allowed.
>>>> 6) Sharing copyrighted material and their links is not allowed.
>>>>
>>>> NOTE : Don't ever post confidential data in a workbook. Forum owners
>>>> and members are not responsible for any loss.
>>>> ---
>>>> You received this message because you are subscribed to the Google
>>>> Groups "MS EXCEL AND VBA MACROS" group.
>>>> To unsubscribe from this group and stop receiving emails from it, send
>>>> an email to excel-macros+unsubscr...@googlegroups.com.
>>>> To post to this group, send email to excel-macros@googlegroups.com.
>>>> Visit this group at http://groups.google.com/group/excel-macros.
>>>> For more options, visit https://groups.google.com/d/optout.
>>>>
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>> 4) Acknowledge the responses you receive, good or bad.
>>> 5) Jobs posting is not allowed.
>>> 6) Sharing copyrighted material and their links is not allowed.
>>>
>>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>>> members are not responsible for any loss.
>>> ---
>>> You received this message because you are subscribed to a topic in the
>>> Google Groups "MS EXCEL AND VBA MACROS" group.
>>> To unsubscribe from this topic, visit
>>> https://groups.google.com/d/topic/excel-macros/K4igme_ro4U/unsubscribe.
>>> To unsubscribe from this group and all its topics, send an email to
>>> excel-macros+unsubscr...@googlegroups.com.
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com.
>>> Visit this group at http://groups.google.com/group/excel-macros.
>>> For more options, visit https://groups.google.com/d/optout.
>>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to a topic in the
> Google Groups "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this topic, visit
> https://groups.google.com/d/topic/excel-macros/K4igme_ro4U/unsubscribe.
> To unsubscribe from this group and all its topics, send an email to
> excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
For Pankaj auto add comment box.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
