Transpose and put each row on separate sheet in Excel

Let’s take the frustration out of user forms

Become an Affiliate and earn 25% on Course Sales

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

I am able to provide online help on your computer at a reasonable rate.

I use a Blue condenser Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.
Templates with code installed are available for $50 USD

code
Sub transpose()
Dim lcol, erow As Long
Dim r As Long
Dim sname As String
‘ transpose Macro
‘
lcol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
‘

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
‘data
For r = 2 To erow
‘erow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
Call headings(lcol)
Range(Cells(r, 1), Cells(r, lcol)).Select
sname = Cells(r, 1).Value
Application.CutCopyMode = False
Selection.Copy
Sheets(“Temp”).Select
Sheets(“Temp”).name = sname
Range(“B1”).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, transpose:=True
Columns(“B:B”).ColumnWidth = 10.29
Range(“B3”).Select
Application.CutCopyMode = False

Next r

End Sub

Sub headings(lcol)
Sheet1.Activate
Sheet1.Range(Cells(1, 1), Cells(1, lcol)).Select
Selection.Copy

Sheets.Add
ActiveSheet.name = “Temp”
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, transpose:=True
Columns(“A:A”).EntireColumn.AutoFit
Sheets(“Sheet1”).Select
End Sub

Watch more new videos about Excel Office | Synthesized by Mindovermetal English