Modifica riga in colonne

[Statix]

Ciao a tutti,ho problemi a modificare questa macro che evidenzia gli ambi in riga,
vorrei evidenziarli per colonna.

Codice: Seleziona tutto

Sub A_riga()
 Application.ScreenUpdating = False
RComp = "DM22:DV22"
LastR = Cells(Rows.Count, 2).End(xlUp).Row
Range("B10:CM27").Font.ColorIndex = 1
For k = 1 To 6    '<<<< N° di righe da confrontare
ICOL = 2 + k
Range(RComp).Offset(k - 1, 0).Range("A1").Font.ColorIndex = ICOL
For I = 10 To LastR
    KK = 0
    For J = 2 To 16
        KK = KK + Application.WorksheetFunction.CountIf(Range(RComp).Offset(k - 1, 0), Cells(I, J))
    Next J
    If KK > 1 Then
        For J = 2 To 16
        If Application.WorksheetFunction.CountIf(Range(RComp).Offset(k - 1, 0), Cells(I, J)) > 0 Then _
            Cells(I, J).Interior.ColorIndex = ICOL
        Next J
    End If
Next I
Next k

End Sub

[Anthony47]

Forse e' meglio (per noi) se ci dai i nuovi termini del problema invece di doverli desumere dal reverse engineering della macro e dalle tue scarne informazioni.

Ciao

[Statix]

va bene,
faccio un esempio
ho 5 colonne per 18 righe
CN10:CR27
per ogni colonna devo evidenziare
lo sfondo dei numeri che sono uguali a quelli che ho in una riga DM20:EA20 (15 numeri)
ma evidenziandoli partendo da almeno 2 numeri,questo per ogni colonna con un colore diverso

[Anthony47]

Quindi l' importante e' che il numero sia almeno duplicato nell' intera tabella (es il "2" della prima colonna fa coppia col "2" nella terza); giusto?

Ciao

[Anthony47]

NO, sbagliato...
pero' lo stesso non ho capito perche' va evidenziato (ad esempio) il "2" della prima colonna.

Ciao

[Statix]

nella colonna vanno evidenziati tutti i numeri duplicati e non,
che sono uguali al range(DM20:AE20)
in questo caso sono da 1 a 15,
questo va fatto per ogni colonna con un colore diverso,
i numeri da evidenziare devono essere almeno due o più,(singola colonna)

[Anthony47]

Se ho capito bene:

Codice: Seleziona tutto

Sub confr()
RComp = "BY3:CR3"   '<<<< i numeri del confronto
TabD = "CN10:CR27"  '<<<< la tabella in cui si confronta
'
Range(TabD).Interior.ColorIndex = xlNone
TabTL = Range(TabD).Range("A1").Address
For CC = 1 To Range(TabD).Columns.Count
    ICOL = CC + 2: KK = 0
    For RR = 1 To Range(TabD).Rows.Count
        KK = KK + Application.WorksheetFunction.CountIf(Range(RComp), Range(TabTL).Offset(RR - 1, CC - 1))
    Next RR
    If KK > 1 Then
        For RR = 1 To Range(TabD).Rows.Count
            If Application.WorksheetFunction.CountIf(Range(RComp), Range(TabTL).Offset(RR - 1, CC - 1)) > 0 Then _
            Range(TabTL).Offset(RR - 1, CC - 1).Interior.ColorIndex = ICOL
        Next RR
    End If
Next CC
End Sub


Sistema i valori nelle istruzioni marcate <<<

Ciao

[Statix]

Ciao Anthony47,
provato,c'è qualcosa che non va,mi prende anche i numeri che non appartengono al range di confronto,
DM20:AE20
il range della tabella è giusto.

[Anthony47]

Prova a scrivere AE20:DM20...

Ciao

[Statix]

ho preso una svista,confuso EA con AE
quello giusto
DM20:EA20
tutto ok.
grazie