Cond format if Len() is greater or equal to 255 in a code.

[driller]

Good day,

I oftenly prepare draft sheets in separate workbooks and after refining
them, i converged these sheets in one workbook.

My problem is I need to maintain the contents of cells > 255 characters
during the drag and drop of sheet tabs or copy paste of range of cells.

I think that maybe by a code, I can retain the contents during sheet
transfer. I'm confident that this forum can give solution to my basic problem.

thanks for any advise.

 

[Joel]

I don't think you are loosing character. I think you are just not seeing all
the characters. Try put =len(A1) at the cell location you are copying and
then the same for the destination cell and see if the length is changing.

 

[Dave Peterson]

If you're manually copying a worksheet that has a cell that's longer than 255
characters, then you should see a prompt that some of the cells will be
truncated to 255 characters.

You won't see this prompt if you're doing the copy in code.

The way around it is to copy the sheet, then go back and copy the cells and
paste them.

In code, you'd use something like:

dim wks as worksheet
dim newWks as worksheet

set wks = worksheets("somesheetname")

wks.copy 'to a new workbook?
set newwks = activesheet

'go back and get the values (including the long ones)
wks.cells.copy _
destination:=newwks.range("a1")

 

[driller]

thanks for the help, i'll place the code and set more trials...
<>
best regards