I get error 1004 "Unable to get the pastespecial property of the range
class". Thanks again!

' Generic subroutine to transpose a range of cells
' from source to destination
' *** WARNING ***
' This should be used when ranges match, i.e, source and
' destination ranges have the same number of cells
Sub copyRange(sRange As Range, dRange As Range)
If (sRange.Cells.Count = dRange.Cells.Count) Then
sRange.Copy dRange.PasteSpecial(Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=True)
Application.CutCopyMode = False
End If
End Sub

Try this...

Sub copyRange(sRange As Range, dRange As Range)
If (sRange.Cells.Count = dRange.Cells.Count) Then
sRange.Copy
dRange.PasteSpecial(Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=True)
Application.CutCopyMode = False
End If
End Sub
--
HTH...

Jim Thomlinson


"Zilla" wrote:

> I get error 1004 "Unable to get the pastespecial property of the range
> class". Thanks again!
>
> ' Generic subroutine to transpose a range of cells
> ' from source to destination
> ' *** WARNING ***
> ' This should be used when ranges match, i.e, source and
> ' destination ranges have the same number of cells
> Sub copyRange(sRange As Range, dRange As Range)
> If (sRange.Cells.Count = dRange.Cells.Count) Then
> sRange.Copy dRange.PasteSpecial(Paste:=xlAll, _
> Operation:=xlNone, _
> SkipBlanks:=True, _
> Transpose:=True)
> Application.CutCopyMode = False
> End If
> End Sub
>

Ah, syntax error. I did this and it worked!
Range.Copy
dRange.PasteSpecial Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=True)


On Jan 17, 11:42*am, Zilla <zill...@bellsouth.net> wrote:
> I get error 1004 "Unable to get the pastespecial property of the range
> class". Thanks again!
>
> ' Generic subroutine to transpose a range of cells
> ' from source to destination
> ' *** WARNING ***
> ' This should be used when ranges match, i.e, source and
> ' destination ranges have the same number of cells
> Sub copyRange(sRange As Range, dRange As Range)
> * * If (sRange.Cells.Count = dRange.Cells.Count) Then
> * * * * sRange.Copy dRange.PasteSpecial(Paste:=xlAll, _
> * * * * * * * * * * * * * * * * * * * * Operation:=xlNone, _
> * * * * * * * * * * * * * * * * * * * * SkipBlanks:=True, _
> * * * * * * * * * * * * * * * * * * * * Transpose:=True)
> * * * * Application.CutCopyMode = False
> * * End If
> End Sub