Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

controllo righe colorate

Ultimo Aggiornamento: 30/09/2021 17:18
Post: 109
Registrato il: 20/02/2015
Età: 50
Utente Junior
2007 / 2010
OFFLINE
29/09/2021 21:26

salve a tutti,
esiste un modo per far uscire il risultato come FALSO se le righe nell' intervallo indicato non sono verdi ?

ad es. se controllo da E2:M5,
voglio che in N2 mi esca Falso se la riga E2:M2 non è verde
voglio che in N3 mi esca Falso se la riga E3:M3 non è verde
voglio che in N4 mi esca Falso se la riga E4:M4 non è verde
voglio che in N5 mi esca Falso se la riga E5:M5 non è verde

spero sia chiaro
Post: 2.445
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
29/09/2021 21:33

ciao
come le colori le righe?
a mano o con formattazione condzionale
Post: 109
Registrato il: 20/02/2015
Età: 50
Utente Junior
2007 / 2010
OFFLINE
30/09/2021 09:08

Re:
federico460, 29/09/2021 21:33:

ciao
come le colori le righe?
a mano o con formattazione condzionale


manualmente

Post: 2.446
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
30/09/2021 12:30

ciao
un sistema sarebbe
in un modulo

Function CountCcolor(range_data As Range, criteria As Range) As Long


Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax

End Function



la formula
=SE(CountCcolor($A2;$F$1)>0;"")

ma ha il problema del ricalcolo

ma avrai un logica da mettere in formula per colorare la riga
Post: 1.438
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
30/09/2021 15:41

ciao a tutti [SM=g27811]
ed un saluto a Federico [SM=g27823]
del quale non ho testato la Function, ma non ho dubbi che funzioni.


vb
Private Sub Worksheet_Change(ByVal Target As Range)

'By tanimon

Dim frange As Range, frange1 As Range
Dim fcella As Range
Dim COL As Integer

Set frange = Range("e2:m5")

    If Not Intersect(Target, frange) Is Nothing Then
        Set frange1 = Range("e" & Target.Row & ":" & "m" & Target.Row)
        
'=================================================================================
'''' 4 è il codice ColorIndex per il VERDE


'''                   ***************FAI ATTENZIONE:****************


' ESISTONO DIVERSE SFUMATURE DI VERDE, E QUINDI DIVERSI CODICI PER OGNI VERDE!!!

'            COL = Target.Interior.ColorIndex          imposta la variabile COL al codice colore dello sfondo
' della cella selezionata
            
'            MsgBox COL                                indovina cosa fa???
'
'==================================================================================
            
       
        For Each fcella In frange1

            
            If fcella.Interior.ColorIndex <> 4 Then
               Cells(Target.Row, "n").Value = "FALSO"
            End If
            
        Next fcella
        
    End If

Set frange = Nothing
Set frange1 = Nothing

End Sub








Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 110
Registrato il: 20/02/2015
Età: 50
Utente Junior
2007 / 2010
OFFLINE
30/09/2021 16:09

Re:
tanimon, 30/09/2021 15:41:

ciao a tutti [SM=g27811]
ed un saluto a Federico [SM=g27823]
del quale non ho testato la Function, ma non ho dubbi che funzioni.


vb
Private Sub Worksheet_Change(ByVal Target As Range)

'By tanimon

Dim frange As Range, frange1 As Range
Dim fcella As Range
Dim COL As Integer

Set frange = Range("e2:m5")

    If Not Intersect(Target, frange) Is Nothing Then
        Set frange1 = Range("e" & Target.Row & ":" & "m" & Target.Row)
        
'=================================================================================
'''' 4 è il codice ColorIndex per il VERDE


'''                   ***************FAI ATTENZIONE:****************


' ESISTONO DIVERSE SFUMATURE DI VERDE, E QUINDI DIVERSI CODICI PER OGNI VERDE!!!

'            COL = Target.Interior.ColorIndex          imposta la variabile COL al codice colore dello sfondo
' della cella selezionata
            
