Endast väden i distination vid kopiering.

[cowi]

Hej

 

Har en kodrad enl. nedan.

 

Skulle vilja att den klistrade in special endast värden så den inte förstör formateringen i distinationsområdet men jag får inte till det.

 

.Range(Range("A4"), Range("A65536").End(xlUp)).Copy Worksheets("Koll-v").Range("E5")

 

Hoppas ni har en lösning

 

cowi

[gip]

Tror du måste gå via Clipboard, dvs först göra Copy utan argument och sedan PasteSpecial där du vill ha värdena. Man kan spela in ett macro när man gör den operation man vill utföra så får man lite kod att utgå ifrån.

[Monshi]

två vägar att gå, via clipboard eller tilldelning.

 

Dvs via clipboard, generiskt exempel:

Range("A1:A10").Copy
Range("B1").PasteSpecial xlPasteValues

 

eller via tilldelning, samma sak:

Range("B1:B10") = Range("A1:A10")

tilldelning är snabbare även om skillnaden är liten. Det man måste tänka på vid tilldelning är att källan måste vara lika stor som målet.

[cowi]

Tack

 

Det går alltså inte att komplettera Copy i mitt exempel så det bara klistrar in värden?

 

cowi

[Monshi]

Copy kopierar hela cellinnehållet i en enkel sats och går ej att styra mer än så.

 

Vill du bara kopiera text är de två alternativen jag gav de jag rekommenderar. De är inte alls komplexa och torde inte ge dig några problem.

[gip]

Den enda nackdelen med att använda clipboard är ju att du förstör vad som eventuellt redan ligger där. Jag skulle också rekommendera dig att tömma clipboarden när du gjort din copy/paste (om det inte görs automatiskt) så att det inte ligger kvar tex konfidentiell data som man råkar klistra in långt långt senare.

[cowi]

Tack så mycket

 

Då skall jag försöka

 

cowi