• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA > Meerdere cellen op verschillende posities kopieren

Status
Niet open voor verdere reacties.

Atara7

Gebruiker
Lid geworden
13 okt 2008
Berichten
34
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 :o 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
 
Dat gaat niet lukken, ook niet als je
Code:
SET WERKNEMERES = Union (r1, r2, r3)
verandert in
Code:
SET [B]WERKNEMERS[/B] = Union (r1, r2, r3)
 
Maar euh... waarom moeilijk doen als het heel simpel ook kan?

Code:
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
 
:eek: Bedankt hoor Wigi!
Ben net met VBA bezig, zoals je ziet :o
Daar ben ik dus gewoon de hele middag mee aan het klooie :rolleyes:

THANKS! :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan