03-558 | Erol |
03-559 | Todd |
<tbody>
</tbody>
Hello All,
I'm a high beginner at this but I guess I'm a really good researcher because this got me pretty close to what I need. I just need it to run on every sheet and break off when it is done with the last sheet.
03-558 |
Erol |
03-559 |
Randy |
<tbody>
</tbody>
I am working with this code from 'Biocide'. It does the job but it doesn't know when to stop so it keeps crashing my system unless I break it off (Ctrl+Break) and I'm still stuck on the 1st sheet! And many more to go. Apologies, I'm not lazy, I just couldn't think about moving onto the next phase of code till I solved this one.
Any help is appreciated, Thank you!
Code:
Sub TransposetoOneCol()
Dim InputRange As Range
Dim OutputCell As Range
'*****ENTER THE SOURCE RANGE TO TRANSPOSE*****
Set InputRange = Sheets("Sheet1").Range("E:G")
Set OutputCell = Sheets("Sheet1").Range("B1") 'output will begin at this cell and continue down.
'*****DON'T EDIT BELOW THIS LINE*****
For Each cll In InputRange
OutputCell.Value = cll.Value
Set OutputCell = OutputCell.Offset(1, 0)
Next
End Sub