CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Sidsel Seniormester

13. marts 2019 - 10:46 Der er 10 kommentarer og
1 løsning

vba copy to destination

Jeg forsøger at kopiere værdierne i b265 til og med den sidste celle med værdi (maks b802) på ark navn1 og sætte dem ind på ark navn2 i første ledige celle efter c15.

Min kode ser således ud, hvad er der galt?

With Worksheets("Schneider og Sarel ").Range("B265:b" & Range("b802").End(xlUp).Row).Copy _
Destination:=Worksheets("NettoRabatter Schneider").Range("C15").End(xlDown).Offset(1, 0)

Det ser meget rodet ud her, det gør ikke i VBE, men jeg kan ikke fikse det.
I VBE er der kun 2 linjer, delt efter .copy _

Jeg håber nogen kan hjælpe her.

Vh Sidsel

Synes godt om

Thor Østergaard Ekspert

13. marts 2019 - 11:31 #1

Er du sikker på at der er data under c15?
Er der ikke det fejler din kode fordi du så lander helt i bunden og prøver at komme en række længere ned.

Synes godt om

Mads32 Ekspert

13. marts 2019 - 13:15 #2

Hej
Hvis det er som Thor skriver, så kan du blot i en række langt mede under sidste række data, indsætte data i for eksempel række 10000 skrive slut i området A100000: AA10000

Synes godt om

Thor Østergaard Ekspert

13. marts 2019 - 13:49 #3

Ked af det Mads32, men det lyder som en dårlig idé. Jeg ville skrive et par linjer kode mere og bruge xlup i stedet for xldown.

Synes godt om

store-morten Ekspert

13. marts 2019 - 19:37 #4

Måske:

Sub test()

SchneiderSidsteRække = Worksheets("Schneider og Sarel ").Range("B650000").End(xlUp).Row
If SchneiderSidsteRække > 802 Then SchneiderSidsteRække = 802

NettoRabatterSidsteRække = Worksheets("NettoRabatter Schneider").Range("C650000").End(xlUp).Row

Worksheets("Schneider og Sarel ").Range("B265:b" & SchneiderSidsteRække).Copy _
Destination:=Worksheets("NettoRabatter Schneider").Range("C" & NettoRabatterSidsteRække).Offset(1, 0)

End Sub

Synes godt om

store-morten Ekspert

13. marts 2019 - 19:44 #5

Sub test_kort()

'Schneider og Sarel Sidste Række
SSR = Worksheets("Schneider og Sarel ").Range("B650000").End(xlUp).Row
'Schneider og Sarel Sidste Række dog Max 802
If SSR > 802 Then SSR = 802

'NettoRabatter Schneider Sidste Række
NSR = Worksheets("NettoRabatter Schneider").Range("C650000").End(xlUp).Row

Worksheets("Schneider og Sarel ").Range("B265:b" & SSR).Copy _
Destination:=Worksheets("NettoRabatter Schneider").Range("C" & NSR).Offset(1, 0)

End Sub

Synes godt om

Sidsel Seniormester

15. marts 2019 - 09:31 #6

Hej
@store-morten jeg kan ikke få dine forslag til at virke.

ang koden. er det en dum fejl, at der står xlDown, der skal selvfølgelig stå xlUp, men det virker stadig ikke.

for en god orden skyld er her den reviderede kode.

With Worksheets("Schneider og Sarel ").Range("B265:b" & Range("b802").End(xlUp).Row).Copy _
Destination:=Worksheets("NettoRabatter Schneider").Range("C15").End(xlUp).Offset(1, 0)
End With

Den markerer "Destination" og siger compile error: Expected end of statement

Synes godt om

Thor Østergaard Ekspert

15. marts 2019 - 09:39 #7

Prøv at droppe with

Worksheets("Schneider og Sarel ").Range("B265:b" & Range("b802").End(xlUp).Row).Copy _
Destination:=Worksheets("NettoRabatter Schneider").Range("C15").End(xlUp).Offset(1, 0)

Synes godt om

Sidsel Seniormester

15. marts 2019 - 09:44 #8

Vi er på vej. Nu indsatte den hele kolonne b. Jeg skal kun bruge fra b265 til og med sidste celle med data.

Synes godt om

Thor Østergaard Ekspert

15. marts 2019 - 10:21 #9

Vi skal have arkfane spec. på alle ranges

Worksheets("Schneider og Sarel ").Range("B265:b" & Worksheets("Schneider og Sarel ").Range("b802").End(xlUp).Row).Copy _
Destination:=Worksheets("NettoRabatter Schneider").Range("C15").End(xlUp).Offset(1, 0)

Synes godt om

Sidsel Seniormester

15. marts 2019 - 10:45 #10

Det virker nu, det gik dog op for mig at den jo ikke skal gå op fra c15, så jeg ændrede c15 til c65000. Tak Thor, du får svaret, eftersom spørgsmålet handlede om copy to destination, og din kodning var den rigtige.

Synes godt om

store-morten Ekspert

15. marts 2019 - 18:21 #11

Jeg kan ikke se forskellen på løsningen og mine forslag :-)

Bort set fra:
"b265 til og med den sidste celle med værdi (maks b802)"

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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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

20/12

Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed

20/12

Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte

20/12

Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)

20/12

Amazon ramt af største strejke nogensinde: Ansatte gået hjem

20/12

CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden

20/12

Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan

20/12

Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"

20/12

Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer

20/12

Danmark har det hurtigste internet i Norden

20/12

Behov for mere vidensdeling om AI: Sådan bliver du bedre rustet

20/12

Julepynt, papkasser og drikkevarer flyder på politiets datacenter - og uautoriserede personer kan have haft adgang til serverrum

Vis flere artikler

IT-JOB

Specsavers

Head of Marketing Technology – Northern Europe (NE)

BEC

Management consultant for Tech Transformation

Jyske Bank

Senior forretningsudvikler

Politiets Efterretningstjeneste

Bliv IT-specialist i PET og beskyt Danmark mod terror og spionage

Quadsat ApS

Robotics Engineer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

21/1222:16	Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42	Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54	Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
21/1209:42	Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
21/1200:26	Genhøre telefonsamtale Af anonym24 i Chat & Messaging