paste with transpose

[PeterTaylor]

Dear all,
I am using excel 2007 need a little help with paste syntax. I have the following code

  wsData.Range(Cells(1, 15), Cells(1, myTotalColumns)).Select
        Selection.Copy
        
        
        myTotalCollarRows = wsCollars.UsedRange.Rows.Count
        myTotalCollarRows = myTotalCollarRows + 1
        
        Windows("1AAA_AL_COLLARS.xlsm").Activate
        
         
         
        
        wsCollars.Cells(myTotalCollarRows, 2).Select
        wsCollars.PasteSpecial Transpose:=True

I am trying to paste the selection with transpose option but the macro will not compile, it stops at the last line with message "named argument not found"

regards
Peter

 

[PeterTaylor]

change "wsCollars.PasteSpecial Transpose:=True" to
"selection.PasteSpecial Transpose:=True"
Marco compiles and runs

 

[jbeaucaire]

If wscollars has already been previously declared as a specific sheet in that other workbook, there's no need to "activate" it, nor is it necessary to do any of that "selecting' prior to copying or pasting. This should work...

    wsData.Range(Cells(1, 15), Cells(1, myTotalColumns)).Copy
    myTotalCollarRows = wsCollars.UsedRange.Rows.Count + 1
    wsCollars.Cells(myTotalCollarRows, 2).PasteSpecial Transpose:=True

 

[AlphaFrog]

    With wsData
        .Range(.Cells(1, 15), .Cells(1, myTotalColumns)).Copy
    End With

    With wsCollars
        myTotalCollarRows = .UsedRange.Rows.Count + 1
        .Cells(myTotalCollarRows, 2).PasteSpecial Transpose:=True
    End With
    Application.CutCopyMode = True