Formules doorvoeren

[janemmers]

Ik wil in 600 rijen een formule kopieren of doorvoeren
rij 1 moet komen te staan =d1000
rij 2 moet komen te staan =d1100
rij 3 moet komente staan = d1200
....
rij 600 moet komen te staan =d....
enzenz

Heeft iemand een idee hoe ik dit voor elkaar kan krijgen

 

[LucHeyndrickx]

In cel A1 zet je: d1000
in cel A2 zet je: d1100

Selecteer beide cellen, en trek ze door naar beneden..

Luc

 

[janemmers]

De oplossing van Luc werkt alleen als deze als tekstveld wordt doorgevoerd. Het moet echter als formule (met = ervoor) worden doorgevoerd

 

[Roncancio]

Via onderstaande macro lukt het:

Sub Macro1()
Dim Rij, Teller As Integer
Teller = 1000
For A = 1 To 600
Cells(A, "A") = "=" & "D" & Teller
Teller = Teller + 100
Next

End Sub

 

[LucHeyndrickx]

Waarom het zo nodig als formule moet, is me een raadsel... maar goed: hier heb je het:

="d" & (1000 +(Rij()*100))

Luc