Results 1 to 3 of 3
  1. #1
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,482
    Provided Answers: 11

    Unanswered: Why This Happening

    in M14 of One sheet I have

    Timber piles; weatherboard exterior; corrugated metal roof; timber window joinery; timber floor; lined with plaster board (some double gibbed), lam. hardboard, timber; plain kitchen; bathroom; open plan kitchen and dining; 4 offices; separate laundry; front covered veranda; rear timber deck & ramp

    then my code

    ToHere = MainINS.Range("BU_1").Offset(-3, 0).Address

    MainINS.Range(ToHere).value = OldINS.Range("M14").value

    but it only

    Timber piles; weatherboard exterior; corrugated metal roof; timber window joinery; timber floor; lined with plaster board (some double gibbed), lam. hardboard, timber; plain kitchen; bathroom; open plan kitchen and dining; 4 offices; separate laundry; fro

    its Drop the "nt covered veranda; rear timber deck & ramp"

    any Ideas I'm stump
    and how can I fix it
    hope this help

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
    DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
    THEY'RE BEHIND YOU FOR A REASON

  2. #2
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,482
    Provided Answers: 11
    Its a excel thing it can only do 255 other wise it get trancated

    BUT after 3 hours of hunting around the net and thinking out side the square

    It a bit long winded but it works

    Windows(workingfile).Activate

    OldINS.Range("M14").Select

    Selection.Copy

    Windows(masterfile).Activate

    Tohere = MainINS.Range("BU_1").Offset(-3, 0).Address

    MainINS.Range(Tohere).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    that copy the text in ok with out dropping anything

    but then that casuse a other Problem

    coping the newly created Sheet to a file
    then when it saved it would drop the text again
    that p me off

    so

    Sheets("Insurance").Select
    Dim Longtxt As String * 600 'old old school of coding didn't think it would work ok if more than 600 then im screwed
    Longtxt = Range("c132").value
    Sheets("Insurance").Copy
    ActiveWorkbook.SaveAs FilePath, xlWorkbookNormal, "", "", False, False
    Range("C132").value = Longtxt
    ActiveWorkbook.Save

    XlNormal would drop the text
    xlWorkbookNormal would keep the text

    Hope this save someone else 3 hours work
    Last edited by myle; 08-26-11 at 07:34. Reason: Spelling
    hope this help

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
    DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
    THEY'RE BEHIND YOU FOR A REASON

  3. #3
    Join Date
    Sep 2008
    Location
    London, UK
    Posts
    511
    Hi Myle

    What version of Excel are you using and what workbook format (eg Excel 97-2003 Workbook or MS Excel 5.0/95 Workbook) is it?

Posting Permissions

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