Macro transposing column to rows in step of 15 rows

[bluetingle]

I have a table with columns A-F and several thousand rows. I want to be able to easily transpose the the first rows (2-16) in column E as headings on a new page.
From the F Column i alse need to transpose the data in row 2-16 to the new page. i need to do this for the entire F column. Every 15 step is a new row on the new page. The data looks like this. The left field is Column E and the one to the right is Column F. I would appreciate any help with this.

Adress	Andelsvägen 13
c/o
Efternamn	Komaki
Epost	x
Förnamn	Birgitta
Har du erfarenhet av röstmottagning?	Ja
Kan du arbeta heltid 22 aug - 9 sep?	Ja
Mobiltelefonnummer	x
Om ja, var och när?	Stockholm innerstad olika valkretsar samt Akalla. Har varit med nästan alla val sedan 1973.
Övrigt (andra meriter)	Önskemål Arbetar gärna nära Odenplan eller Centralen , åker med SL från Sollentuna.
Personnummer ååmmdd-xxxx	x
Postnummer xxx xx	19149
Postort	Sollentuna
Språkkunskaper utöver svenska och engelska
Telefon	x
Adress	Nyponrosvägen, 5, 5
c/o
Efternamn	Bäckman
Epost	x
Förnamn	Marianne
Har du erfarenhet av röstmottagning?	Ja
Kan du arbeta heltid 22 aug - 9 sep?	Ja
Mobiltelefonnummer	x
Om ja, var och när?	alla val sedan jag var 20 år
Övrigt (andra meriter)	alla va förtidsröstning och ordförande nu i sofia 2
Personnummer ååmmdd-xxxx	x
Postnummer xxx xx	13833
Postort	Älta
Språkkunskaper utöver svenska och engelska	svenska och engelska
Telefon	x
Adress	Kungsgatan 51
c/o
Efternamn	Sagindykova

<tbody>
</tbody>

 

[oldbrewer]

Re: Urgent help with macro transposing column to rows in step of 15 rows

please ask with a very simple pretend layout say 4 cols 10 rows and your desired output

 

[bluetingle]

Re: Urgent help with macro transposing column to rows in step of 15 rows

This is the layout i'd like to achieve:

Adress

c/o

Efternamn

Epost

Förnamn

Har du erfarenhet av röstmottagning?

Kan du arbeta heltid 22 aug - 9 sep?

Mobiltelefonnummer

Om ja, var och när?

Övrigt (andra meriter)

Personnummer ååmmdd-xxxx

Postnummer xxx xx

Postort

Språkkunskaper utöver svenska och engelska

Telefon

Andelsvägen 13

Komaki

x@y

Birgitta

Ja

Ja

xxxxx

Stockholm innerstad olika valkretsar samt Akalla. Har varit med nästan alla val sedan 1973.

Önskemål Arbetar gärna nära Odenplan eller Centralen , åker med SL från Sollentuna.

xxxxxx

19149

Sollentuna

xxxxx

Nyponrosvägen, 5, 5

Bäckman

y@x

Marianne

Ja

Ja

xxxxx

alla val sedan jag var 20 år

alla va förtidsröstning och ordförande nu i sofia 2

xxxxx

13833

Älta

svenska och engelska

xxxxxx

<tbody>
</tbody>

So far this is what i have come up with but it doesn't really behave the way i want :D

Sub SCU()
    Dim Gen As Worksheet
    Dim Ink As Worksheet
    Dim i As Integer
    Dim z As Integer
    Dim x As Integer
    
    'Set Gen = Sheets("Generated")
    Set Ink = Sheets("inkomna")
    
    i = Cells(Rows.Count, "E").End(xlUp).Row
    z = 2: x = 1
    While z <= i
    Ink.Range("F2" & x).Resize(, 15) = _
            WorksheetFunction.Transpose(Range("F" & z).Resize(15))
        z = z + 15: x = x + 1
    Wend
End Sub

 

[Fluff]

Re: Urgent help with macro transposing column to rows in step of 15 rows

How about

Sub CopyTrans16()

   Dim Rw As Long
   Dim i As Long
   
   Rw = 2
   With Sheets("Sheet2")
      .Range("A1:O1").Value = Application.Transpose(Range("E2:E16"))
      For i = 2 To Range("F" & Rows.Count).End(xlUp).Row Step 15
         .Range("A" & Rw).Resize(, 15).Value = Application.Transpose(Range("F" & i).Resize(15))
         Rw = Rw + 1
      Next i
   End With
End Sub

The "Data" sheet needs to be the active sheet & this will copy to "Sheet2"

 

[oldbrewer]

Re: Urgent help with macro transposing column to rows in step of 15 rows

Adress	Andelsvägen 13		Adress	c/o	Efternamn	Epost	Förnamn	Har du erfarenhet av röstmottagning?	Kan du arbeta heltid 22 aug - 9 sep?	Mobiltelefonnummer	Om ja, var och när?
c/o			Andelsvägen 13		Komaki	x	Birgitta	Ja	Ja	x	Stockholm innerstad olika valkretsar samt Akalla. Har varit med nästan alla val sedan 1973.
Efternamn	Komaki		Andelsvägen 14		Komakioo	x	Birgittaxxx	Nein	Ja	x	different text
Epost	x
Förnamn	Birgitta
Har du erfarenhet av röstmottagning?	Ja
Kan du arbeta heltid 22 aug - 9 sep?	Ja				this macro pulled the data into the table
Mobiltelefonnummer	x				just adjust it for actual number of records = rows in a block of data
Om ja, var och när?	Stockholm innerstad olika valkretsar samt Akalla. Har varit med nästan alla val sedan 1973.
Adress	Andelsvägen 14				Sub Macro4()
c/o					'
Efternamn	Komakioo				' Macro4 Macro
Epost	x				' Macro recorded 27/02/2018 by bob
Förnamn	Birgittaxxx				'
Har du erfarenhet av röstmottagning?	Nein
Kan du arbeta heltid 22 aug - 9 sep?	Ja				'
Mobiltelefonnummer	x				Sum = 0
Om ja, var och när?	different text				Count = -8
					For t = 2 To 3
					Count = Count + 9
					For s = 4 To 12
					Cells(t, s) = Cells((s - 3) + Sum, 2)
					Next s
					Sum = Sum + 9
					Next t
					End Sub

<colgroup><col><col><col><col><col><col><col><col><col span="3"><col></colgroup><tbody>
</tbody>

 

[bluetingle]

Re: Urgent help with macro transposing column to rows in step of 15 rows

Thank you Fluff, you solved my problem. Deeply appreciated

 

[Fluff]

Re: Urgent help with macro transposing column to rows in step of 15 rows

Glad to help & thanks for the feedback