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
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51
Addition af celler, som er formatteret "tt.mm" Af FinBalance i Excel	5	18/11/202414:14	19/11/202414:11

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