Formule doorkopieeren

[dennisv12]

Hallo,

Ik ben opzoek naar een code voor het kopiëren van een formule maar met een variabele range.
De formule =UUR(A2) moet komen op L1 en aan de hand van het doorlopen van de gegevens doorgetrokken worden tot het laatste vakje.
Ik kom er zelf niet uit dus nu is mijn vraag of iemand mij hiermee kan helpen!

Alvast bedankt.

Gr. Dennis

 

[gast0660]

Hoi,
Plaats eerst eens een vbtbestandje met wat je wil bereiken
groet

 

[HSV]

Een poging gebaseerd op kolom A.

Sub hsv()
 Range("L1").AutoFill Range("L1").Resize(Cells(Rows.Count, 1).End(xlUp).Row)
End Sub