G
Guest
I'm using a macro to do a copy, paste special, transpose skip blank line and
repeat. I've used it in another worksheet and it worked fine. When I try
to use it in my current work sheet (I copied the macro to the new worksheet)
it gives me a run-time error 1004; copy area and paste area are not the same
shape and size.
If I make my selection smaller and then run the macro, it doesn't seem to
pick up on the blank lines inbetween each entry; therefore transposing my
data all onto ONE line.
Sub Blank ()
Dim myArea As Range
For Each myArea In Selection.SpecialCells(xlCellTypeConstants).Areas
myArea.Copy
Range("A25500").End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
transpose:=True
Next myArea
End Sub
repeat. I've used it in another worksheet and it worked fine. When I try
to use it in my current work sheet (I copied the macro to the new worksheet)
it gives me a run-time error 1004; copy area and paste area are not the same
shape and size.
If I make my selection smaller and then run the macro, it doesn't seem to
pick up on the blank lines inbetween each entry; therefore transposing my
data all onto ONE line.
Sub Blank ()
Dim myArea As Range
For Each myArea In Selection.SpecialCells(xlCellTypeConstants).Areas
myArea.Copy
Range("A25500").End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
transpose:=True
Next myArea
End Sub