close

I am using Excel 97. Please note that I inherited this file.

I have a worksheet with data that I want to copy to a quot;newquot; workbook.
Unfortunately, when I select the worksheet tab and select quot;move or copyquot; make
my other selections, I am warned that data in some cells exceeds the 255
character limit and the data at the end will be truncated.
The column in question stores comments (text). I know that cells have a
character limit. But, if that is the case why can text be entered and still
display everything that is entered; yet, Excel will cut it off if I used the
worksheet tab to make a new workbook? Excel suggests using the copy/paste
command to copy the data. This doesn't help to automate the process.

Any suggestions?

TIA
JanDo you mean that you're automating this via code?

You can copy the sheet, then go back and get the contents (to preserve those
cells with long text):

Option Explicit
Sub testme01()

Dim fWks As Worksheet
Dim tWks As Worksheet

Set fWks = ActiveSheet

fWks.Copy _
after:=fWks

Set tWks = ActiveSheet 'newly created

fWks.Cells.Copy _
Destination:=tWks.Range(quot;a1quot;)

End Sub
Jan wrote:
gt;
gt; I am using Excel 97. Please note that I inherited this file.
gt;
gt; I have a worksheet with data that I want to copy to a quot;newquot; workbook.
gt; Unfortunately, when I select the worksheet tab and select quot;move or copyquot; make
gt; my other selections, I am warned that data in some cells exceeds the 255
gt; character limit and the data at the end will be truncated.
gt; The column in question stores comments (text). I know that cells have a
gt; character limit. But, if that is the case why can text be entered and still
gt; display everything that is entered; yet, Excel will cut it off if I used the
gt; worksheet tab to make a new workbook? Excel suggests using the copy/paste
gt; command to copy the data. This doesn't help to automate the process.
gt;
gt; Any suggestions?
gt;
gt; TIA
gt; Jan

--

Dave Peterson

Dave,

Thank you for responding. I was hoping I would not have to use code because
I don't have much experience with it. Also, why I have inherited the file as
the primary user, it will also be accessed by others who never heard of VBA
code.

I guess I need to find another alternative.

Thanks much.
Jan

quot;Dave Petersonquot; wrote:

gt; Do you mean that you're automating this via code?
gt;
gt; You can copy the sheet, then go back and get the contents (to preserve those
gt; cells with long text):
gt;
gt; Option Explicit
gt; Sub testme01()
gt;
gt; Dim fWks As Worksheet
gt; Dim tWks As Worksheet
gt;
gt; Set fWks = ActiveSheet
gt;
gt; fWks.Copy _
gt; after:=fWks
gt;
gt; Set tWks = ActiveSheet 'newly created
gt;
gt; fWks.Cells.Copy _
gt; Destination:=tWks.Range(quot;a1quot;)
gt;
gt; End Sub
gt;
gt;
gt;
gt; Jan wrote:
gt; gt;
gt; gt; I am using Excel 97. Please note that I inherited this file.
gt; gt;
gt; gt; I have a worksheet with data that I want to copy to a quot;newquot; workbook.
gt; gt; Unfortunately, when I select the worksheet tab and select quot;move or copyquot; make
gt; gt; my other selections, I am warned that data in some cells exceeds the 255
gt; gt; character limit and the data at the end will be truncated.
gt; gt; The column in question stores comments (text). I know that cells have a
gt; gt; character limit. But, if that is the case why can text be entered and still
gt; gt; display everything that is entered; yet, Excel will cut it off if I used the
gt; gt; worksheet tab to make a new workbook? Excel suggests using the copy/paste
gt; gt; command to copy the data. This doesn't help to automate the process.
gt; gt;
gt; gt; Any suggestions?
gt; gt;
gt; gt; TIA
gt; gt; Jan
gt;
gt; --
gt;
gt; Dave Peterson
gt;

You don't need to use code.

Copy the sheet the way you normally do, but then go back and copy the cells and
paste them into the new worksheet.

It's a couple of steps, but your cells with long text will be ok.

Jan wrote:
gt;
gt; Dave,
gt;
gt; Thank you for responding. I was hoping I would not have to use code because
gt; I don't have much experience with it. Also, why I have inherited the file as
gt; the primary user, it will also be accessed by others who never heard of VBA
gt; code.
gt;
gt; I guess I need to find another alternative.
gt;
gt; Thanks much.
gt; Jan
gt;
gt; quot;Dave Petersonquot; wrote:
gt;
gt; gt; Do you mean that you're automating this via code?
gt; gt;
gt; gt; You can copy the sheet, then go back and get the contents (to preserve those
gt; gt; cells with long text):
gt; gt;
gt; gt; Option Explicit
gt; gt; Sub testme01()
gt; gt;
gt; gt; Dim fWks As Worksheet
gt; gt; Dim tWks As Worksheet
gt; gt;
gt; gt; Set fWks = ActiveSheet
gt; gt;
gt; gt; fWks.Copy _
gt; gt; after:=fWks
gt; gt;
gt; gt; Set tWks = ActiveSheet 'newly created
gt; gt;
gt; gt; fWks.Cells.Copy _
gt; gt; Destination:=tWks.Range(quot;a1quot;)
gt; gt;
gt; gt; End Sub
gt; gt;
gt; gt;
gt; gt;
gt; gt; Jan wrote:
gt; gt; gt;
gt; gt; gt; I am using Excel 97. Please note that I inherited this file.
gt; gt; gt;
gt; gt; gt; I have a worksheet with data that I want to copy to a quot;newquot; workbook.
gt; gt; gt; Unfortunately, when I select the worksheet tab and select quot;move or copyquot; make
gt; gt; gt; my other selections, I am warned that data in some cells exceeds the 255
gt; gt; gt; character limit and the data at the end will be truncated.
gt; gt; gt; The column in question stores comments (text). I know that cells have a
gt; gt; gt; character limit. But, if that is the case why can text be entered and still
gt; gt; gt; display everything that is entered; yet, Excel will cut it off if I used the
gt; gt; gt; worksheet tab to make a new workbook? Excel suggests using the copy/paste
gt; gt; gt; command to copy the data. This doesn't help to automate the process.
gt; gt; gt;
gt; gt; gt; Any suggestions?
gt; gt; gt;
gt; gt; gt; TIA
gt; gt; gt; Jan
gt; gt;
gt; gt; --
gt; gt;
gt; gt; Dave Peterson
gt; gt;

--

Dave Peterson

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 software 的頭像
    software

    software

    software 發表在 痞客邦 留言(0) 人氣()