Søg
Avatar billede ehlerz Nybegynder
03. august 2007 - 12:13 Der er 11 kommentarer og
1 løsning

Kopiere tabel (VBA)

Hej

Jeg har en hovedtabel (A2:P55) Jeg kunne godt tænke mig at denne tabel(som opdateres dagligt), når jeg trykkede på en kommandoknap blev kopieret og lagt ind 2 linjer under sig selv.

Eks. Min tabel(A2:P55) kopieres og lægges i (A57:P110), næste gang indsættes 54 linjer og tabellen kopieres igen og sættes ind i (A57:P110) såldes at det altid er tabellen fra dagen i forvejen der står umiddelbart under hovedtabellen og de andre kommer derefter.
Kan det lade sig gøre??
Avatar billede martpe Nybegynder
03. august 2007 - 14:28 #1
'dannelse af data i output - nedenstående vil indsætte et område 2 linjer under sidste anvendte linje i kolonneA.

Sheets("Sheet1").Activate
Range("A65000").Select
Range(Selection, Selection.End(xlup)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Sheets("Sheet1").Activate
Range("A65000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Avatar billede ehlerz Nybegynder
03. august 2007 - 14:41 #2
Vil denne kode hele tiden skubbe tidligere ark længere ned og gøre plads til gårsdagens ark lige under(2 linjer)??
Avatar billede martpe Nybegynder
03. august 2007 - 14:52 #3
ej, den skal vist lige testes lidt bedre...den her burde virke

Sub Macro1()
Sheets("Sheet1").Activate
Range("a2:p255").Select

Selection.Copy

Sheets("Sheet1").Activate
Range("A65000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Activate
ActiveSheet.Paste

End Sub
Avatar billede ehlerz Nybegynder
03. august 2007 - 15:09 #4
kan man få den til kun at indsætte værdier??
Avatar billede ehlerz Nybegynder
03. august 2007 - 15:11 #5
Værdier og formater... TAk
Avatar billede ehlerz Nybegynder
03. august 2007 - 15:15 #6
Den virker efter hensigten hvis jeg skriver "Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False" i din sidste kode istedet for "activesheet.paste" men kan man ikke få den til at paste værdier OG formater??
Avatar billede martpe Nybegynder
03. august 2007 - 15:36 #7
Denne her skulle gerne klare det... valuesandnumberformats

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
Avatar billede ehlerz Nybegynder
03. august 2007 - 15:38 #8
Har fundet en løsning, Martpe, send et svar og du får din belønning :-)
Avatar billede martpe Nybegynder
03. august 2007 - 15:39 #9
svar og takker - god weekend :o)
Avatar billede martpe Nybegynder
03. august 2007 - 15:43 #10
svar
Avatar billede ehlerz Nybegynder
20. august 2007 - 13:28 #11
Hey Martpe
Jeg har fundet ud af koden alligevel ikke virker helt som ønsket. Jeg ville gerne at den hver gang den kopierede mit hovedark indsatte kopien lige umiddelbart under hovedarket og skubber tidligere ark ned. På nuværende tidspunkt sætter den bare sidst kopierede ark ind under det sidste(nederste) indsatte ark og jeg skal således Scrolle nedad for at se det sidste data. Hvordan ændre man koden således at dette ikke længere er tilfældet??

PÅ forhånd tak
Avatar billede martpe Nybegynder
27. august 2007 - 11:00 #12
Har lige været på ferie. Den her kan klare det (dog eksempel med data i a2:d6):

Sub Macro1()
Sheets("Sheet1").Activate
Rows("56:110").Select
Selection.Insert Shift:=xlDown
Range("a2:p55").Select
Selection.Copy
Range("a57").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

End Sub
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
Inverse formler Af tdktman i Excel 3 I går 16:16 I dag 08:11
Flere brugere i 1 delt pivottabel Af mira96ac i Excel 2 I går 09:09 I går 10:28
Beregning af flextid - formler Af Slettet bruger i Excel 0 25/05/202618:29 -
Udseende af datoer Af ErikHg i Excel 8 24/05/202614:56 25/05/202619:06
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
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 dag 13:18 Lokal konto Af Bent i Windows
I går 16:16 Inverse formler Af tdktman i Excel
I går 15:33 disk plads på server Af dcedata1977 i Servere
I går 09:09 Flere brugere i 1 delt pivottabel Af mira96ac i Excel
25/0518:29 Beregning af flextid - formler Af Slettet bruger i Excel
White papers
Flere white papers »