Risultati da 1 a 14 di 14

Discussione: colorazione automatica



  1. #1
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1168
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    colorazione automatica

    buongiorno a tutti nel file che ho costruito voglio colorare di rosso la coppia di celle (B-C) e (D-E) di rosso e in automatico deve diventare rossa la cella sulla stessa riga della colonna F nel caso di (B-C) e la cella della colonna G nel caso di (D-E) e colorate entrambe nel caso coloro tutte e due le coppie....che poi verranno sommate con una macro trovata su internet nella colonna I IL TUTTO PER TUTTO IL FOGLIO DI LAVORO.....il file funziona perché se coloro manualmente le celle su F o G il risultato si ottiene ma vorrei riuscire a farlo anche in questo modo.....con le formule mi districo bene ma con VBA sono alle prime armi......grazie a tutti coloro che proveranno a darmi una risposta....DANILO
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    977
    In quale caso le coppi di colonne (B-C) e (D-E) vengono colorate di rosso? nel caso in cui inserisci un orario?
    Se è cosi inserisci nel Modulo di Classe del foglio "Inserimento ore"
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 2, 3
            If Target > 0 Then
                Cells(Target.Row, 6).Interior.Color = 255
            Else
                Cells(Target.Row, 6).Interior.Color = 0
            End If
        Case 4, 5
            If Target > 0 Then
                Cells(Target.Row, 7).Interior.Color = 255
            Else
                Cells(Target.Row, 7).Interior.Color = 0
            End If
    End Select
    End Sub

  3. #3
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1168
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570
    si le coloro per evidenziare quando uno dei due turni o tutti e due vengono fatti in regia.........l ho inserita ma non succede nulla....

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    977
    Ecco il file con le modifiche:
    File Allegati File Allegati

  5. #5
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1168
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570
    grazie......ma come l hai modificato basta che scrivo un orario su B o C le celle su colonna f e g diventano rosse io intendevo farle colorare solo quando evidenzio la coppia MANUALMENTE PERCHE QUESTO E UN CONTAMANCE E GLI ORARI DELLA REGIA LI CONTEGGIO A PARTE PER CAPIRE.... SE SUL FILE ORIGINALE COLORI MANUALMENTE LA CELLA SU COLONNA F O G (CHE E' IL RISULTATO DI (B MENO C) IL RISULTATO SI OTTIENE (DIVIDE LE MANCE DELLA REGIA DALLE MANCE TOTALI) vorrei che le celle sulle colonne F o G SI COLORASSERO SOLO QUANDO EVIDENZIO MANUALMENTE UNA COPPIA DI CELLE......

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    977
    Prova a dare un occhiata a questo post Cambio colore cella di qualche giorno fa in cui @Scossa ha dato una soluzione.

    P.S. Scrivere in MAIUSCOLO equivale ad urlare!!!

  7. #7

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6749
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162
    Ciao Rubik

    Occorre però che Scossa ci spieghi come funziona il suo file perché, almeno io, non l'ho capito.

    Alfredo

  8. #8

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao Rubik

    Occorre però che Scossa ci spieghi come funziona il suo file perché, almeno io, non l'ho capito.

    Alfredo
    Ciao,

    se intendi dal lato "pratico" è semplice: tu cambi manualmente il colore di riempimento della cella A1 e la cella B1 prenderà lo stesso colore di riempimento.

    Se, invece, intendi il codice, datemi tempo e vedrò di adattarlo a questa richiesta.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  9. #9

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6749
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162
    In verità è la prima cosa che ho fatto ma non è successo nulla.

    Eventualmente riprovo.

    Per quanto riguarda il codice non ti dar pena; se riesci va bene altrimenti non fa nulla.

    Alfredo

  10. #10
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    809
    Versione Office
    2016 64bit
    Likes ricevuti
    142
    Likes dati
    52
    Oddio, un cross-post: http://freeforumzone.leonardo.it/d/1...scussione.aspx
    Questa comunque è la macro che ho postato in quell'altro forum:
    Codice: 
    Option Explicit
    Public Riga As Long  'ricorda posizione precedente click
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
       If Riga = 0 Then Riga = 4                       'inizializza la prima riga, la riga 0 non esiste
        'verifica se entrambe le celle di colonna B e C sono rosse
       If Range("B" & Riga).Interior.ColorIndex = 3 And Range("C" & Riga).Interior.ColorIndex = 3 Then
          Range("F" & Riga).Interior.ColorIndex = 3    'se sì metti =rosso la cella in colonna F
       Else                                            'altrimenti
          Range("F" & Riga).Interior.ColorIndex = 1    '=nero
       End If
        'verifica se entrambe le celle di colonna D e E sono rosse
       If Range("D" & Riga).Interior.ColorIndex = 3 And Range("E" & Riga).Interior.ColorIndex = 3 Then
          Range("G" & Riga).Interior.ColorIndex = 3    'se sì metti =rosso la cella in colonna G
       Else                                            'altrimenti
          Range("G" & Riga).Interior.ColorIndex = 1    '=nero
       End If
       Riga = Target.Row                               'memorizza la nuova posizione
       Worksheets("Inserimento ore").Calculate         'ricalcola le formule (x colonna I)
    
    End Sub

  11. #11

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0
    Ecco il file modificato:
    File Allegati File Allegati
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  12. #12

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    In verità è la prima cosa che ho fatto ma non è successo nulla.
    Mah, io l'ho provato sia con Excel 2003 che con il 2010 e funziona con entrambi, col 2007 non l'ho provato.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  13. #13

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6749
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162
    Perdonami Marco ho riprovato e funziona perfettamente (chissà a cosa stavo pensando prima).

    Ora non rimane altro che studiare il codice (che poi alla fine sono 4 righe ma incomprensibili almeno per me).

    Grazie

    Alfredo

  14. #14
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1168
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570
    grazie a tutti quelli che si sono interessati al mio file.....risolto alla perfezione da sossa....era quello che volevo ottenere.....
    p.s. non sapevo che scrivere maiuscolo equivale ad urlare......mea culpa.....danilo

Discussioni Simili

  1. Sottrazione automatica
    Di MAVERICKFLY nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 25/04/17, 00:19
  2. VBA Colorazione righe condizionata a valori testuali da colonna
    Di capibomb nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 11/02/17, 03:32
  3. Colorazione Celle
    Di Edoardo89 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 14/12/16, 00:42
  4. Correzione automatica e colorazione celle
    Di ceccio17 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 25/08/16, 22:10
  5. compilazione automatica
    Di cicciopuzzo nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 05/02/16, 15:12

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
  •