RE: makro pro excel

• Previous message: Simona: "Hromadna zmena read only"
• Maybe in reply to: David Lehner: "makro pro excel"
• Next in thread: HWR: "Re: Olympus C2"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

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.

• Previous message: Simona: "Hromadna zmena read only"
• Maybe in reply to: David Lehner: "makro pro excel"
• Next in thread: HWR: "Re: Olympus C2"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

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