Søg
Avatar billede jorgenjo Nybegynder
02. december 2008 - 18:08 Der er 9 kommentarer og
1 løsning

Indsæt række og formler i flere ark samtidig ligesom ved FillDown

Jeg har et regneark med fem faner og en makro, som indsætter en blak række et bestemt sted i alle ark samtidig. Jeg vil gerne have at den også indsætter formeler fra rækkerne ovenfor i alle ark samtidig. Ligesom når man i et enkelt ark trækker i den lille sorte firkant, nederst  til højre i en celle. Der er kun 4 formler fordelt på 15 kolonner.
Avatar billede mrkr Juniormester
03. december 2008 - 12:44 #1
kunne du ikke sætte denne kodestump ind i din eksisterende kode

  ActiveCell.Offset(-1, 0).Range("A1:O1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:B2"), Type:= _
        xlFillDefault
Avatar billede mrkr Juniormester
03. december 2008 - 12:51 #2
ActiveCell.Offset(-1, 0).Range("A1:O1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:O2"), Type:= _
        xlFillDefault
Avatar billede jorgenjo Nybegynder
03. december 2008 - 13:28 #3
Jeg har prøvet at sætte kodestumpen ind i min kode, men den kopiere også indtastede tal, - det var kun formlerne som jeg ville kopiere
Avatar billede mrkr Juniormester
03. december 2008 - 17:35 #4
Hvis du bruger dette i stedet indsætter den kun formler:


ActiveCell.Offset(-1, 0).Range("A1:O1").Select
Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1:O1").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Avatar billede jorgenjo Nybegynder
03. december 2008 - 20:56 #5
Tak for din ihærdighed, koden virker bedre end den første, men indsætter stadig tekst og tal og ikke kun formler.
"Almindelig" indsæt speciel og formler virker heller ikke på min maskine, det lyder næsten som en programfejl.
Jeg har opdateret via Microsoft Update
Avatar billede mrkr Juniormester
03. december 2008 - 21:02 #6
Ja, hvis indsæt speciel ikke virker ved normal brug, så er der vist en versionsfejl på den version du har.

Held og lykke med løsningen :-)
Avatar billede jorgenjo Nybegynder
04. december 2008 - 18:00 #7
Nedenstående sletter tal og tekst i de kopierede celler uden formel - ikke smart men virker kombineret med koden fra mrkr

ActiveCell.Offset(0, 3).Range("A1:J1").Select
Selection.ClearContents
ActiveCell.Offset(0, 8).Range("A1:A1").Select
Avatar billede jorgenjo Nybegynder
04. december 2008 - 18:11 #8
ok
Avatar billede jorgenjo Nybegynder
05. december 2008 - 11:04 #9
Jeg vil gerne give mrkr point, - forslaget har løst mit problem :-)
Avatar billede mrkr Juniormester
05. december 2008 - 15:21 #10
Jamen, så får du lige et svar her. :-)
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
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Måned og år på graf Af mort1 i Excel 1 I går 13:01 I dag 08:09
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:01 Måned og år på graf Af mort1 i Excel
I går 12:28 2 diske Af dcedata1977 i Andet hardware
I går 12:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
I går 10:20 ASP classic kopiere database fil på server Af bsn i ASP
30/1015:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »