AussieSteve
New Member
- Joined
- Dec 28, 2017
- Messages
- 18
- Office Version
- 365
- Platform
- Windows
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.
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.