Notifikationer

Markér alle som læst Log ud

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.

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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 :-)

Synes godt om

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

Synes godt om

jorgenjo Nybegynder

04. december 2008 - 18:11 #8

Synes godt om

jorgenjo Nybegynder

05. december 2008 - 11:04 #9

Jeg vil gerne give mrkr point, - forslaget har løst mit problem :-)

Synes godt om

mrkr Juniormester

05. december 2008 - 15:21 #10

Jamen, så får du lige et svar her. :-)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS