+ Reply to Thread
Results 1 to 3 of 3

Notes text >255 characters

  1. #1
    Matt Jensen
    Guest

    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. #2
    Tom Ogilvy
    Guest

    Re: 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" <[email protected]> wrote in message
    news:[email protected]...
    > 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. #3
    Matt Jensen
    Guest

    Re: Notes text >255 characters

    Legend! - thanks Tom
    Cheers
    Matt


+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1