Condividi:        

inserisci valore in celle a seguito di condizione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

inserisci valore in celle a seguito di condizione

Postdi ucame » 22/12/24 15:19

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
ucame
Newbie
 
Post: 8
Iscritto il: 25/10/14 13:43

Sponsor
 

Re: inserisci valore in celle a seguito di condizione

Postdi Raffaele53 » 22/12/24 19:13

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
Raffaele53
Utente Junior
 
Post: 49
Iscritto il: 03/10/24 13:06

Re: inserisci valore in celle a seguito di condizione

Postdi ucame » 22/12/24 19:50

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
ucame
Newbie
 
Post: 8
Iscritto il: 25/10/14 13:43

Re: inserisci valore in celle a seguito di condizione

Postdi Raffaele53 » 22/12/24 21:41

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
Raffaele53
Utente Junior
 
Post: 49
Iscritto il: 03/10/24 13:06

Re: inserisci valore in celle a seguito di condizione

Postdi ucame » 22/12/24 22:00

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
ucame
Newbie
 
Post: 8
Iscritto il: 25/10/14 13:43

Re: inserisci valore in celle a seguito di condizione

Postdi Anthony47 » 22/12/24 22:10

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
Avatar utente
Anthony47
Moderatore
 
Post: 19524
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: inserisci valore in celle a seguito di condizione

Postdi Raffaele53 » 22/12/24 22:23

Se non c'è scritto nulla in "J", mette tutti uno sino riga 500
Usa il primo allegato
Raffaele53
Utente Junior
 
Post: 49
Iscritto il: 03/10/24 13:06

Re: inserisci valore in celle a seguito di condizione

Postdi ucame » 23/12/24 22:01

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
ucame
Newbie
 
Post: 8
Iscritto il: 25/10/14 13:43

Re: inserisci valore in celle a seguito di condizione

Postdi Raffaele53 » 24/12/24 10:18

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ù.
Raffaele53
Utente Junior
 
Post: 49
Iscritto il: 03/10/24 13:06

Re: inserisci valore in celle a seguito di condizione

Postdi ucame » 24/12/24 13:08

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.
ucame
Newbie
 
Post: 8
Iscritto il: 25/10/14 13:43

Re: inserisci valore in celle a seguito di condizione

Postdi Raffaele53 » 24/12/24 15:42

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)
Raffaele53
Utente Junior
 
Post: 49
Iscritto il: 03/10/24 13:06


Torna a Applicazioni Office Windows


Topic correlati a "inserisci valore in celle a seguito di condizione":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti

cron