Home |
Search |
Today's Posts |
|
#1
![]() |
|||
|
|||
![]()
This is a common problem and one without a quick-fix as far as I know.
I had a reason to do the same thing and I had to write a VBA routine to read the contents of any cells with more than 255 characters in them and store in a list, then open the destination workbook and re-plot the recorded text values. Something like (I'm just tapping this out off the top of my head, I'm only 90% sure it will work, but tweak it if necessary): Sub CopyLongText(xSourceSheet as Worksheet,xDestinationsheet as Worksheet) Dim tLongCells As String For Each xCell in xSourceSheet.UsedRange.Cells If Len(xCell.Text) 'greater than' 255 then tLongCells = tLongCells & xCell.Address & "|" & xCell.Text & "|" End If Next xCell xDestinationsheet.Workbook.Activate xDestinationsheet.Activate While tLongCells 'greater than' "" posa = instr(1,tLongCells,"|") posb = instr(posa+1,tLongCells,"|") tAddress = left(tLongCells,posa-1) tText = mid(tLongCells,posa+1,posb-posa-1) If IsError(Evaluate("=" & tText)) then Range(tAddress).NumberFormat = "@" End If Range(tAddress).value = tText tLongCells = mid(tLongCells,posb+1) Wend End Sub Hope this helps. Regards, BizMark Last edited by BizMark : August 12th 05 at 02:14 PM |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Text Columns Negative Numbers Upgrade Excel? | Excel Discussion (Misc queries) | |||
justify text in a text box in excel | Excel Discussion (Misc queries) | |||
Exporting excel to text file | Excel Discussion (Misc queries) | |||
I need shortcut in Excel for coping text only and not the entire c | Excel Discussion (Misc queries) | |||
Copying Excel object back into Excel from Word | Excel Discussion (Misc queries) |