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?
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
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
... 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".
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.