Søg
Avatar billede excelent Ekspert
07. januar 2006 - 15:15 Der er 16 kommentarer og
1 løsning

Gør celle til højre aktiv eller den til venstre i makro ?

Hvordan gør man cellen til højre til den aktive celle?

skal bruges med denne formel:
Selection.Resize ( ,12).Copy

problemet er bare, at cellen den står i også
kopieres med, - det er altså kun de 12 celler
til højre som skal kopieres.
løsning skal helst være uden faktiske celle referencer
som D4/B33 el. lign. - men kunne bruges overalt
v.h. Poul
Avatar billede jkrons Professor
07. januar 2006 - 15:21 #1
Denne kode forudsætter at den aktivecelle er den øverste i kolonnem, der IKKE skal kopieres:

    ActiveCell.Range("A1:A12").Offset(0, 1).Copy

Eksempler: Er A1 aktiv kopieres B1:B12.  Er C17 aktiv kopieres D17:D28.
Avatar billede brynil Nybegynder
07. januar 2006 - 15:22 #2
Kan du ikke bruge en Offset:

ActiveCell.Offset(0, 1).Select
Selection.Resize(, 12).Copy
Avatar billede excelent Ekspert
07. januar 2006 - 15:24 #3
hej jkrons jeg prøver lige
Avatar billede jkrons Professor
07. januar 2006 - 15:24 #4
Eller hvis jegf have kunnet læse indenad

    ActiveCell.Range("A1:L1").Offset(0, 1).Copy
Avatar billede excelent Ekspert
07. januar 2006 - 15:34 #5
hej jkrons din løsning kopierer rækker,- det skulle være kolonner
jeg har måske formuleret mig forkert
Brynil's løsning virker,
jeg mangler nu blot kode til at paste det til oprindelig celle
eks.
adr1 adr2 adr3 adr4 adr5 osv..
jeg gør først adr3 aktiv, og kører makro, resultat
skulle så være
adr1 adr2 adr4 adr5 osv..
kan i hjælpe med det ?
Avatar billede jkrons Professor
07. januar 2006 - 15:37 #6
Du har helt ret - derfor den sidste løsning fra mig :-), som kopierer kolonner.

Så for nu at bruge min egen, burde dette virker:

        ActiveCell.Range("A1:L1").Offset(0, 1).Copy
        ActiveSheet.Paste
Avatar billede brynil Nybegynder
07. januar 2006 - 15:43 #7
Det ser for mig ud som om du vil fjerne værdien i adr3 og rykke cellerne i rækken sammen.

Hvis det er tilfældet, kan du ikke bruge copy, så skal du bruge cut.

Men hvis du ikke bruger yderligere celler længere til højre, kan du så ikke bare slette adr2-cellen og rykke til venstre ?

Selection.Delete Shift:=xlToLeft
Avatar billede brynil Nybegynder
07. januar 2006 - 15:44 #8
adr3-cellen skulle der stå!
Avatar billede excelent Ekspert
07. januar 2006 - 15:48 #9
Den skal bruges i delt projektmappe, og der virker
slet og ryk til venstre ikke, hvorimod din løsning gør
undertiden er der mere end 12 kolonner med adresser
så makroen skal rettes til til sidst
kan du hjælpe med paste delen også?
Avatar billede jkrons Professor
07. januar 2006 - 15:48 #10
brynil-> Copy virker fint selv om der står noget i adr3 i forvejeen. Det bliver bare overskrevet. Problemet er, snarere, at tallet der står 12 celler længere til højre, bliver stående, eftersom der er tale om en kopiering. Så hvis det hele skal rykkes, er cut det rigtige.
Avatar billede brynil Nybegynder
07. januar 2006 - 15:51 #11
jkrons-> det er også det jeg mener. Det synes mere som om der bare skal fjernes en celle (for mig, altså) ;)
Avatar billede jkrons Professor
07. januar 2006 - 15:53 #12
Så derfor:

        ActiveCell.Range("A1:L1").Offset(0, 1).Cut
        ActiveSheet.Paste
Avatar billede brynil Nybegynder
07. januar 2006 - 15:58 #13
ActiveCell.Offset(0, 1).Select
Selection.Resize(, 12).Copy
ActiveCell.Offset(0, -1).Select
ActiveSheet.Paste
Avatar billede excelent Ekspert
07. januar 2006 - 15:58 #14
Ok det virker
jeg syntes i begge skal ha 30 point, så jeg opretter et nyt
spørgsmål til den af jer som svarer sidst.
tak for hjælpen begge 2
v.h. Poul
Avatar billede jkrons Professor
07. januar 2006 - 15:59 #15
Ellers bare del :-)
Avatar billede brynil Nybegynder
07. januar 2006 - 16:02 #16
Der sku stå:

ActiveCell.Offset(0, 1).Select
Selection.Resize(, 12).Cut
ActiveCell.Offset(0, -1).Select
ActiveSheet.Paste
Avatar billede excelent Ekspert
07. januar 2006 - 16:11 #17
Den virker også brynil
smid et svar i det andet spørgsmål, kom desværre
til at skrive jkrons
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
Ændre tal i en celle Af xvid i Excel 1 I går 16:05 I går 16:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 I går 02:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
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 18:50 Slet lokal konto Af ErikHg i Windows
I går 16:05 Ændre tal i en celle Af xvid i Excel
I går 13:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
White papers
Flere white papers »