whataslacker
New Member
- Joined
- Jul 17, 2020
- Messages
- 6
- Office Version
- 2010
- Platform
- Windows
I am getting data from a web source that is putting all the information into the first column. I need to be able to copy and transpose that information from that sheet into a new one then be able to repeat it for the next set of 11 rows until I hit a blank row in column A
This is the basic macro but I know there are ways to repeat it and increment it by 11. I just can't seem to find my particular solution anywhere. And right now I would be stuck making macros for every group of 11 I need transposed (then I might as well do it manually).
This is the basic macro but I know there are ways to repeat it and increment it by 11. I just can't seem to find my particular solution anywhere. And right now I would be stuck making macros for every group of 11 I need transposed (then I might as well do it manually).
VBA Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1:A11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Range("A12:A22").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub