Plakken lukt niet

[Rap261]

Hi,


Ik wil graag een selectie uit blad 2 (import) kopieren naar blad 1 (data).
Met onderstaande code krijg ik een foutmelding op regel "Selection paste" en ook blijkt dat ie niet kopieerd uit blad 2 maar uit blad 1

Wat doe ik fout?

Private Sub CommandButton1_Click()
With Sheets("Import")
Range("A2:A10").Select
Selection.Copy
End With
With Sheets("Data")
Range("A2:A10").Select
Selection.Paste
End With
End Sub

 

[robdgr]

Als je de volgende code aan een andersoortige knop hangt, werkt het wel:

Sub Import()

Application.ScreenUpdating = False
    Sheets("Import").Select
    [A1:A10].Copy
    Sheets("Data").Select
    [A2].Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [D1].Select
Application.ScreenUpdating = True
End Sub

Vraag me niet naar het waarom van het niet werken van jouw constructie.

 

[Rap261]

Hi Rob,

Ik heb een andersoortige knop gemaakt (object) en daar de code onder gehangen. Helaas voert ie alleen de laatste oprd uit: select cel D1
Enig idee?

 

[robdgr]

Ralph,

In mijn bijlage werkt het, geen idee waarom het bij jou niet werkt.

 

[Rap261]

Helaas Rob, bij mij werkt het niet.
Gelukkig heb ik een alternatief als Vlookup, daarmee lukt het ook

Thanks!