waarde doorvoeren

[don42]

]Hallo

wie kan mij helpen met het volgende
wil graag dat wanneer ik in cel N2 een getal zet dit wordt doorgevoerd tot bv N50
maar dat het te onderbreken is
dus zet ik in N2 een 3 dan staan er van N2 t/m N50 allemaal 3 tjes
zou ik in cel N18 een 1 zetten moet vanaf daar tot N50 1tjes komen te staan
mits ik nog iets verander
heb er een voorbeeldje bijgedaan waar ik uitleg wat de bedoeling is
Bekijk bijlage lot.xlsx

 

[spaarie]

In N2:
=INDEX($O$2:$O2;VERGELIJKEN(9,99999999999999E+307;$O$2:$O2))
vervolgens doortrekken naar regel 50

of in de module achter het blad

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("O2:O50")) Is Nothing Then
        If Target.Value > 0 Then Range(Cells(Target.Row, 14), Cells(50, 14)) = Target.Value
    End If
End Sub

 

[don42]

bedankt voor je reactie ik ga er mee aan de slag