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
Er Huawei truet på livet? Her er konsekvenserne af Google-forbud og amerikansk modstand
ComputerViews: Huawei indkasserer flere voldsomme bredsider fra blandt andre den amerikanske stat og Google. Den kinesiske tech-gigant er dog ikke sendt til tælling - endnu. Se her, hvad der kan komme til at ske.
Computerworld
Google blokerer med omgående virkning for Huaweis brug af Android-licenser - se hvad det kommer til at betyde for dig
Google begrænser med omgående virkning kinesiske Huaweis brug af Android. Huawei vil ikke længere have adgang til tjenester fra Google.
CIO
Danske Joachim Ærtebjerg er med i toppen som CTO for Intel i EMEA - hør hans bud på it-udviklingen efter 25 år hos processor-giganten
Tech fra Toppen: Danske Joachim Ærtebjerg har arbejdet for Intel siden de lancerede Pentium-processoren i midten af 90´erne. I dag er han CTO for EMEA-området - og giver her sit bud på it-udviklingen.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Lav din egen robot på få minutter med Fable
Tilbage i 2011 startede Shape Robotics udviklingen af Fable, et robotsystem bygget enkelt op på moduler. Det gør at studerende kan bygge deres egen robot på få minutter ved brug af interaktive blokke eller Python API. I denne video fortæller Moises Pacheco, CTO i Shape Robotics om processen med at skabe en intuitiv app sammen med Ciklum, og et partnerskab med Microsoft.