Risultati da 1 a 5 di 5

Discussione: Colorare celle non in sequenza



  1. #1
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Colorare celle non in sequenza

    Ciao a tutti,
    grazie a Ges, il pulsante salva, "carica" il nome del dipendente in vari fogli di lavoro.
    Vorrei aggiungere un'istruzione che nel foglio "2_Aggiornamenti" oltre a disegnare le righe proveda anche a colore la cella con il colore in testata.
    https://www.dropbox.com/s/7xsy43uh1g...3%29.xlsm?dl=0
    Credo di dover usare ma non capisco dove ( in breve vari tentativi tutti infruttuosi...):
    Codice: 
    .Interior.ColorIndex =
    e i colori dovrebbero essere:
    colonna B = 24
    colonna G = 6

    Grazie in antcipo.
    Gene

    PS La macro quando supera la riga 50 smette di disegnare le righe nel foglio Anagrafica. Ma non trovo nel codice questa "istruzione",così da poterla modificare.

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Colorare celle non in sequenza

    Ciao Gene,
    vai nella parte del codice dove metti le righe a Foglio: 2_Aggiornamenti e aggiungi quella parte in rosso
    Ho messo come colore 3 ( .ColorIndex = 3 - cioè Rosso) scegli tu il colore che vuoi (Colori VBA) ... così impari!


    Codice: 
      
        With wks4 'Foglio: 2_Aggiornamenti
            uRow = .Cells(Rows.Count, 1).End(xlUp).Row  'trova l'ultima cella piena nella colonna A
            For y = 5 To uRow  'ciclo che spazzola dalla riga 5 all'ultima piena
                If .Cells(y, 1) <> "" Then  'se le celle della colonna A sono piene
                    With .Range("A5:AB" & y).Borders  'stabilisce l'intervallo che va dalla cella A5 alla Cella AB (numero di riga ultima cella piena)
                        .LineStyle = xlContinuous  'questa riga prevede l'esistenza del bordo
                        .ColorIndex = 12  'questa riga stabilisce il colore del bordo
                        .Weight = 2  'questa riga stabilisce lo spessore del bordo (1 è il più piccolo)
                      End With
                  With .Range("A5:AB" & y).Interior
                      .ColorIndex = 3
                 End With
                End If
            Next
        End With
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Colorare celle non in sequenza

    Con l'istruzione sopra forse ti posso aver confuso, perchè With dovresti usarlo du volte quindi ti vengo incontro, nel tuo caso ti servirebbero queste:
    Codice: 
    With wks4 'Foglio: 2_Aggiornamenti
            uRow = .Cells(Rows.Count, 1).End(xlUp).Row  'trova l'ultima cella piena nella colonna A
            For y = 5 To uRow  'ciclo che spazzola dalla riga 5 all'ultima piena
                If .Cells(y, 1) <> "" Then  'se le celle della colonna A sono piene
                    With .Range("A5:AB" & y).Borders  'stabilisce l'intervallo che va dalla cella A5 alla Cella AB (numero di riga ultima cella piena)
                        .LineStyle = xlContinuous  'questa riga prevede l'esistenza del bordo
                        .ColorIndex = 12  'questa riga stabilisce il colore del bordo
                        .Weight = 2  'questa riga stabilisce lo spessore del bordo (1 è il più piccolo)
                    End With
                    .Range("B" & y).Interior.ColorIndex = 24
                    .Range("G" & y).Interior.ColorIndex = 6
               End If
            Next
        End With
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186

    Re: Colorare celle non in sequenza

    Ciao Ges,
    confermo che mi avevi confuso

    Hai un'idea anche sull'anomalia segnalata nel mio PS?

    Gene

    [EDIT] Integrazione funziona alla grande. Domani la riporto nel file master.
    Grazie

  5. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Colorare celle non in sequenza

    Ciao Gene,
    immaginavo che forse non ti sarebbe stato chiaro ... ti ho risposto sopra!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

Discussioni Simili

  1. Colorare celle con duplicati col vba
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 30/11/17, 13:02
  2. colorare celle in base ad un intervallo di date
    Di open.mind nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 13/02/17, 15:23
  3. Colorare Celle
    Di Edoardo89 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 13/12/16, 17:05
  4. Colorare Sfondo Range di Celle con VBA
    Di Tullio17 nel forum Domande su Excel VBA e MACRO
    Risposte: 23
    Ultimo Messaggio: 12/12/16, 17:47
  5. Colorare piu' celle con un range di numeri
    Di daigoro7 nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 05/10/15, 14:16

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
  •