Cellen kopieeren met variable Range

[SergevdH]

Cel A1 t/m J1 staan formules de moeten een x aantal keer naar beneden gekopieerd worden. De X wordt bepaald door de waarde die staat op het 2e tabblad cel A2.
Hoe kan ik deze waarde van cel A2 op de plek X ingevoerd krijgen.

B.v.
Sub Test1()
Range("A1:J1").Select
Selection.AutoFill Destination:=Range("A1:AX"), Type:=xlFillDefault
Range("A1:AX").Select
End Sub

 

[ExcelAmateur]

SergevdH,

Test deze macro eens.

Sub Test1()
X = Blad2.Range("A2")
Vul = "A" & X + 1
  Range("A1:J1").copy Worksheets("Blad1").Range("A2", Vul)
  'Range("A1:J1", vul).Select
End Sub

Het kan ook zo

Sub Test1()
X = Blad2.Range("A2")
vul = "A" & X + 1
  Range("A1:J1").copy Range("A2", vul)
  'Range("A1:J1", vul).Select
End Sub

Of zo

Sub Test1()
vul = "A" & Blad2.Range("A2") + 1
  Range("A1:J1").copy Range("A2", vul)
  'Range("A1:J1", vul).Select
End Sub

S.v.p. de volgende keer je code selecteren en dan boven in het menu op # klikken.
Dan komt je code in een apart vak te staan.

 

[SergevdH]

Het werkt bedankt.
Gr, Serge