C
carla 7
S.O.S, help needed badly…the following macro:
For Each Worksheet In ActiveWorkbook.Worksheets
i = i + 1
If i < ActiveWorkbook.Worksheets.Count Then
Worksheets(i).Range("M6").Copy
Worksheets(ActiveWorkbook.Worksheets.Count).Cells(i, 1).PasteSpecial
Paste=xlValues
End If
Next
End Sub
will pastes values the last worksheet in the workbook vertically. I am in
severe need of a macro which will paste the values in the last worksheet in a
horizontal manner. I tried incorporating [outplace.range (“a†& outrow).
PasteSpecial Paste: = xlValue, Transpose: = True] into it, but it did not
work.
All I want is for the range output to fall horizontally instead of vertically.
Can someone please help?
For Each Worksheet In ActiveWorkbook.Worksheets
i = i + 1
If i < ActiveWorkbook.Worksheets.Count Then
Worksheets(i).Range("M6").Copy
Worksheets(ActiveWorkbook.Worksheets.Count).Cells(i, 1).PasteSpecial
Paste=xlValues
End If
Next
End Sub
will pastes values the last worksheet in the workbook vertically. I am in
severe need of a macro which will paste the values in the last worksheet in a
horizontal manner. I tried incorporating [outplace.range (“a†& outrow).
PasteSpecial Paste: = xlValue, Transpose: = True] into it, but it did not
work.
All I want is for the range output to fall horizontally instead of vertically.
Can someone please help?