Makro der transponerer og sætter ind efter hver 6. række

Her skal du bruge funktion - indsæt speciel - transponer

Marker f.eks. den første post
Vælg kopier
Indsæt speciel - transponer

Nej for så ville jeg skulle gøre det for hver enkelt adresse, og med 12000 rækker, så gider jeg altså ikke.

Nej okay - det kan jeg godt se!

Nyt forslag!

Hvis alle poster består af 6 linier kan du kopiere kolonnen ud i 6 kolonner.
I kolonne 2 sletter du det øverste felt
I kolonne 3 stetter du de to øverste felter osv.

Herefter kan du sortere kolonne A og alle poster med et nummer er dem du skal bruge. Resten kan slettes!

Håber det kan løse problemet. Ellers skal makro eksperterne på banen...

Jeg tror vi skal have nogle af kodedrengene på banen - vågn så op, eks. vogt.

Det nemmeste er vel at optage en makro.

gå til første celle, start optageren, marker det område du vil transponere, indsæt den relevante linie, gå ned til næste felt, og afslut optageren

Denne kan du nu indsætte i en løkke i VBA, som kører det antal gange, du skal bruge.

Det er ganske vist lidt klamp og fusk, men det plejer at virke *S*

Mile - hvad siger du til mit nye forslag?

Det er rimelig hurtig at kopiere de kolonner ud!

Jeg er snotdum når det gælder kode. Ved optagelse tager den jo bestemte celler og vil bare genbruge dem, så jeg skal jo nok have en counter, og en løkke.

du kan jo vælge at optage med relativ reference *S*

Finnholm> det med kopiering bliver da lige så bøvlet, som at gøre det enkeltvis.

B-hansen - hvordan optager jeg med en relativ reference - er på den på fanen beregning ??

Det behøver jo ikke gøres mere besværlig end nødvendig, men OK hvis du ikke vil bruge den løsning er det OK med mig!

når du optager en makro, er der en menu synlig, som hedder stop indspilning. På denne menubjælke er der to valgmuligheder, nemlig stop indspilning, eller ændre optagelsen fra absolut til relativ reference.
Dette er tilfældet i Excel 2000 og jeg mener osse at huske, at det er det samme i Excel 97

Jeg sidder med en XP og hvis den er der i 2000, så må jeg dælenhylemig også have den. Jeg tjekker lige....

Den var der godt nok, men det ændrer ingenting. Den bruger sgu stadigvæk cellereferencerne.

øjeblik... jeg prøver lige at rode lidt så

Se lige om denne virker efter hensigten
transponeren ud for rækken med 1.
Du kan så herefter filtrere selv.
Sub test4()
For Each C In Range(\"A1:a12000\")
    If C = \"1\" Then
        For x = 1 To 5
        C.Offset(0, x).Value = C.Offset(x, 0).Value
        Next x
    End If
    C.Offset(5, 0).Select
Next C
End Sub

Bak, forudsætter den ikke, at der står 1 i den første celle hver gang?

Hej Mile

Prøv denne

Sub Makro1()
\'
\' Makro1 Makro
\' Makro indspillet 04-12-01 af Allan Svendsen
\'
Dim iRow As Integer
Dim iColumn As Integer
Dim iCounter As Integer

iRow = 1
iColumn = 1
iCounter = 1

    Do Until IsEmpty(Cells(iRow, iColumn)) = True
        Range(Cells(iRow, iColumn), Cells(iRow + 5, iColumn)).Select
        Selection.Copy
        Cells(iCounter, iColumn + 1).Select
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
        iRow = iRow + 6
        iCounter = iCounter + 1
    Loop
End Sub

Den starter i celle A1, og går 6 rækker ned og kopiere, derefter vælger den celle b1, hvor dataene bliver transponeret, ligesom du ville have det, ik?

ASKIMS

Joo, men det gør det jo i eksemplet. jeg er klar over svagheden

Bak > den løber godt nok løkken igennem, men transponerer kun det første datasæt. Har det noget at sige at der kan være tomme linier i adressen ?

b_hansen -> det er ikke programmerings skik, når du går ind laver en fast defineret range, a la Range(\"A1:a12000\")!

undskyld det var bak jeg mente!

Mile -> har du prøvet min lille makro?

ok askims... jeg blev osse lige lidt forvirret *S*

Askims - Jeg er intet mindre en vildt stærkt imponeret. Det var en ren firsttimer, bankede lige det hele igennem. Tusind tak du er et geni. Og tak til i andre, der gjorde forsøget med at hjælpe en kodedum blondine som mig...

Man har jo lov at være heldig!

Det er ikke kun jan, der kan, men det lader til, at han holder fri, siden han ikke har svaret.

Har du prøvet at farve håret for at se om det hjælper? *GG* ;-)

Det hjælper ikke at farve håret. Man kan stadig ikke kode og får så bare mindre hjælp :-)

Beklager jeg ikke kunne deltage i det spændende spørgsmål. Jeg sad i møde!

Desuden er der en del på Eksperten, som kan lige så meget (og mere) VBA-kode end jeg kan :-)