Risultati da 1 a 18 di 18

Discussione: Righe Colorate



  1. #1
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Righe Colorate

    Ciao a tutti...
    Vi scrivo perché avrei bisogno di piccolo aiutino.
    Mi servirebbe una macro che inserisca una riga in una tabella sotto l'ultima riga che contenga i dati.
    Inoltre le nuove righe inserite dovranno avere un colore di riempimento a seconda se hanno un numero progressivo pari o dispari.
    Grazie a Tutti...
    CIAO

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da nazzy Visualizza Messaggio
    Ciao a tutti...
    Vi scrivo perché avrei bisogno di piccolo aiutino.
    Mi servirebbe una macro che inserisca una riga in una tabella sotto l'ultima riga che contenga i dati.
    Inoltre le nuove righe inserite dovranno avere un colore di riempimento a seconda se hanno un numero progressivo pari o dispari.
    Grazie a Tutti...
    CIAO
    Ciao nazzy prova a vedere questa.

    Codice: 
    Sub AggiungiRiga()    
    Dim uriga As Long
    
    
    uriga = Range("P" & Rows.Count).End(xlUp).Row
    
    
    Range("P" & uriga).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Range("P1").Select
    
    
    End Sub
    per quanto riguarda il colore, se è una tabella viene da sola la colorazione alternata.

    Ciao.

    P.S.
    Naturalmente la colonna P (quella da me usata) varia a seconda di dove si trova la tua tabella.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    Buona Sera e grazie per la risposta Baloon_50
    Ho provato il codice e mi da questo messaggio: "Variabile oggetto o variabile del blocco With non impostata".


    Per il colore mi sono spiegato male. i dati che inserisco sono direttamente nelle celle del foglio...

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da nazzy Visualizza Messaggio
    Buona Sera e grazie per la risposta Baloon_50
    Ho provato il codice e mi da questo messaggio: "Variabile oggetto o variabile del blocco With non impostata".
    Per il colore mi sono spiegato male. i dati che inserisco sono direttamente nelle celle del foglio...
    Ciao nazzy ma tu hai la tabella o l'hai creata?
    perchè il presupposto iniziale era avere una tabella

    Prova ad allegarmi un file in maniera tale che non ci siano equivoci magari scrivendo cos'è che vuoi ottenere

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Ti allego un file di esempio.

    ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    Ciao ecco il file.
    La mia intenzione è quella di aggiungere una riga sotto l'ultima riga che contiene i dati formattata a secondo che il numero successivo sia pari o dispari.
    Buona Notte e grazie tante.
    File Allegati File Allegati

  7. #7
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    @Nazzy
    il tuo nickname non va bene per motivi ben noti, se non mi dici che nome alternativo vuoi, verrai rimosso dal forum
    grazie

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da nazzy Visualizza Messaggio
    Ciao ecco il file.
    La mia intenzione è quella di aggiungere una riga sotto l'ultima riga che contiene i dati formattata a secondo che il numero successivo sia pari o dispari.
    Buona Notte e grazie tante.
    Ciao Nazzy (cambia il nick altrimenti verrai bannato)

    guarda se ti va bene (per il colore devi cambiare il numero nella riga segnata in rosso

    Codice: 
    Sub AggiungiRiga()
    
    Dim uriga As Long
    
    
    uriga = Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
    If uriga Mod (2) = 0 Then
        Range("A" & uriga & ":BN" & uriga).Interior.ColorIndex = 3
    End If
    
    
    End Sub
    Ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    Grazie per la puntualizzazione... Giancarlo
    ho dato un rapida occhiata per modificarlo ma non ci sono riuscito.
    Come si fa!?

  10. #10
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Citazione Originariamente Scritto da nazzy Visualizza Messaggio
    Grazie per la puntualizzazione... Giancarlo
    ho dato un rapida occhiata per modificarlo ma non ci sono riuscito.
    Come si fa!?
    @Nazzy
    scrivimi che nome vuoi e poi ci penso io a cambiarlo poi in questo forum è obbligatorio una imagine in ultimo ti consiglio di leggere bene il regolamento del forum per non incorrere in altri richiami
    un saluto

  11. #11
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Giancarlo...
    e possibile avere il nome dell'email: "wildstar".
    cioa

  12. #12
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Ok fatto
    Buon proseguimento!

  13. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da wildstar Visualizza Messaggio
    Ciao Giancarlo...
    e possibile avere il nome dell'email: "wildstar".
    cioa
    ciao, hai risolto il problema delle righe come ti ho proposto io?
    Se sì dovresti mettere questa discussione come [RISOLTO]

    Vai nella barra dei menu, situata all'inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegli “Segna questo Thread come risolto”

    ciao.

    P.S.
    Giancarlo non esiste l'admin del forum si chiama Gerardo. :242:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  14. #14
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Baloon_50...
    L'ho provata ieri sera e funziona benissimo, quello che volevo.
    Continuando a lavorare sul progetto adesso ho la necessita oltre a colorare le righe anche di copiare le formule che si trovano nella riga.
    Esempio: le formule che si trovano nella riga 10 vengano copiate nella riga sotto. Grazie




    Ciao Giancarlo...
    e grazie per l'aiuto.

  15. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da wildstar Visualizza Messaggio
    Ciao Baloon_50...
    L'ho provata ieri sera e funziona benissimo, quello che volevo.
    Continuando a lavorare sul progetto adesso ho la necessita oltre a colorare le righe anche di copiare le formule che si trovano nella riga.
    Esempio: le formule che si trovano nella riga 10 vengano copiate nella riga sotto. Grazie

    Ciao Giancarlo...
    e grazie per l'aiuto.
    Ciao wildstar, ho fatto una simulazione e va tutto bene.

    Provalo e dimmi se è ok.

    Ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #16
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Questo è il file giusto.
    Avevo dimenticato di copiare le formule per riga bianca.
    Codice: 
    Sub AggiungiRiga()
    
    Dim uriga As Long
    
    
    uriga = Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
    If uriga Mod (2) = 0 Then
        Range("A" & uriga & ":BN" & uriga).Interior.ColorIndex = 3
        Rows((uriga - 1) & ":" & (uriga - 1)).Select
        Selection.Copy
        Rows(uriga & ":" & uriga).Select
        Selection.PasteSpecial Paste:=xlPasteFormulas
        Range("A" & uriga).Select
        ActiveCell = ""
        Application.CutCopyMode = False
    Else
        Rows((uriga - 1) & ":" & (uriga - 1)).Select
        Selection.Copy
        Rows(uriga & ":" & uriga).Select
        Selection.PasteSpecial Paste:=xlPasteFormulas
        Range("A" & uriga).Select
        ActiveCell = ""
        Application.CutCopyMode = False
        
    End If
    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 22/02/16 alle 18:49 Motivo: codice VBA mancante

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  17. #17
    L'avatar di wildstar
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Catanzaro
    Età
    41
    Messaggi
    18
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    Grazie di tutto....
    RISOLTO

  18. #18
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Ciao wild star
    e se la tua domanda è stata risolta segna questa discussione come [RISOLTO]
    Vai nella barra dei menu, situata all’inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegliere “Segna questo Thread come risolto”
    e torna quando vuoi!

Discussioni Simili

  1. Contare celle colorate con formattazione condizionale
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 15/08/16, 12:02
  2. come eliminare righe vuote, tra righe di testo in una pagina excel
    Di francesco71 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 08/05/16, 14:13
  3. Conta celle colorate con formattazione condizionale
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 08/01/16, 20:36
  4. Conta celle colorate
    Di Gianfranco55 nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 07/01/16, 12:11
  5. Contare celle colorate
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 05/01/16, 22:44

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
  •