'            MsgBox COL                                indovina cosa fa???
'
'==================================================================================
            
       
        For Each fcella In frange1

            
            If fcella.Interior.ColorIndex <> 4 Then
               Cells(Target.Row, "n").Value = "FALSO"
            End If
            
        Next fcella
        
    End If

Set frange = Nothing
Set frange1 = Nothing

End Sub



dopo testo tutto, sono passato solo un attimo in ufficio per allegare il file, come giustamente suggerivi


Post: 1.439
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
30/09/2021 16:19

caro Massimo,
alla data odierna hai 110 post, non hai allegato un file al momento della richiesta,
ed ora che hai due proposte di soluzione, ne alleghi uno difforme alla richiesta iniziale???????? [SM=g27812]



[SM=g27833] [SM=g27833] [SM=g27833] [SM=g27833] [SM=g27833]

Buona serata
[Modificato da tanimon 30/09/2021 16:20]







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 111
Registrato il: 20/02/2015
Età: 50
Utente Junior
2007 / 2010
OFFLINE
30/09/2021 16:26

Re:
tanimon, 30/09/2021 16:19:

caro Massimo,
alla data odierna hai 110 post, non hai allegato un file al momento della richiesta,
ed ora che hai due proposte di soluzione, ne alleghi uno difforme alla richiesta iniziale???????? [SM=g27812]



[SM=g27833] [SM=g27833] [SM=g27833] [SM=g27833] [SM=g27833]

Buona serata


Perdonate la mia ignoranza e grazie per la disponibilità.
Potete lasciare stare il quesito, pensavo di averlo semplificato, non volevo farvi perdere tempo.


Post: 1.440
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
30/09/2021 16:30

Re: Re:
mapero, 30/09/2021 16:26:


Perdonate la mia ignoranza e grazie per la disponibilità.
Potete lasciare stare il quesito, pensavo di averlo semplificato, non volevo farvi perdere tempo.




o forse,

avendo ottenuto la soluzione che cercavi,

vuoi solo salvare la "faccia"????

Io del tempo l'ho perso COMUNQUE!!!!!
[Modificato da tanimon 30/09/2021 16:31]







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 2.447
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
30/09/2021 16:33

L'unica variante
è la formula
=CountCcolor(A2:L2;$A$1)

ma ripeto non intercetta il cambio colore

ma quei numeri li metti caso o hanno una logica
Post: 1.441
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
30/09/2021 16:40

Ciao Federico,
sei un "inguaribile" ottimista!!!

quando ti risponderà ti creerà un nuovo problema ed un aggiornamento al suo file che TU, al posto SUO,
andrai a sistemargli.

Ovviamente libero di fare come credi,
ma penso che ci vorrebbe un pò di buon senso anche da parte dei "richiedenti aiuto"

ciao
Frank







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 112
Registrato il: 20/02/2015
Età: 50
Utente Junior
2007 / 2010
OFFLINE
30/09/2021 17:07

Re:
federico460, 30/09/2021 16:33:

L'unica variante
è la formula
=CountCcolor(A2:L2;$A$1)

ma ripeto non intercetta il cambio colore
ma quei numeri li metti caso o hanno una logica



i numeri sono solo per fare un esempio

tanimon, 30/09/2021 16:30:


o forse,
avendo ottenuto la soluzione che cercavi,
vuoi solo salvare la "faccia"????
Io del tempo l'ho perso COMUNQUE!!!!!


credo che tu stia andando pò oltre...



[Modificato da mapero 30/09/2021 17:08]
Post: 1.442
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
30/09/2021 17:18

Re: Re:

tanimon, 30/09/2021 16:30:


o forse,
avendo ottenuto la soluzione che cercavi,
vuoi solo salvare la "faccia"????
Io del tempo l'ho perso COMUNQUE!!!!!


credo che tu stia andando pò oltre...







per quanto mi riguarda,
tu sei andato oltre prima di questa tua risposta.

chi ha tempo e voglia lo può verificare facendo una ricerca sul forum per i tuoi precedenti interventi, e vedere quale comportamento
mantieni normalmente circa il "buon senso" di un Forum.

Mi spiace solo per il tempo perso....

Addio










Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Vota: 15MediaObject5,00213 2
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:25. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com