What is wrong here with code

[Andries]

Hi All

Please explain and/or correct this code.

I am trying to paste the formula that is in Sheets("data2").Range("DT2:EG3272").

Sheets("data2").Range("DT2:EG3272").Copy Destination:=.Range("DT2").Select.PasteSpecial = xlPasteFormulas[code]
 
I thank you

 

[Andrew Poulsom]

Try:

Sheets("data2").Range("DT2:EG3272").Copy
.Range("DT2").PasteSpecial = xlPasteFormulas

The code needs to be inside a With ... End With construct for a worksheet (because of the dot before Range).

 

[Andries]

Hi Andrew

Thank you very much!

 

[Andries]

Andrew

How can I make this code shorter and the code must run on the active sheet and not on a specific sheet like in this code below.

Range("CZ1:DS3271").Select
    ActiveWorkbook.Worksheets("13").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("13").Sort.SortFields.Add Key:=Range("CZ2:CZ3271") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("13").Sort
        .SetRange Range("CZ1:DS3271")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub[code]

 

[Andrew Poulsom]

Like this?

    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("CZ2:CZ3271") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("CZ1:DS3271")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With