CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede sjssjdk Mester
25. april 2018 - 07:40 Der er 3 kommentarer

VBA kopier celler fra et ark til et andet.

Hej.

jeg vil gerne have mulighed for at kopirer fra et ark til et andet.
Jeg vil gerne blot kopirer og så manuelt paste i det andet ark da navnet på det nye ark ændres.

Jeg har fx data i A1, A3 og C1. som skal kopires og beholde placeringen så når jeg åbner det andet ark og placere mig i A1 så kopires der data i A1. A3 og C1.

Hvis jeg bruger Range("a1,A3,C1").copy - så bliver dataen kopiret ind uden mellemrum.

En der kender en løsning på dette?

på forhånd tak
Avatar billede Dan Elgaard Ekspert
25. april 2018 - 07:55 #1
¨Jeg er ikke helt sikker på, at jeg forstår problemstillingen, men kan du ikke benytte noget i denne stil:

Sheets("Ark1").Range("A1").Copy Destination:=Sheets("Ark2").Range("A1")
Sheets("Ark1").Range("A3").Copy Destination:=Sheets("Ark2").Range("A3")
Sheets("Ark1").Range("C1").Copy Destination:=Sheets("Ark2").Range("C1")
Avatar billede Jan Hansen Ekspert
25. april 2018 - 08:44 #2

Option Explicit

Dim OldSheet As Worksheet, NewSheet As Worksheet

Sub MyCopy()
    Set OldSheet = ActiveSheet  ' Data ark
    Set NewSheet = Sheets.Add  ' Lavet nyt ark
   
    ' Kopierer A1,A3,C1 til det nye ark
    NewSheet.Range("A1").Value = OldSheet.Range("A1").Value
    NewSheet.Range("A3").Value = OldSheet.Range("A3").Value
    NewSheet.Range("C1").Value = OldSheet.Range("C1").Value
    ' -----------//----------'
End Sub


Jan
Avatar billede excelent Ekspert
28. april 2018 - 09:54 #3
Du skal først markere/aktivere destinationsarket
Kør herefter følgende kode:

Sheets("Ark1").Range("A1").Copy Range("A1")
Sheets("Ark1").Range("A3").Copy Range("A3")
Sheets("Ark1").Range("C1").Copy Range("C1")

Ret Ark1 i de 3 linier til aktuel kilde-arknavn
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

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Skrive tekst fra celle i formel Af SFrede i Excel 8 I går 14:54 I dag 12:51
slette rækker automatisk Af torben lind i Excel 12 24/04/202418:52 I dag 07:07
Ctrl + Backspace Af xl-Enthusiast i Excel 7 22/04/202408:15 22/04/202410:12
Lopslag Af Mariacecilia i Excel 9 19/04/202419:00 20/04/202420:01
Vagtliste med rul mellem skifter Af Klaus W i Excel 0 19/04/202413:33 -
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 17:16 Optimer MySql table med ASP Af poulmadsen i ASP
I dag 09:27 Stegkode scanner med funktionsknap Af kulawig i Andet hardware
I dag 08:47 hjælp til film Af Carmen i Fri debat
I går 18:19 Fjerne adgangskode Af Geo" søster i Andet sikkerhed
I går 16:44 sletning af en årgang billeder i dropbox Af valsbol i Cloudtjenester
White papers
Flere white papers »


Premium
Teaser billede
Køber 25.000 Copilot-licenser af Microsoft i kæmpe-aftale - vil investere milliarder i AI
Læs mere »
"Når jeg engang ikke er her mere, så vil jeg gerne huskes som generøs lige som ham"
Det danske it-lovsystem skal moderniseres: Styrelse søger ene-leverandør til 10-årig kæmpe-kontrakt
7N fra København runder halvanden milliard kroner i omsætning: Beskæftiger nu 1.700 konsulenter
Se alle »
Computerworld
Teaser billede
På tur i BMW's mægtigste elbil: Sådan er livet ombord i en monumental million-ellert
Læs mere »
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Porno-giganterne Pornhub og XVideos skal indlevere materiale til EU
Test: Denne bærbar beviser, hvorfor man ikke skal handle laptop alene ud fra teknikbladet
Se alle »
CIO
Teaser billede
Nu kan mange flere opgradere deres gamle Windows 10-pc'er til Windows 11: Se om du kan opgradere
Læs mere »
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
På denne dato er det slut med udbredte versioner af Office: Microsoft vil have dig over på de dyrere E3-licenser
Microsoft skruer op for CPU-krav til den næste version af Windows 11: Færre brugere kan nu opdatere
Se alle »
Job & Karriere
Teaser billede
NNIT flytter til det centrale København: Her er selskabets nye hovedkvarter
Læs mere »
Knap 40 procent af disse it-folk tjener tjener mindst 57.000 kroner om måneden
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Se alle »
White paper
Teaser billede
Vejen væk fra WAN: Sådan skifter du til en moderne infrastruktur
Læs mere »
Cybersikkerhed: Skær antallet af alarmer ned fra tusindvis til blot en håndfuld
Rapport kortlægger de 13 bedste muligheder for at sætte turbo på din cloud computing
Guide: Sådan udvikler du en moderne netværksstrategi
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »