excel macro herhalen voor onderliggende cel

[hans132]

Ik heb een vraag over een macro schrijven in excel
het lukt mij niet om de macro uit te laten voeren voor de onderliggende cel
Hij doet het nu voor de huidige rij maar moet het dan ook voor de volgende doen en die daarna etc

de macro is nu

Sub Macro7()

Range ("II6").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FormulaArray = "=LINEST(RC[-239]:RC[-6],R3C4:R4C237)"

End Sub

Maar dit moet gebeuren voor elke rij onder ii6 dus ook voor ii7 , ii8, en zo door tot ii3000

De formule is trouwens dat er 3 cells naast elkaar geselecteerd worden en dan met ctrl+shift+enter het goede antwoord eruit komt!

Het lukt nu per enkele rij maar hoe lukt dit dat hij automatische naar de volgende springt?
Welke formule moet erbij om dit uit te laten voeren?

Alvast heel erg bedankt!!
gr

 

[Cobbe]

Deze zou dat meoten kunnen:

Sub Macro7()
For teller = 6 To 3000
 Range("II" & teller).Range(Range("II" & teller), Range("II" & teller).End(xlToRight)).FormulaArray = "=LINEST(RC[-239]:RC[-6],R3C4:R4C237)"
Next
 End Sub

evenwel is deze code niet getest.

 

[hans132]

Dank voor je reactie maar hij doet het helaas nog niet..
Ik heb hem precies zo ingevuld maar komt niks uit.. ook geen error.. weet zelf niet wat ik eraan moet veranderen om hem wel te laten werken..

Dit is de wat de macro moet doen en dan tot rij 3000 ongeveer

Sub macro1()
Range("II6").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FormulaArray = "=LINEST(RC[-239]:RC[-6],R3C4:R4C237)"
Range("II7").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FormulaArray = "=LINEST(RC[-239]:RC[-6],R3C4:R4C237)"
Range("II8").Select
End Sub

Alvast bedankt!
gr

 

[Cobbe]

Zeg eens eerst of deze dan wel werkt? er zat toch een foutje in (.) ipv (,)

Sub tester()
 For teller = 6 To 30
    Range(Range("II" & teller), Range("II" & teller).End(xlToRight)).FormulaArray = "=LINEST(RC[-239]:RC[-6],R3C4:R4C237)"
 Next teller
End Sub

 

[hans132]

Jaaa!! Deze werkt!!!
Heel erg bedankt!!!
Nu kan ik eindelijk weer verder!!
Groetjes hans