Range : door object gedefinieerde fout.

[stefano]

In onderstaande code verkrijg ik de foutmelding: Door de toepassing of door het object gedefinieerde fout. Wat zou de reden zijn? Voorbeeldbestand in bijlage.

Sub Afgeronderechthoek1_Klikken()

    Sheets(2).Range(Cells(2, 1), Cells(2, 52)).Select
        Selection.Copy
        Range("A65535").End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    
    Sheets(1).Range(Cells(22, 11), Cells(50, 11)).Select
    Selection.Copy
    Sheets(2).Range("A65535").End(xlUp).Offset(0, 5).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    
    Cells(1, 1).Select
    Sheets(1).Select
    Cells(1, 1).Select
  
End Sub

Bekijk bijlage range.xlsm

 

[jkpieterse]

Selecteren is niet nodig, wel goed aangeven over welke cellen je het hebt:

Sub Afgeronderechthoek1_Klikken()

    Sheets(2).Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(2, 52)).Copy
        Range("A65535").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False

    Sheets(1).Range(Sheets(1).Cells(22, 11), Sheets(1).Cells(50, 11)).Copy
    Sheets(2).Range("A65535").End(xlUp).Offset(0, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True  
End Sub

 

[stefano]

Dank je wel, weer wat bijgeleerd !

 

[snb]

dan valt ook dit te overwegen:

Sub Afgeronderechthoek1_Klikken()
  with Sheets(2).Cells(2, 1).resize(,52)
    sheets(2).cells(rows.count,1).End(xlUp).Offset(1).resize(,52)=.value
  end with

  with Sheets(1).Cells(22, 11).resize(28)
    Sheets(2).cells(rows.count,1).End(xlUp).Offset(, 5).resize(,28)=application.transpose(.value)
  end with
End Sub

 

[stefano]

Super, ik probeer het uit ! Dank.