inserisci valore in celle a seguito di condizione

[ucame]

Buongiorno, chiedo aiuto per la realizzazione di un codice VBA (le formule che ho cercato di creare in alternativa, non funzionano), in quanto da solo non ci riesco. Le indicazioni sono contenute nel foglio di esempio di cui allego il link.
ringrazio chi mi potrà aiutare e colgo l'occasione per inviare a tutti i migliori auguri di Buone feste.
Grazie mille.


https://we.tl/t-nH3aOXm15p

[Raffaele53]

Prova, premi Alt + F11 ed incolla. Salva in XLSM

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("I10")) Is Nothing Then
    If Target <> "" Then
    Dim X As Long, Y As Long, Val1 As Double
    Val1 = Cells(10, "I")
        Application.EnableEvents = False
        For X = 11 To 500
            Cells(X, "I") = Val1
            If Cells(X - 1, "J") <> "" Then
INIZIO:
                Val1 = Val1 + (Cells(X - 1, "J") / Cells(2, "E"))
                For Y = 1 To Cells(2, "E")
                    Cells(X, "I") = Val1
                    X = X + 1
                    If Cells(X - 1, "J") <> "" Then GoTo INIZIO
                Next Y
                Val1 = Cells(10, "I")
            End If
        Next X
        Application.EnableEvents = True
    End If
End If
MsgBox "Fatto"
End Sub

[ucame]

Per prima cosa grazie 1000 per la disponibilità, ma il codice non funziona come avevo indicato, nella cella I15 deve apparire un 2 come avevo indicato nei punti 2, 3 e 4 del file inviato all'inizio. Può essere che sia stato poco chiaro io e me ne scuso.


https://we.tl/t-kwlRe0YfB9

[Raffaele53]

Il codice riproduce il Tuo esempio, in I15 mette 1 ed in I17 mette 2
La foto non mi dice nulla con tutti quei uno