RE: makro pro excel

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 26. 02. 2003, 09:16 CET

  • Next message: mail@pp21.cz: "Re: lynx"
    Zdar a silu David, dna 26.02.2003 si napisal(a):
    
    > Zdravim
    > 
    > mam makro ktere prenasi text z jedne bunky do druhe
    > 
    
    if len(Range("poznamka")) < 255
    Sheets("seznam").Cells(10, "w").value = Range("poznamka")
    else
    poznamka1=left(Range("poznamka"),255)
    poznamka2=mid(Range("poznamka"),256,255)
    Sheets("seznam").Cells(10, "w").value =poznamka1 & poznamka2
    end if
    
    > ale toto mi prenese pouze text ktery nema vice jak 255 znaku.
    > 
    > Cim muzu toto nahradit ?
    >  
    > nepotrebuji asi nic ve stylu ----- zkopirovat ----vlozit------  
    > protoze nektere sloucene bunky prenaseji text do nesloucenych    
    > a nazpatek . 
    > 
    > je to takova mensi databaze a nechce se mi to predelavat do accesu 
    > 
    > Diky 
    > 
    > David Lehner
    > 
    > 
    > 
    pisem to z ruky ale malo by fachcit, ak nie tak sa ozvi
    
    s pozdravom
    AleXXX
    -- 
    
    Remember: there are no strangers in the world,
    only friends who have not yet met.
    

  • Next message: mail@pp21.cz: "Re: lynx"

    This archive was generated by hypermail 2.1.6 : 26. 02. 2003, 09:33 CET