> No, but I haven't searched very hard for a solution.
>
> I think your best bet is to add extra intelligence to the spreadsheet.
>  Make a "Paste new record" button which examines the contents of the
> windows clipboard (cut and paste functionality), removes the extra new
> lines, and then imports the record itself.  This VBA macro shouldn't
> be overly difficult to make, even for an excel beginner.  You could
> simplify it by having it examine the clipboard, remove all new lines,
> and put the data back into the clipboard so you don't have to
> manipulate the spreadsheet at all (3-5 lines of code).  Just tell
> users to press it before pasting the data, and it'll take care of the
> problem.
>
> Users can copy the data from the email, and most may be able to paste
> it directly in, but those that have issues can use the special button
> for it.
>
> This is the simple version (no pasting - it just removes new lines
> from the clipboard):
>
> Sub test()
>     Dim DataObj As New DataObject
>     Dim clipBoardText As String
>     DataObj.GetFromClipboard
>     clipBoardText = DataObj.GetText
>
>     clipBoardText = Replace(clipBoardText, vbCrLf, "")
>     clipBoardText = Replace(clipBoardText, vbCr, "")
>     clipBoardText = Replace(clipBoardText, vbLf, "")
>
>     DataObj.SetText clipBoardText
>     DataObj.PutInClipboard
> End Sub
>
> You'll need to open the visual basic editor (Tools --> Macro -->
> Visual Basic editor) then right click on the VBAProject on the left,
> and add a userform (blank, you won't use it, but it ensures you have
> the necessary references to use the clipboard), and then add a module.
>  Double click on new module Module1 and paste:
>
> Sub FormatClipboard()
>     Dim DataObj As New DataObject
>     Dim clipBoardText As String
>     DataObj.GetFromClipboard
>     clipBoardText = DataObj.GetText
>
>     clipBoardText = Replace(clipBoardText, vbCrLf, "")
>     clipBoardText = Replace(clipBoardText, vbCr, "")
>     clipBoardText = Replace(clipBoardText, vbLf, "")
>
>     DataObj.SetText clipBoardText
>     DataObj.PutInClipboard
> End Sub
>
> You can add a button to the spreadsheet to execute this function by
> displaying the Control Toolbax toolbar, adding a button to the
> spreadsheet, double click it to go to the code it'll execute, and add
> the function name to it:
>
> Private Sub CommandButton1_Click()
>     FormatClipboard
> End Sub
>
> Now you can close the Visual basic editor, and click the upper left
> icon in the control toolbox toolbar to exit design mode.
>
> The button is clickable, and when clicked will remove all carraige
> returns and, line feeds from the text in the clipboard.
>
> -Adam

THANKS! I've never done ANYTHING with VB, so this might be the time to try.

Harold


-- 
FCC Rules Updated Daily at http://www.hallikainen.com - Advertising
opportunities available!
-- 
http://www.piclist.com PIC/SX FAQ & list archive
View/change your membership options at
http://mailman.mit.edu/mailman/listinfo/piclist