Range kopiëren, plakken, transponeren

[stefano]

Ik wil van een tabblad een bereik kopiëren uit de laatste rij en dit bereik dan transponeren op een ander tabblad. Ik gebruik hiervoor onderstaande code waarin ik evenwel het bereik van kolom E tot O van de laatste rij niet selecteer vermoed ikBekijk bijlage helpmij.nl.24022017.xlsm . Dit werkt niet. Een voorbeeldbestand in bijlage.

Sub Afgeronderechthoek1_Klikken()
    
    Range("A65535").End(xlUp).Offset(0, 0).Select
  [COLOR="#FF0000"]  Selection.Copy[/COLOR]    
    Sheets("Certificaat").Select
    Range("J22").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

    Range("A1").Select
    

End Sub

 

[VenA]

Probeer het zo eens

Sub VenA()
  Blad1.Cells(22, 10).Resize(11) = Application.Transpose(Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(, 4).Resize(, 11))
End Sub

 

[stefano]

Hartelijk dank

 

[stefano]

Hoe kan ik de transpose in onderstaande code vervangen door een Paste (Special) ? Ik vind niet direct iets zoals Paste (Special) onder de Application...

  Blad1.Cells(22, 10).Resize(10) = Application.Transpose(Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(, 4).Resize(, 20))

 

[VenA]

Bv

Sub VenA()
  Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(, 4).Resize(, 11).Copy
  Blad1.Cells(22, 10).PasteSpecial xlPasteAll, , , True
End Sub

 

[stefano]

Aha, geen application ... meer; Mooi, dank voor de hulp.

 

[stefano]

Maar ... de cellen worden nu nog steeds getransponeerd als waarden. Ik had die graag met de paste special op rij 22 vanaf kolom J tot kolom .. zien verschijnen ipv onder elkaar in dezelfde kolom. Dit heeft wellicht te maken met de TRUE in de code maar als ik dan op F1 klik is er geen hulp beschikbaar. Kan je helpen ?

Sub VenA()
  Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(, 4).Resize(, 11).Copy
  Blad1.Cells(22, 10).PasteSpecial xlPasteAll, , , True
End Sub

 

[VenA]

Zonder te transponeren.

Blad1.Cells(22, 10).PasteSpecial xlPasteAll

 

[stefano]

Ik probeerde ondertussen met

Worksheets("certificaat").Cells(22, 10).Value = Worksheets("historiek").Cells(RowsCount, 1).End(xlUp).Resize(-20).Value

maar dat geeft 'door de toepassing of door object gegenereerde fout'.

in dit geval wou ik de laatste 20 rijen van blad historiek naar blad certificaat kopiëren.

 

[VenA]

Het is rows.count. Resize mag geen negatieve waarde hebben en je moet minimaal 20 rijen met gegevens hebben.

Sheets("certificaat").Cells(22, 10).Resize(20, 10).Value = Sheets("historiek").Cells(Rows.Count, 1).End(xlUp).Offset(-19, 4).Resize(20, 10).Value

 

[stefano]

Opgelost, dank je wel !