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

[ucame]

buonasera, innanzitutto mi scuso per non essere stato abbastanza chiaro e mi rendo conto che non è facile capire quelle che sono le mie idee mal esposte, ho madificato perciò il foglio excel con un indicazione più dettagliata.
Grazie per la pazienza.

https://we.tl/t-ua76JvhnKX

[Raffaele53]

Ripeto, il codice allegato fà esattamente quello che richiedi.
L'unica differenza che Ti sei fermato alla cella I35 invece il codice esegue esattamente sino I35, dopo scrive "uno" sino I500. Quale problema riscontri? Devo allegare il files? Se deve fermarsi in I35 devo pensarci sù.

[ucame]

Buongiorno, non forrei sembrare pretenzioso, ma se tu potessi implementare il VBA nel primo file, sarebbe un grosso regalo viso che ho scoperto di essere .. ehm imbranato.
Per quanto riguarda non vedere la sfilza di 1 dopo la cella I35 avrei pensato di fare così: creare una colonna di supporto ( magari G11:G500) in cui inserire un qualsiasi valore e con la formattazione condizionale in I11:I500 far si che se nella colonna di supporto non c'è un valore, magari "OK", la cela abbia un carattere di colore bianco.
Grazie 1000 e Buone feste.

[Raffaele53]

https://fromsmash.com/QUNra9wCTA-dt

Appena clicchi nella Convalida-Dati in I10 si avvia il codice
Nel Foglio1 c'è il primo codice allegato che scrive sino riga 500
Nel Foglio2 c'è una modifica che ferma il tutto dopo "tot" celle scritte in E2
Nel Foglio3 (uguale a Foglio2) bisogna fare doppio-click in I10 per avviarlo (che ritengo più sicuro per evitare problemi)