Vereenvoudiging macro

[MBBS]

Ik heb in bestand in bijlage een macro gemaakt die een bepaalde handeling uitvoert.
Hopelijk valt er niemand van zijn stoel van het lachen

Maar ik denk dat deze iets simpeler kan.

Iemand zin om deze te vereenvoudigen, zo leren we nog iets bij.

 

[Hoornvan]

MBBS,

Zo werkt hij ook.
Er zal dadelijk wel iemand zijn die de code nog korter kan maken.

Sub copyTST()
Teller = 0
Aantal = [X3]

[A5:A500].ClearContents

For Each Cell In Range("U5:U50")

  [W1] = Cell.Value
  [W1].Copy
  [A65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
  CutCopyMode = False

    Teller = Teller + 1
    
  If Teller >= Aantal Then GoTo Einde:

Next
Einde:
[W1].ClearContents
End Sub

 

[snb]

Mij lijkt dit voldoende

Sub copyTST()
    Columns(1).ClearContents
    Cells(1, 1).Resize([X3]) = Cells(5, 21).Resize([X3]).Value
End Sub

 

[MBBS]

MBBS,

Zo werkt hij ook.
Er zal dadelijk wel iemand zijn die de code nog korter kan maken.

Deze werkt inderdaad eveneens perfect, én ik heb hier en daar weeral gezien hoe het korter kan.
Waarvoor alvast mijn dank.

 

[MBBS]

Mij lijkt dit voldoende

Sub copyTST()
    Columns(1).ClearContents
    Cells(1, 1).Resize([X3]) = Cells(5, 21).Resize([X3]).Value
End Sub

Ongelofelijk maar waar, zelfs deze doet "bijna" wat hij moet doen :shocked:
Alleen... hij begint op A1... hij zou moeten beginnen op A5

 

[Superzeeuw]

MBBS,

dan:

Sub copyTST()
    Columns(1).ClearContents
    Cells([COLOR="Red"][B]5[/B][/COLOR], 1).Resize([X3]) = Cells(5, 21).Resize([X3]).Value
End Sub

 

[MBBS]

MBBS,

dan:

Sub copyTST()
    Columns(1).ClearContents
    Cells([COLOR="Red"][B]5[/B][/COLOR], 1).Resize([X3]) = Cells(5, 21).Resize([X3]).Value
End Sub

Ik dacht dat mijn voorbeeldje duidelijk zou zijn, maar juist... mijn vraagstelling had beter gekund.
Nu deze macro nog wat ontcijferen

Allen bedankt voor jullie inzet.