Macro hanging/taking long time to react

[jaianth2011jan]

I have recorded a small macro for sorting purpose but the macro when run in 2010 will take very long after some repetitions of it. The problem is occuring only in a particular column.

But the same macro wen run in excel 2004/2007 runs properly without any problem. Can any1 please help me out to clear the problem as soon as possible.


Below given is that piece of code:
Sub HORtoVER6DATA()
'
' HORtoVER6DATA Macro

'
' Keyboard Shortcut: Ctrl+Shift+Q
'
ActiveCell.Range("A1:A6").Select
Selection.Copy
ActiveCell.Offset(6, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Cut
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Selection.Copy
ActiveCell.Offset(-5, 0).Range("A1").Select
ActiveSheet.Paste
Selection.Cut
ActiveCell.Offset(5, -1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-6, 1).Range("A1:A12").Select
Selection.ClearContents
ActiveCell.Offset(6, -1).Range("A1").Select
End Sub

 

[JackDanIce]

What cell is selected before you run this macro? And what worksheet are you in?

 

[dave3009]

So far as I can tell from that macro the following would provide the same result

Sub HORtoVER6DATA()
'
' HORtoVER6DATA Macro

'
' Keyboard Shortcut: Ctrl+Shift+Q
'
With ActiveCell
    .Range("A1:A6").Copy .Offset(6, 0)
End With
Application.CutCopyMode = False
End Sub

 

[JackDanIce]

d'oh - clearly I didn't read it through enough, yes all it appears to do is cut a range and paste it (and then lots of cell selects!)

 

[jaianth2011jan]

Dear Sir,

The main concept behind this is to make the column values on to row values completely
viz:
K1,L1,M1,N1,O1,P1
K2,L2,M2,N2,O2,P2


AND I PUT THE FORMULA IN ROW WISE:

+K1
+L1
+M1
+N1
+O1
+P1

NEXT I NEED THE SERIES AS
+K2
+L2
+M2
+N2
+O2
+P2

BUT IF I SIMPLY COPY IT GIVES
+K7
+L7
+M7
+N7
+O7
+P7

that is why this series of copy pastes are required i think now my thought is clear .

Regards,

Jayanth.M

 

[dave3009]

Do you want to transpose the data?

Sub Macro1()
    Range("A1:F2").Copy
    Range("A7").PasteSpecial Transpose:=True
End Sub