Formule toevoegen tot laatste regel is bereikt

[youdeni]

Beste allemaal,

Ik heb de volgende vraag. Om e.e.a. te verduidelijken heb ik eeb voorbeeld bestand toegevoegd. Ik wil graag een vba code die het volgende voor mij doet. In kolom D staat een formule die de data van kolom B vermenigvuldig met de data in Komom C. De data wordt automatisch ingelezen vanuit een ander programma en het aantal rijen kan dus fluctueren. Nu wil ik dat d.m.v. een VBA code de formule in kolom D wordt ingevuld naargelang de rijen worden gevuld.

De formule vooraf invullen t/m de laatse rij is geen optie i.v.m. verdere bewerkingen. Al vast bedankt voor jullie bijdrage

 

[HSV]

Zo zou het kunnen.

Achter Blad1.

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim cl As Range
For Each cl In [A2:A65536]
If cl > 0 Then
cl.Offset(, 3) = cl.Offset(, 1) * cl.Offset(, 2)
End If
Next
End Sub

 

[youdeni]

Super Thanx!! :thumb:

 

[Warme bakkertje]

Wil je toch een formule in kolom D. Voordeel is dat je niet de volledige kolom A doorloopt met je macro.

Sub tst()
[D2] = "=RC[-2]*RC[-1]"
Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Sub