VBA > Meerdere cellen op verschillende posities kopieren

[Atara7]

Goedendag beste mensen,

Ik hoop dat iemand me op weg kan helpen met het volgende:
Als je op een knop drukt moet deze cellen op verschillende posities kopieren.

Nu had ik dit idee met VBA:

Private Sub CommandButton1_Click()

Dim r1 As Range, r2 As Range, WERKNEMERS As Range
Worksheets (MA-OV).Activate
Set r1 = Range ("E11:E11")
Set r2 = Range ("E25:E25")
Set r3 = Range ("E39:E39")
SET WERKNEMERES = Union (r1, r2, r3)

Dim s1 As Range, s2 As Range, HAALDITOP As Range
Worksheets (MA-OV).Activate
Set s1 = Range ("N4:N4")
Set s2 = Range ("N5:N5")
Set s3 = Range ("N6:N6")
SET HAALDITOP = Union (s1, s2, s3)

WERKNEMERS.Value = HAALOP.Value
End Sub

Ik vond het idee wel leuk maar het werkt voor geen meter...
Als ik de HAALOP, drie regels hierboven, verander in "pietje" komt er netjes
overal pietje te staan.
Maar daar is ook alles mee gezegd.

Ik hoop dat iemand mij kan helpen?
Groetjes, Aat

 

[Wigi]

Dat gaat niet lukken, ook niet als je

SET WERKNEMERES = Union (r1, r2, r3)

verandert in

SET [B]WERKNEMERS[/B] = Union (r1, r2, r3)

 

[Wigi]

Maar euh... waarom moeilijk doen als het heel simpel ook kan?

Private Sub CommandButton1_Click()

    With Worksheets(MA - OV)
        .Range("N4").Value = .Range("E11").Value
        .Range("N5").Value = .Range("E25").Value
        .Range("N6").Value = .Range("E39").Value
    End With

End Sub

Wigi

 

[Atara7]

Bedankt hoor Wigi!
Ben net met VBA bezig, zoals je ziet
Daar ben ik dus gewoon de hele middag mee aan het klooie

THANKS! :thumb: