Søg
Avatar billede chicoboy Novice
22. april 2012 - 20:45 Der er 9 kommentarer og
1 løsning

Makro der markerer et område og kopirerer det til højre

Jeg vil gerne indspille en makro, der når jeg står i en celle markerer alle data nedenunder cellen indtil der mødes en tom celle og cellerne til højre herfor. Disse skal alle kopieres en tak til højre.

      C      D
3    peter    14
4    hans    23
5    birgit    33

Fx - står i C3 - og så få området C3:D5 kopieret til D3:E5 med makroen.

Makroen skal virke uafhængigt af hvilken celle der er "startcelle" og uafhængigt af antal rækker.


Jeg har selv optaget en makro (relativ reference) hvor jeg makerer C3 - taster ctrl+shift+pil ned for at markere data nedad og så pil til højre for at få disse data markeret også - dernæt ctrl C flyt til højre og ctrl V.

Makroen virker da også men altid kun på tre rækker (jf eksemplet)

Hvad gør jeg forkert?
Avatar billede store-morten Ekspert
22. april 2012 - 21:12 #1
Måske

står i C3

Kør makro:
Sub Makro1()
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Cut
    Range(Selection, Selection).Offset(0, 1).Select
    ActiveSheet.Paste
End Sub

C3:D5 flyttes til D3:E5 med makroen.
Avatar billede store-morten Ekspert
22. april 2012 - 21:36 #2
Ps. Evt. data i kolonne E og udaf flyttes med.
Avatar billede store-morten Ekspert
22. april 2012 - 21:38 #3
Måske

står i C3

Kør makro:
Sub Makro2()
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.Offset(0, 1)).Select
    Selection.Cut
    Range(Selection, Selection).Offset(0, 1).Select
    ActiveSheet.Paste
End Sub

Ps. Evt. data i kolonne E overskrives.
Avatar billede chicoboy Novice
22. april 2012 - 22:16 #4
Tak - det virker!

Et par småting.

Hvis makroen kører på en enkelt række - markerer den ned til hvor den møder data igen - kan man undgå det?

hvad skal jeg tilføje for at curseren bliver i den oprindelige kolonne? (altså flytter 1 til venste efter kopiering)
Avatar billede chicoboy Novice
22. april 2012 - 22:17 #5
hov - det var ikke meningen det skulle være et pointsvar - kan du ikke sende det
Avatar billede store-morten Ekspert
22. april 2012 - 22:34 #6
Sub Makro1()
home = ActiveCell.Address
homeArk = ActiveSheet.Name

    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Cut
    Range(Selection, Selection).Offset(0, 1).Select
    ActiveSheet.Paste
    Range(Selection, Selection).Offset(0, 0).Select
   
Sheets(homeArk).Select
Range(home).Select
End Sub
Avatar billede store-morten Ekspert
22. april 2012 - 23:01 #7
Prøv:
Sub Makro3()
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Do Until IsEmpty(ActiveCell)
  ActiveCell.Offset(1, 0).Select
Loop
emty = ActiveCell.Offset(-1, 0).Address

    Range(home, emty).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Cut
    Range(Selection, Selection).Offset(0, 1).Select
    ActiveSheet.Paste
    Range(Selection, Selection).Offset(0, 0).Select
   
Sheets(homeArk).Select
Range(home).Select
End Sub
Avatar billede store-morten Ekspert
22. april 2012 - 23:06 #8
Sub Makro1()
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Do Until IsEmpty(ActiveCell)
  ActiveCell.Offset(1, 0).Select
Loop
  emty = ActiveCell.Offset(-1, 0).Address

    Range(home, emty).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Cut
    Range(Selection, Selection).Offset(0, 1).Select
    ActiveSheet.Paste
   
Sheets(homeArk).Select
Range(home).Select
End Sub
Avatar billede chicoboy Novice
22. april 2012 - 23:28 #9
Tak - helt perfekt nu!
Avatar billede store-morten Ekspert
22. april 2012 - 23:30 #10
Velbekomme, og tak for Point ;-)
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
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:32 Jeg kan ikke opdatere min iPad til ios 26.4.1. Af Bettina i Apps til iOS
I går 08:32 Office pakke LTSC vs Retail? Af Don G i Office & Kontorpakker
10/0421:19 Lydindstilling Prosonic TV Af TageArent i Fjernsyn & projektorer
10/0415:37 Sort skærm Af mort1 i Windows
09/0412:32 iPadOS 26.4.1 kan ikke opdatere Af claes57 i Apps til iOS
White papers
Flere white papers »