Sidsel Mester
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
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.
Mads32 Guru
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
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.
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
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
Sidsel Mester
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
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)
Sidsel Mester
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.
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)
Sidsel Mester
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.
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)"
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

Opret Preview

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





Premium
Midt i spionage-rygter og mediestorm: Computerworld besøger Huawei i Kina - tag med på besøg hos det måske mest omstridte tech-firma lige nu
Reportage, Shenzhen: “Exacting, rigorous, tests drive learning, all for real battles.” Computerworld er taget på besøg i det gigantiske hovedkvarter for verdens måske mest omtalte tech-selskab lige nu
Computerworld
Google slipper første version af Android 10 løs: Her er de vigtigste nyheder
Tiende version af styresystemet Android er ude i sin første betaversion: Her er de nye funktioner, som systemsoftwaren vil byde på.
CIO
Tech fra Toppen: Det har CIO Mads Madsbjerg Hansen fra FLSmidth lært af flere års global it-konsolidering
Tech fra Toppen: Flere års arbejde har betydet en reduktion i antallet af it-systemer hos FLSmidth. Men processen har ikke været uden overraskelser. Hør hvad CIO Mads Madsbjerg Hansen har lært af den omfattende og globale proces.
Job & Karriere
Efter blodrødt regnskab: Nu fyrer Atea 20 medarbejdere i Danmark
Atea fyrer nu 20 medarbejdere. Det sker som en direkte konsekvens af, at den danske forretning er under pres, oplyser selskabets direktør.
White paper
Gratis e-bog: Mister du pusten på BI-bjergetapen? Tag den lige vej i stedet!
Denne e-bog er relevant for dig der sidder i en virksomhed, der allerede arbejder med Dynamics 365 for Finance & Operations, eller som overvejer at få det. Det er din genvej til at komme tilbage på BI-motorvejen, hurtigt og på den rigtige måde. Du finder ud af hvordan du kommer ud over bumpene og uden om hullerne på bjergvejen med CBI Plugin, så du igen kommer tilbage på motorvejen og kan køre direkte mod målet. Læs videre og bliv klogere på, hvordan du kommer over – eller helt undgår – de største bump på bjergetapen.