| | 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 | |
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
ed un saluto a Federico
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 | |
tanimon, 30/09/2021 15:41:
ciao a tutti
ed un saluto a Federico
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????????
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 | |
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????????
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 | |
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 | |
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 | |
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... |
|
|