Makro til omplacering af data

Ja, jeg har en makro liggende til formålet.
Send evt. lidt prøvedata, så lægger jeg makroen på.
janvogt@esenet.dk

Hvordan er dine data placeret i Word. Her tænker jeg på om de f.eks. ligger i en tabel?

Hej igen

Jan jeg har sendt dig eksempel, (som jeg tror det bliver). RVM data i Word er som beskrevet ovenfor 7 linier pr. person med en tom linie imellem. Jeg har ikke modtaget færdigt datasæt fra brugeren endnu, men har fået forklaret at det vil se således ud.

Løsning returneret.
Den er lavet i Excel, så den forudsætter, at Word-listen kan hentes over i Excel i A-kolonnen.

Fint nok - jeg kigger lige på den...

Hold da helt kæft hvor er du bare god. Du får de 100 + 2 ##, men hvis det ikke lige heeeelt er det brugeren vil have, så himler jeg lige op igen :-)

Fedt! Hvad siger #-saldoen?

Du skal være velkommen til at vende tilbage, hvis den ikke virker :-)

Hermed koden med indlagte kommentarer, så andre også kan være med:

Sub Transponer()
'
' Denne makro transponerer en kolonne med data
' til x nye kolonner
' Bemærk at makroen kører så længe der er data i data-kolonnen
'
Dim iRow As Integer
Dim iColumn As Integer
Dim iCounter As Integer

iRow = 1        'sætter start-rækken for data
iColumn = 1    'sætter start-kolonnen for data
iCounter = 2    'sætter indsættelses-række for tranponerede data

    Do Until IsEmpty(Cells(iRow, iColumn)) = True
        'vælger de næste 8 rækker
        Range(Cells(iRow, iColumn), Cells(iRow + 7, iColumn)).Select
        'kopierer de 8 rækker
        Selection.Copy
        'fastsætter, hvor data skal indsættes
        Cells(iCounter, iColumn + 6).Select
        'kopierer og transponerer de 8 rækker til slut-området
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
        'sætter inddata-variabel til næste kopiering (7 rækker længere ned)
        iRow = iRow + 8
        'sætter slut-variabel til næste række
        iCounter = iCounter + 1
    Loop
End Sub

Jeg kan dårligt huske det, men er det ikke en 9-11 stykker ??

janvogt >> Kunne jeg også få lov til at se makroen ? (tc@elvis.dk)

ok, tak  :-)