CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede Marting Forsker
02. februar 2021 - 20:59 Der er 4 kommentarer

Kopier funktion : -)

Hej

Hvordan kommer jeg til at stå i samme celle efter nedenstående kode bliver kørt? 

Worksheets("Ark1").Range("A1:E23").Copy _
Destination:=Worksheets("Ark2").Range("A1")

Fx hvis jeg stå i celle A6 så finder den tilbage igen til A6 (hvis koden køre via en fx en knap)


Og hvordan få jeg markeringen væk fra Ark1?
Hvis jeg køre koden direkte
VBProject
Ark1

Hilsen Martin G.
Avatar billede Jan K Ekspert
02. februar 2021 - 21:20 #1
Gem din nuværende celle i en variabel og aktiver den igen, når du har kørt koden.
Avatar billede Jan K Ekspert
02. februar 2021 - 21:23 #2
Fx

strCel = ActiveCell.Address

Din kode

Range(strCel),Activate
Avatar billede Marting Forsker
03. februar 2021 - 20:34 #3
Hej Jan

skal der ikke mere kode på  denne her  ?  "strCel = ActiveCell.Address"
hvis jeg køre via knappen sker der ikke noget?


Worksheets("Ark1").Range("A1:E23").Copy _
        Destination:=Worksheets("Ark2").Range("A1")


Worksheets("Ark1").Range (strCel), Activate
Avatar billede Marting Forsker
03. februar 2021 - 20:39 #4
Jeg har lige prøvet noget her 

https://www.dropbox.com/scl/fi/bj0cw479khge6riqmpdpg/Mappe1_pr-ve.xlsm?dl=0&rlkey=f0qniuei0wr9kl0w9bw8ouco8
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
slette rækker automatisk Af torben lind i Excel 1 I dag 18:52 I dag 20:32
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 -
Formelhjælp Af boro23 i Excel 4 19/04/202410:54 22/04/202409:25
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 18:52 slette rækker automatisk Af torben lind i Excel
I dag 18:28 Spalter Af Nysum i Word
I dag 17:59 Genoprette router firmware Af Wombat i Routere & Switches
I dag 13:40 Hjælp hjælp hjælp Af Esther i Musik & videoafspillere
I dag 12:43 Fælles indbakke - indstillinger Af Majken i Office & Kontorpakker
White papers
Flere white papers »


Premium
Teaser billede
Microsoft advarer: Russiske hackere udnytter flere år gammel Windows-sårbarhed til at stjæle data
Læs mere »
Offentlige myndigheder kan snart få adgang til virksomheders data
HPE’s salg i Danmark går 200 millioner kroner tilbage: Modtager penge fra moderselskab for at få overskud
Facebook var tæt på at forlade Europa: Her er de største GDPR-øjeblikke fra 2023
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 »
Porno-giganterne Pornhub og XVideos skal indlevere materiale til EU
En hyldest til klodens snedigste tablet-design: Nu er fremtiden for Microsofts hardware endnu mere uvis
Nørgaard: Som jeg altid har sagt: Man ansætter altid nye folk på udseendet, for det er det eneste, som en kandidat ikke kan fuske med
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 »
Danske CloudNordic går konkurs efter stort ransomware-angreb
På denne dato er det slut med udbredte versioner af Office: Microsoft vil have dig over på de dyrere E3-licenser
Ja, AI vil betyde fyringer og eliminering af stillinger – disse grupper bliver ramt
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
SASE: Træf det rette valg – første gang
Læs mere »
MDR: Transparent sikkerhed og overvågning i realtid
Vejen væk fra WAN: Sådan skifter du til en moderne infrastruktur
Nemmere overblik, styring og omkostningskontrol i dit multicloud-miljø
Se alle »

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