colorare parola o numeri nella stessa cella

[Flash30005]

MI è bastato dare un'occhiata ai tuoi dati per capire che, come sempre, ti piace cambiare le "carte in tavola" (anche involontariamente)
Adesso per "punizione" ti dico che la macro funziona bene ma fai un'analisi del (tuo) problema prova a mettere da 55 a 58 (invece che 61) lasciando il range da 3 a 9 e vedrai che colorerà tutti i 9 che incontrerà

Perché?
Rifletti e troverai l'inghippo (o "pastrocchio" che hai fatto con i dati)

Ciao

[raimea]

ciao
con questo pezzo di macro coloro correttamente lo sfondo, delle celle che rispettano determinate condizioni

Codice: Seleziona tutto

For RRs = 50 To 50 Step 1      '<< le righe dove sono scritti i num
    For CCS = 6 To 11          '<< sono le colonne dove sono scritti i num
        NumS = Worksheets("genn.13").Cells(RRs, CCS).Value
        For RRT = 5 To 30      '<< righe con i num da color
            For CCT = 6 To 106 ' << col con i num da colorare
                If Worksheets("genn.13").Cells(RRT, CCT).Value = NumS Then Worksheets("genn.13").Cells(RRT, CCT).Interior.ColorIndex = 15 'grigio
            Next CCT
        Next RRT
    Next CCS
Next RRs

rispettando tutte stesse condizioni, vorrei aggiungere il poter decidere io , anche il colore del carattere, oltre che lo sfondo ..
ringrazio in anticipo
buon estate....

[Flash30005]

Puoi fare così

Codice: Seleziona tutto

Sub Provaraimea()
'For RRs = 50 To 50 Step 1      '<< <<<<<<<<<<<<<<<< questo codice non serve
    For CCS = 6 To 11          '<< sono le colonne dove sono scritti i num
        NumS = Worksheets("genn.13").Cells(50, CCS).Value
        For RRT = 5 To 30      '<< righe con i num da color
            For CCT = 6 To 106 ' << col con i num da colorare
                If Worksheets("genn.13").Cells(RRT, CCT).Value = NumS Then
                Worksheets("genn.13").Cells(RRT, CCT).Interior.ColorIndex = 15 'grigio
                Worksheets("genn.13").Cells(RRT, CCT).Font.ColorIndex = 5  'blu
                End If
            Next CCT
        Next RRT
    Next CCS
'Next RRs
End Sub

Ho annotato una riga (Il for next RRs) che non serve

ciao

[raimea]

tutto ok
ho fatto anche la correzione segnalata
grazie