Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5
Default Notes text 255 characters

Howdy
In the VBE type the text 'notetext' and Hit F1 - in the help's REMARKS
it says:

"To add a note that contains more than 255 characters, use this method
once to specify the first 255 characters, and then use it again to
append the remainder of the note (no more than 255 characters at a
time)."

I am unsure how to do this, as specifying the notetext twice with
different text only keeps the second set of text.
eg.
If Len(vaProductsRange(i, 4)) 255 And Len(vaProductsRange(i, 4)) <
510 Then
cellUnder.Offset(0, 1).NoteText Left(vaProductsRange(i, 4), 255)
cellUnder.Offset(0, 1).NoteText Mid(vaProductsRange(i, 4), 256, 255)
ElseIf Len(vaProductsRange(i, 4)) <= 255 Then
cellUnder.Offset(0, 1).NoteText vaProductsRange(i, 4)
End If
What code would I need to use to correctly append it?
Thanks
Matt

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default Notes text 255 characters

If Len(vaProductsRange(i, 4)) 255 And Len(vaProductsRange(i, 4)) <
510 Then
cellUnder.Offset(0, 1).NoteText Left(vaProductsRange(i, 4), 255),1,255
cellUnder.Offset(0, 1).NoteText Mid(vaProductsRange(i, 4), 256, 255),256,255
ElseIf Len(vaProductsRange(i, 4)) <= 255 Then
cellUnder.Offset(0, 1).NoteText vaProductsRange(i, 4)
End If

--
Regards
Tom Ogilvy


"Matt Jensen" wrote in message
oups.com...
Howdy
In the VBE type the text 'notetext' and Hit F1 - in the help's REMARKS
it says:

"To add a note that contains more than 255 characters, use this method
once to specify the first 255 characters, and then use it again to
append the remainder of the note (no more than 255 characters at a
time)."

I am unsure how to do this, as specifying the notetext twice with
different text only keeps the second set of text.
eg.
If Len(vaProductsRange(i, 4)) 255 And Len(vaProductsRange(i, 4)) <
510 Then
cellUnder.Offset(0, 1).NoteText Left(vaProductsRange(i, 4), 255)
cellUnder.Offset(0, 1).NoteText Mid(vaProductsRange(i, 4), 256, 255)
ElseIf Len(vaProductsRange(i, 4)) <= 255 Then
cellUnder.Offset(0, 1).NoteText vaProductsRange(i, 4)
End If
What code would I need to use to correctly append it?
Thanks
Matt



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5
Default Notes text 255 characters

Legend! - thanks Tom
Cheers
Matt

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

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
from the text 4 pcs., how to remove only characters/text chriswyn Excel Worksheet Functions 1 May 24th 10 04:24 PM
want to remove all text characters equal to one character in length from text string [email protected] Excel Worksheet Functions 1 April 18th 05 09:56 PM
want to remove all text characters equal to one character in length from text string [email protected] Excel Worksheet Functions 1 April 18th 05 12:25 AM
get more than 255 characters from text box Bob Umlas[_3_] Excel Programming 0 September 7th 04 02:24 PM
Only getting first 256 characters of text box will_w Excel Programming 0 March 4th 04 11:13 PM


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

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"