Transpose data by modifying an old macro

[AussieSteve]

Hi guys.
Need a little help adding some code to a macro, that was an inquiry back in April this year on this forum. This the sample code.


Sub DoLoop()

Dim Rng As Range
Set Rng = Range("E1", Range("E" & Rows.Count).End(xlUp))
Dim c As Range
Set c = Rng.Find("MarketPlace", , , xlWhole, , xlNext, True, , False)
Application.ScreenUpdating = False
Do While Not c Is Nothing
'The below line of code, where it is to copy data,This is what I want to modify by adding transpose to the code, I cannot
'seem to get it to work.
c.Resize(, 3).Copy c.Offset(5, -3)
c.Resize(, 3).ClearContents
Set c = Rng.FindNext(c)
Loop
Application.ScreenUpdating = True
End Sub

As always any help is greatly appreciated.

 

[mumps]

Try:

Sub DoLoop()
    Dim Rng As Range
    Set Rng = Range("E1", Range("E" & Rows.Count).End(xlUp))
    Dim c As Range
    Set c = Rng.Find("MarketPlace", , , xlWhole, , xlNext, True, , False)
    Application.ScreenUpdating = False
    Do While Not c Is Nothing
        c.Resize(, 3).Copy
        c.Offset(5, -3).PasteSpecial Transpose:=True
        c.Resize(, 3).ClearContents
        Set c = Rng.FindNext(c)
    Loop
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[AussieSteve]

Reply to Mumps.
Thank you for your help, it works for me. I know that was simple for you, frustration told me to go here get it out of my head and move on.
Thanks again Steve.

 

[mumps]

You are very welcome.