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

[ucame]

Gentile Raffaele, ho realizzato un nuovo foglio in cui ho inserito il codice che mi hai fornito, come puoi vedere se inserisco un valore in I10, la macro genera nelle celle seguenti una fila di 1.
Magari sbaglio qualche passaggio io, ma non so dove.
Grazie ancora.

https://we.tl/t-vZYmAN92B9

[Anthony47]

Io mi sono perduto al punto 3 della descrizione:
3. tale valore (Quale, quello presente in I10?) andrà diviso per il numero presente in E2
4. Il risultato ottenuto andrà sommato alla cella precedente in I (Precedente a cosa?) e inserito (che cosa va “inserito”?) quindi sempre in I nelle celle del range* sottostante [...]

Questo secondo file e' ancora piu' criptico, visto che contiene meno dati che l'esempio iniziale

Forse un “esempio” potrebbe aiutare; del tipo
-supponiamo che I10 contenga XX
-allora .....

Ciao a tutti

[Raffaele53]

Se non c'è scritto nulla in "J", mette tutti uno sino riga 500
Usa il primo allegato