Risultati da 1 a 25 di 25

Discussione: Macro copia e accoda un valore in una cella con più addendi.



  1. #1
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Macro copia e accoda un valore in una cella con più addendi.

    Salve,
    ho la necessita di creare una "macro" che copi un valore risultante da una formula e accodarlo in una cella con più addendi.
    Ho provato con il registratore ma non mi permette di copiare "beep".

    Questi i dettagli riportati anche nel file allegato:

    Macro che faccia queste cose:

    1. Prendere il valore della cella B1
    2. Sommare (accodare) il valore B1 nella casella B2
    3. Azzerare la cella B1
    4. Cambiare il colore dei caratteri "rosso" in "nero".
    5. Posizionarsi nella prima cella libera dei valori B15

    Attendo lumi, grazie.

    rioma
    File Allegati File Allegati

  2. #2
    L'avatar di Dillina
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    636
    Versione Office
    2013
    Utile ricevuti
    124
    Utile dati
    613

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Ciao Rioma...ho spulciato nei messaggi e ho visto che ancora non ti sei presentato?

    Quando hai due minuti passa di QUI

    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)

  3. #3

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Codice da associare ad un tasto:

    Codice: 
    Sub Test()
    Dim uRiga As Long
    
    
    Range("b2") = Range("b2") + Range("b1")
    Range("b1") = ""
    uRiga = Range("B" & Rows.Count).End(xlUp).Row
    Range("B4:B" & uRiga).Font.ColorIndex = xlAutomatic
    Range("B" & uRiga + 1).Select
    
    
    End Sub

  4. I seguenti 2 utenti hanno dato un "Utile" a Rubik72 per questo post:


  5. #4
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Ciao Rubik72,
    funziona tutto ma mi ero spiegato male nel punto 3.
    La cella B1 non deve essere azzerata alla fine della somma ma contenere la stessa formula che c'era prima ovvero =+B3-B2

  6. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Elimina la riga in rosso:
    Codice: 
    Sub Test()
    Dim uRiga As Long
    
    
    Range("b2") = Range("b2") + Range("b1")
    Range("b1") = ""
    uRiga = Range("B" & Rows.Count).End(xlUp).Row
    Range("B4:B" & uRiga).Font.ColorIndex = xlAutomatic
    Range("B" & uRiga + 1).Select
    
    
    End Sub

  7. #6
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...elementare Watson.
    Ma l'appetito vien mangiando (vedi esempio allegato).
    [IMG][/IMG]
    Se il range è una tabella la macro porta il cursore sulla prima cella dopo la tabella, inoltre mette il colore nero su tutta la tabella.
    Dovrebbe invece:
    _posizionarsi sulla cella b16 (prima cella libera)
    _mantenere il colore rosso dalla b16 in giù

    rioma
    File Allegati File Allegati

  8. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    4885
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1615
    Utile dati
    1020

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Ciao e un saluto a Rubik,
    potresti aggiungere al codice queste due righe in rosso:

    Codice: 
    Sub Corrispettivo()
    '
    ' Corrispettivo Macro
    '
    Dim uRiga As Long
    
    
    'somma il valore di b1 con i valori di b2
    Range("b2") = Range("b2") + Range("b1")
    'azzera la cella b1
    'Range("b1") = ""
    'mette il colore nero nei corrispettivi versati
    uRiga = Range("B" & Rows.Count).End(xlUp).Row
    Range("B4:B" & uRiga).Font.ColorIndex = xlAutomatic
    'posiziona il cursore nella prima cella libera della colonna b
    Range("B" & Range("B" & Rows.Count).End(xlUp).End(xlUp).Row + 1).Select
    Range("B" & Range("B" & Rows.Count).End(xlUp).End(xlUp).Row + 1).Font.ColorIndex = 3
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #8
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...manca ancora poco.
    La prima cella successiva (b16) è di colore rosso ma quelle successive sono di colore nero (invece devono rimanere rosso).

  10. #9

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    4885
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1615
    Utile dati
    1020

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Ciao,
    non avevo capito pensavo che volevi colorata solo l'ultima.
    Basta cambiare la riga del colore, cioè questa:

    Codice: 
    Range("B" & Range("B" & Rows.Count).End(xlUp).End(xlUp).Row + 1).Font.ColorIndex = 3
    con questa:

    Codice: 
    Range("B16:B" & Rows.Count).End(xlUp).Font.ColorIndex = 3
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  11. #10
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...no, ancora non funziona.
    Con questa ultima modifica mette il colore rosso nella cella b15 (e le altre nere).
    Quello che voglio io è il colore rosso in tutte le celle che stanno sotto (ovvero dalla b16 alla b35).
    Se però successivamente inserisco altri dati deve cambiare in colore nero le celle interessate dalla macro lasciando sempre quelle sotto in rosso.

  12. #11

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    4885
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1615
    Utile dati
    1020

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Citazione Originariamente Scritto da rioma Visualizza Messaggio
    ...
    Quello che voglio io è il colore rosso in tutte le celle che stanno sotto (ovvero dalla b16 alla b35).
    .....
    Qui mi sa che non ci capiamo, prova cosi, ti posto il codice completo:
    Codice: 
    Sub Corrispettivo()
    Dim uRiga As Long
        With Sheets(1)
            .Range("B2") = Range("B2") + Range("B1")
            .Range("B" & Range("B" & Rows.Count).End(xlUp).End(xlUp).Row + 1).Select
            .Range("B16:B" & Range("B" & Rows.Count).End(xlUp).End(xlUp).Row + 1).Font.ColorIndex = 3
            .Range("B5:B15").Font.ColorIndex = 0
        End With
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  13. I seguenti utenti hanno dato un "Utile"


  14. #12
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Ho modificato il codice e questo è quello che volevo (vedi allegato).
    Altra domanda:
    E' possibile nella cella b3 vedere il dettaglio degli addendi (=1218+2661+1657) anzichè il valore complessivo (5536)?
    In sostanza copiare e accodare ad una serie di numeri il valore contenuto nella cella b1 (1657).
    Questo mi permette di controllare gli intervalli inseriti.
    File Allegati File Allegati

  15. #13

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    4885
    Versione Office
    2011MAC 2016WIN
    Utile ricevuti
    1615
    Utile dati
    1020

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Ammesso che stavolta abbia capito , per la tua ultima richiesta, aggiungi questa riga:
    Codice: 
    Range("B3") = Range("B3") & "+" & Range("B" & Range("B" & Rows.Count).End(xlUp).End(xlUp).Row)
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  16. #14
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ... non è facile farmi capire scrivendo per me che sono nuovo.
    Inoltre ti avevo dato un dato errato: la cella in cui volevo intervenire era b2 e non b3.
    Cerco di rispiegarmi bene con calma:
    _in b2, una volta attivata la macro, voglio aggiungere ai valori già esistenti (=1218+2661) il numero che sta in b1 (1657 che in sostanza è la somma dei valori in rosso)
    _come dicevo prima la cella NON deve presentare il risultato finale (5536) ma tutti i dettagli (=1218+2661+1657).
    Grazie per la pazienza.

  17. #15

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Se ho capito bene:
    Codice: 
    Range("b2").formula= range("b2").FormulaLocal & "+" & range("b1")

  18. I seguenti utenti hanno dato un "Utile"


  19. #16
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...hai capito benissimo. Perfetto.
    Provo bene poi chiudo l'argomento.
    Grazie di tutto e complimenti per la competenza.

  20. #17
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...ho inserito la macro (che funziona perfettamente nel file di esempio) nel mio foglio di lavoro con dati sensibili e mi da un msg di errore debug:
    Da Forum: non funziona
    Range("b2").Formula = Range("b2").FormulaLocal & "+" & Range("b1")
    Incassi: funziona
    Range("b2").Formula = Range("b2").Formula & "+" & Range("b1")
    Qualcuno mi spiega il perche?

  21. #18

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Visto che l'hai provata su un altro file (che noi non abbiamo), dovresti avviare la macro passo-passo con F8 e vedere che tipo di errore da e dove.

  22. #19
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...ecco la sequenza dell'errore nel .jpg https://drive.google.com/open?id=0B6...05laDdmdnlpMFE

  23. #20

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    Re: Macro copia e accoda un valore in una cella con più addendi.

    usa:
    Codice: 
    Range("b2").Formula = Range("b2").Formula & "+" & Range("b1")

  24. #21
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...anche con questa modifica da lo stesso errore.
    Forse perchè nel range ci sono troppi elementi? (vedi allegato)
    https://drive.google.com/open?id=0B6...ndkaDg3T3VuT3c

  25. #22

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Citazione Originariamente Scritto da rioma Visualizza Messaggio
    ...anche con questa modifica da lo stesso errore.
    Forse perchè nel range ci sono troppi elementi? (vedi allegato)
    https://drive.google.com/open?id=0B6...ndkaDg3T3VuT3c
    Non saprei, senza file è difficile trovare l'errore.
    Allega il file senza dati sensibili, con il solo foglio interessato.

  26. #23
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...ecco.
    File Allegati File Allegati

  27. #24
    L'avatar di Anthony
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Ivrea (TO)
    Messaggi
    441
    Versione Office
    2003-2010-2016
    Utile ricevuti
    266
    Utile dati
    36

    Re: Macro copia e accoda un valore in una cella con più addendi.

    Devi usare FormulaLocal, altrimenti quando hai dei decimali la formula risultante va in crisi, se usi il separatore "virgola". Quindi:
    Codice: 
        Range("b2").FormulaLocal = Range("b2").FormulaLocal & "+" & Range("b1")
    Ciao
    Anthony


  28. I seguenti 2 utenti hanno dato un "Utile" a Anthony per questo post:


  29. #25
    L'avatar di rioma
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    San Dona' di Piave
    Messaggi
    50
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    1

    Re: Macro copia e accoda un valore in una cella con più addendi.

    ...corretto. Grazie.
    Ciao
    rioma

Discussioni Simili

  1. Macro cerca valore in un file e copia riga (excel 2010)
    Di SALVO_88 nel forum Domande su Excel VBA e MACRO
    Risposte: 22
    Ultimo Messaggio: 15/05/17, 18:50
  2. [Risolto] Macro accoda dati banca csv
    Di rioma nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 04/02/17, 14:23
  3. Macro Copia contenuto cella di più file su un unico documento
    Di midnight87 nel forum Domande su Excel VBA e MACRO
    Risposte: 31
    Ultimo Messaggio: 28/11/16, 14:07
  4. Macro che mi deve restituire i numeri 29 30 31 + copia formula da cella.
    Di Tony70 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 16/07/16, 17:19
  5. Copia contenuto celle in base a valore di una cella
    Di James nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 04/03/16, 19:42

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •