Condividi:        

colorare cella se..

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

colorare cella se..

Postdi raimea » 06/01/12 19:24

buona sera
ho 2 colonne, la col. C dove tutte le celle contengono dei nomi
poi col D solo alcune celle contengono nomi.
avrei la necessita di colorare le celle di col C solo SE anche la col D stessa riga contiene un nome.
questo non lo posso fare con la formattaz condiz. x vari problemi che non vi annoio a raccontare.
il controllo dovrebbe partire dalla riga 2
grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: colorare cella se..

Postdi Anthony47 » 06/01/12 21:17

Prova questo codce
Codice: Seleziona tutto
Sub raicol()
With Sheets("Foglio3")    '<< Il tuo foglio
    .Range("C:C").Interior.ColorIndex = xlNone
    For I = 2 To .Cells(Rows.Count, 4).End(xlUp).Row
    If .Cells(I, 4) <> "" Then .Cells(I, 3).Interior.ColorIndex = 4   '<<il tuo colore
    Next I
End With
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

colorare cella se..

Postdi raimea » 07/01/12 07:03

perfetto,
tutto ok
grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare cella se..

Postdi raimea » 10/11/13 22:15

ciao
tramite pulsane, vorrei colorare di rosso
i numeri contenuti in un range
andandoli a cercare in un numero di estrazione che specifico io.

in FP13 scrivo il num di estrazione in archivio, dove cercare ,
i num da considerare sono tutti e 7 di quell'estrazione,

quindi colorare i numeri uguali nel range FX8:FY27

provo ad allegare il file.

vi ringrazio

https://db.tt/A38IF3If
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare cella se..

Postdi Anthony47 » 11/11/13 03:34

Codice: Seleziona tutto
Sub rossozz()
Dim myRan As String, Estraz As String, myMatch, myEstraz, Numr As Range
'
myRan = "FX8:FY27"
Estraz = "FP13"

Sheets("Ambi_primo").Select
myMatch = Application.Match(Range(Estraz).Value, Sheets("Archivio_UK49s").Range("A:A"))
If Not IsError(myMatch) Then
    Range(myRan).Interior.ColorIndex = xlNone
    Set myEstraz = Sheets("Archivio_UK49s").Cells(myMatch, 3).Resize(1, 7)
    For Each Numr In Range(myRan)
        If Application.WorksheetFunction.CountIf((myEstraz), Numr.Value) > 0 Then
            Numr.Interior.Color = RGB(255, 0, 0)
        End If
    Next Numr
End If
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: colorare cella se..

Postdi raimea » 11/11/13 07:20

ciao :D
tutto ok
grazie mille
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "colorare cella se..":


Chi c’è in linea

Visitano il forum: Marius44 e 54 ospiti