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

    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

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

  2. #2
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,424
    Provided Answers: 8
    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

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

  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
  •