Hej!

Är ny med makron och har försökt få till nedanstående kod. Vet inte om det här är superenkelt eller komplicerat.

Jag har ett huvudblad i Blad1 dit jag vill flytta data från övriga blad.

Jag vill kopiera och transponera data från cellerna B42-B96 på varje blad, till var sin ny rad på Blad1 med början i cell I10. Det vill säga: cellerna B42-B96 från Blad2 ska kopieras och transponeras med start i I10. Cellerna B42-B96 från Blad3 ska kopieras och transponeras till I11. Från Blad4 ska samma celler till I12 och så vidare. Se koden nedan.

Jag vill alltså att den väljer ett nytt blad för varje gång och dessutom en ny rad för varje gång.

Tacksam för hjälp!

Sub Dataset2()

'

    Sheets("Blad2").Select 'Här vill jag att den väljer nästa blad allt eftersom

    Range("B42:B96").Select

    Selection.Copy

    Sheets("Blad1").Select

    Range("I10").Select 'Här vill jag också att den väljer nästa rad varje gång

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

End Sub••••ˇˇˇˇ

Stort tack för snabbt svar!

Funkar nästan nu, men vad var det för modifieringar som behövdes?

Först blev det ett 424-fel (Objekt saknas), men tror att jag lyckades komma runt det.

Men nu verkar den klaga på tredje raden, Dim copyrange As Range: Set copyrange = Ws.Range("B42:B96")

Den säger Kompileringsfel, Sub eller Function har inte definierats och så blir den raden gul från ": Set copyrange..." och framåt

Hälsar Johan

 Hej igen.

Det är nog ws den klagar på. Döpte juh bladet till wsCopy. 

Blir alltså wsCopy.range("b42:b96"). Har nog tid att testa den på datorn imorrn :)

/c