I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.