Kopiëren plakken via VBA?

[kaan]

Allen,

Ik heb een registratie formulier waarmee ik van ene sheet gegevens over kopieer naar een andere sheet. Dit werkt prima maar als ik mijn code aanpas naar 100’den pagina’s word mijn code traag.
Omdat mijn kennis over VBA beperkt is heb ik jullie hulp nodig om dit aan te passen naar VBA om het snellen en simpeler te maken.
Hoe kan ik doen.

Alvast veel dank

 

[edmoor]

De kortste klap.

Begin je code eens met: Application.ScreenUpdating = False
En sluit af met: Application.ScreenUpdating = True

 

[VenA]

Gebruik geen copy paste maar ken gelijk de waarde aan de juiste cel toe. Dit kan je vrij eenvoudig in een lus zetten. Als je een voorbeeld plaatst gebruik dan kolomkoppen zodat het duidelijk is welke waarden waar staan.

 

[HSV]

Als je alleen maar de waarden wilt, moet je geen 'Copy' gebruiken maar......

sheets("Blad1").range("A1:B1") = sheets("Blad2").range("A1:B1").value

Hier de gehele code voor je werkblad.

Sub hsv()
Dim ws As Worksheet, i As Long, y As Long
Set ws = Sheets("sheet2")
 With Sheets("Sheet1")
      For i = 7 To 102 Step 5
          y = y + 1
        .Cells(i, 2).Resize(, 2) = ws.Cells(y, 1).Resize(, 2).Value
        .Cells(i + 1, 5).Resize(2) = Application.Transpose(ws.Cells(y, 6).Resize(, 2).Value)
        .Cells(i + 1, 2) = ws.Cells(y, 3).Value
        .Cells(i + 3, 2) = ws.Cells(y, 5).Value
    Next i
 End With
End Sub

 

[kaan]

Heren,

Code van Harry werkt perfect, dit is precies wat ik nodig had.

Harry en anderen veel dank.

Mvg, Kaan