Variabele cellen selecteren en copieeren

[geep1980]

Ik wil d.m.v. een macro verschillen cellen copieeren naar een ander werkblad.
Het copieeren van een enkele cell is geen probleem.
Ik moet nu echter uit 3 kolommen steeds 3 verschillende cellen copieeren.

Bijvoorbeeld:

A1, B1 en C1 daarna wil ik
A1, B1 en C2 copieeren

Nu heb ik gezien dat als je een macro opneemt en je selecteerd verschillende cellen hij er Range("A1,B1,C1").select of Range("A1,B1,C2").select van maakt.
Nu wil ik echter de 1 en/of 2 variable hebben.

Nu dacht ik dat ik dat op de volgende manier kon doen:
x = 1
x2 = 1
x3 = 2

Range("A & x, b & x2, c & x3").Select

Maar dit werkt echter niet.
Wat doe ik fout?

 

[HSV]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x1 As Variant, x2 As Variant, x3 As Variant
  x1 = 1
   x2 = 2
    x3 = 3
  Application.Union(Range("A" & x1), Range("A" & x2), Range("A" & x3)).Select
End Sub

 

[geep1980]

HSV,

bedankt het selecteren lukt.
Is het echter ook mogelijk om ze te copieeren.
Ik krijg als ik zeg selection.coy de melding:

That command cannot be used on multiplte sections

 

[geep1980]

zoals ik wilde lukte het helaas niet dus heb het maar op een andere manier opgelost d.m.v. twee do while loops

 

[HSV]

Je kan gewoon.

Application.Union(Range("A" & x1), Range("A" & x2), Range("A" & x3)).copy

doen.
Maar het kan ook zonder de copy.
bv.

Range("F1").Resize(3).Value = Application.Union(Range("A" & x1), Range("A" & x2), Range("A" & x3)).Value

 

[geep1980]

Het copieren van cellen uit verschillende rijen lukt niet.
Bijvoorbeeld
A1, B1 en C2
A1, B1 en C3

vandaar dat ik nu maar een loop heb gebruikt.
Bedankt in ieder geval voor de hulp kan altijd een keer van pas komen.