Avatar billede Klaus W Professor
18. april 2021 - 13:05 Der er 8 kommentarer og
1 løsning

Ændring af VBA kode

Hej Excel hjælpere

Jeg bruger denne VBA kode til at overføre data fra cellerne b3:E3 til cellerne b6:e6 og ned efter.

Nu kunne jeg godt tænke mig at rykke det hele lidt så Excel overføre fra celle b3:c3, e3 til cellerne b6:c6, e6 kan det lade sig gøre.

Celle d3 er tom og i celle e6 står en formel der skal blive stående.

På forhånd tak

Klaus W


Sub Afrundetrektangel3_Klik()
'
' overføre til bestillings
'
Sheets("Bestilling").Range("B3:e3").Copy

Dim lastrow As Long

lastrow = Range("B22").End(xlUp).Row

Sheets("Bestilling").Activate

Cells(lastrow + 1, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub
Avatar billede kim1a Ekspert
18. april 2021 - 13:54 #1
Jeg er ikke helt med på hvad du vil, om du bare vil kopiere fra række 3 til række 6, men du kan se hvor der i din kode står range("B3:E3") det er den reference du kopierer, så hvis den skal ændres er det altså nemt.

Der hvor du sætter ind er defineret ved at den går til B22, går op til næste udfyldte celle og så hopper en ned.
Det svarer til at du står i B22 og trykker ctrl + pil op, og så går en ned for det, der sætter den data ind.

Måske hvis du er meget specifik på hvad du kopiere og hvor det skal sættes ind?
Avatar billede Klaus W Professor
18. april 2021 - 14:18 #2
Hej Kim1a
Det er det, der skal stå b3:c3, e3 ville jeg tro men jeg kan ikke få det til at fungere.

KW
https://www.dropbox.com/sh/36ueb9hca8g2kra/AABychmuyuXRS1elY06cUthba?dl=0

Kunne dette hjælpe
Avatar billede Klaus W Professor
18. april 2021 - 14:20 #3
I D6 vil jeg indsætte en LOPSLAG til at finde antal i arket Matriale men den forsvinder

:-)
Avatar billede kim1a Ekspert
18. april 2021 - 14:36 #4
Jeg forstår stadig ikke. Skal B3:C3 stå i E3:G3?
Avatar billede Klaus W Professor
18. april 2021 - 16:00 #5
Nej teksten der står i B3  skal står i B6, C3  skal står i C6 , E3 skal står i E6


Kw
Avatar billede Klaus W Professor
18. april 2021 - 17:25 #6
Hj igen Kim1a gav det nogle mening.
Det jeg troede man kunne var at skrive

Sheets("Bestilling").Range("B3:c3,e3").Copy

Men det gør at  det bliver kopieret til B6, C6 og D6 :-(

Og det skulle være B6, C6 og e6

KW
Avatar billede kim1a Ekspert
18. april 2021 - 19:24 #7
Sheets("Bestilling").Range("B3").Copy
Sheets("Bestilling").Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Repeter med de andre. Husk hvis du vil klippe så er det også en mulighed:
    Sheets("Bestilling").Range("B3").Cut
    Range("B6").Select
    ActiveSheet.Paste
Avatar billede Klaus W Professor
18. april 2021 - 19:30 #8
Hej Kim1a
Jeg kikke lige på det end til videre tak

KW
Avatar billede Klaus W Professor
19. april 2021 - 09:25 #9
Hej Kim1a
Jeg takker lige i skabet.
KW
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

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
Claus Thorsgaard skal sætte gang i væksten som ny CEO: Her er hovedopgaverne som topchef i Luxion
Den tidligere Conscia-topchef Claus Thorsgaard skal nu sætte gang i væksten hos den danske it-virksomhed Luxion. "Luxion har et kæmpe uudnyttet potentiale. Ordrerne vælter ind ad døren uden en aktiv salgsindsats, så hvis vi begynder at fokusere på det, så skulle det gerne gå endnu bedre," siger den nye direktør til Computerworld.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
Eva Berneke stopper som topchef i KMD og flytter til Paris: Her er KMD's nye topchef
Efter syv år på posten som topchef for KMD forlader Eva Berneke selskabet. Nu flytter hun med familien til Paris, hvor hun vil fortsætte sit bestyrelsesarbejde. KMD har allerede afløser på plads.
White paper
Sådan prioriterer IT-sikkerhedschefernes indsatsen i 2021
I denne undersøgelse fra F-Secure giver knap 2.000 ledende personer på tværs af hele Europa deres bud på, hvor de vil prioritere indsatsen i år – og hvad de opfatter som virksomhedernes mest presserende udfordringer på cybersikkerhedsfronten.