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

sleeper Nybegynder

13. juli 2009 - 16:23 Der er 4 kommentarer og
1 løsning

Transporner mange data

Hej

Jeg skal bruge en macro

Hvis G2 ikke er tom skal G2 til ??2 kopieres og indsættes nedad fra G2

f.eks

d2 = 10
G2 til P2 skal kopieres
og indsættes i
G2 - G3 - G4 - G5 - G6 - G7 - G8 - G9 - G10 - G11

Næste felt er så G12
D12 = 9
G12 - O12 skal kopieres
og indsættes i
G12 - G13 - G14 - G15 - G16 - G17 - G18 - G19 - G20

Næste felt er så G21
G21 = 2
G21 - H21 skal kopieres
og indsættes i
G21 - G22

Dette skal forsætte til ca. G16000 og når den er blank, skal macroen så stoppe

Håber der er en der vil hjælpe med dette

Der vil altid være antal tomme rækker imellem 2 linier som svarer til Gx minus 1
dette stammer fra en tidligere macro jeg har fået lavet.

Synes godt om

lerskov Praktikant

13. juli 2009 - 22:06 #1

Felter "D2 "D12" "G21" som du henviser til med "=" tegn. Er der den en sammenltælling? hvis det er bør denne kunne klare opgaven

i = 1
Cells(i, 4).Select
Do Until ActiveCell = ""
rr = Cells(1, 4).Value + 1
Cells(i, 8).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Cells(i + 1, 7).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells(i, 8).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
i = i + rr
Cells(i, 4).Select
Loop

Synes godt om

sleeper Nybegynder

13. juli 2009 - 23:04 #2

Hej

Det jeg henviser til, er at D2 er antal celler der skal transponeres

f.eks

d2 = 10
G2 til P2 skal kopieres - G2 til P2 er i alt 10 celler
og indsættes i
G2 - G3 - G4 - G5 - G6 - G7 - G8 - G9 - G10 - G11

Jeg får fejl til at starte med, fordi denne forsøger at starte i række 1 den skal først starte i række 2

Synes godt om

lerskov Praktikant

14. juli 2009 - 20:36 #3

Det burde være det. (håber jeg)

i = 2
Cells(i, 4).Select
Do Until ActiveCell = ""
rr = Cells(i, 4).Value + 1
Cells(i, 8).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Cells(i + 1, 7).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells(i, 8).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
i = i + rr
Cells(i, 4).Select
Loop

Synes godt om

sleeper Nybegynder

15. juli 2009 - 10:05 #4

Det er simpelthen perfekt.

Tak for hjælpen, venligst lig et svar så jeg kan afslutte denne

Synes godt om

lerskov Praktikant

15. juli 2009 - 14:28 #5

Et svar :-)

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
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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

20/12

Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed

20/12

Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte

20/12

Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)

20/12

Amazon ramt af største strejke nogensinde: Ansatte gået hjem

20/12

CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden

20/12

Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan

20/12

Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"

20/12

Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer

20/12

Danmark har det hurtigste internet i Norden

20/12

Behov for mere vidensdeling om AI: Sådan bliver du bedre rustet

20/12

Julepynt, papkasser og drikkevarer flyder på politiets datacenter - og uautoriserede personer kan have haft adgang til serverrum

Vis flere artikler

IT-JOB

Region Midtjylland

It-specialister til et af landets vigtigste it-systemer: MidtEPJ

Metroselskabet og Hovedstadens Letbane

Sikkerhedskonsulent

AP Pension

Business intelligence analytiker til BI afdeling

KMD A/S

IAM Enterprise Architect

Sydbank

Software Developer til Digital Banking

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

21/1222:16	Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42	Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54	Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
21/1209:42	Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
21/1200:26	Genhøre telefonsamtale Af anonym24 i Chat & Messaging