Avatar billede ab58 Novice
15. juli 2008 - 20:43 Der er 16 kommentarer og
1 løsning

Makro: Indsæt Special

Hej eksperter,

For 3 dage siden lærte jeg at bruge følgende formel:

Range("A1531:A1533").Copy activecell

som hjælper mig med at kopiere cellerne A1531:A1533 og sætte dem ind i den aktuelle celle...

men hvordan gør jeg, hvis jeg kun skal indsætte formater (alstå Paste/Special/Formats) i stedet. 200 point for hurtigt svar.
Avatar billede excelent Ekspert
15. juli 2008 - 21:13 #1
Range("A1531:A1533").Copy
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Avatar billede ab58 Novice
15. juli 2008 - 21:24 #2
Hej excelent. Rart det er dig igen :-)
Har afprøvet dit forslag, men der er noget galt... Run-time error '438'... object doesn't support this property or method :-(
Kan du forbedre dit forslag?
Avatar billede ab58 Novice
15. juli 2008 - 21:26 #3
Ved Debug, bliver følgende markeret med gult:
Application.Cut CopyMode = False
Avatar billede excelent Ekspert
15. juli 2008 - 21:32 #4
hvilken excel version kører du med ?
Avatar billede ab58 Novice
15. juli 2008 - 21:36 #5
Excel 2003, en del af MS Office Professinal Edition 2003.
Avatar billede excelent Ekspert
15. juli 2008 - 21:40 #6
samme her - det var mystisk :-)

prøv lige at remarke linien (indsæt REM først i linie)
Avatar billede excelent Ekspert
15. juli 2008 - 21:41 #7
indsæt lige hele makroen her
Avatar billede kabbak Professor
15. juli 2008 - 21:48 #8
Range("A1531:A1533").Copy
ActiveCell.PasteSpecial xlPasteFormats
Avatar billede excelent Ekspert
15. juli 2008 - 21:53 #9
ok går ud fra koden kopierer som den skal
blot mangler vi at få Application.CutCopyMode = False til at virke
som fjerner markering af område som kopieres
Avatar billede ab58 Novice
15. juli 2008 - 21:57 #10
Bom! Den var hjemme kabbak :-)

Sorry excelent, og tak for forsøget.

kabbak: læg lige et svar, så får du point.

excellent: Jeg har prøvet at lave en makro (se længere ned), men den duer kun, når jeg kopierer fra destinationen til et bestemt sted. Den skal laves om, så den indsætter(special-formater) ind fra en hvilken som helst celle jeg er i.

Her er mit forslag:
ActiveCell.Offset(30, 0).Range("A1:A3").Select
Selection.Copy
ActiveCell.Offset(-30, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Avatar billede ab58 Novice
15. juli 2008 - 22:11 #11
... 30 erstattes med 1531 for at få det til at passe med mit oprindelige ønske.

excelent, Jeg forstår ikke følgende:
prøv lige at remarke linien (indsæt REM først i linie)

Her er makroen, jeg lavede efter dit første forslag:
--------------------
Sub Makro1()
'
' Makro1 Makro
' Makro indspillet 15-07-2008 af ab58
'
' Genvejstast:Ctrl+s
'
Range("A1531:A1533").Copy
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
--------------
Der var ingen fejlmeddelelse denne gang, men den sætter ind direkte ikke "special".
Avatar billede ab58 Novice
15. juli 2008 - 22:12 #12
kabbak! Du har vundet. Jeg siger tak og venter på et svar, så kan jeg give dig point før jeg går i seng ;-)
Avatar billede excelent Ekspert
15. juli 2008 - 22:13 #13
nej jeg havde overset at det kun var formatet du skulle bruge
og så er det som kabbak foreslår
Avatar billede ab58 Novice
15. juli 2008 - 22:16 #14
Nårh, ok... synd! Jeg ville give dig point, men må hellere overholde reglerne.
Avatar billede kabbak Professor
15. juli 2008 - 23:04 #15
et svar ;-))
Avatar billede ab58 Novice
15. juli 2008 - 23:16 #16
10000000000 tak :-)
Avatar billede kabbak Professor
15. juli 2008 - 23:44 #17
selv tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester