Macro colora valori

[tony61]

Ciao a tutti


il problema che non riesco a risolvere e questo

in CW-2 FINO A ET-500 ho 20 colonne con delle formule
se aggiungo la formatt.. condiz...si appesantisce il processo
e mi da errore
(selezione troppo estesa)

avrei bisogno una macro che posso attivarla io dopo aver attivato
un processo di aggiornamento dati ,
fatto questo la macro che cerco deve solo colorare in rosso
le celle con i numeri presenti in 2 celle(stessa riga A-B esem..) come nell'esempio tipo
A3-b3 ci sono presenti 2 valori

71 #N/D
#N/D #N/D
#N/D #N/D
#N/D #N/D
#N/D #N/D
#N/D #N/D
#N/D #N/D
#N/D #N/D
#N/D 81
#N/D #N/D
5 --53

se si può fare per una coppia di colonne poi le restanti le modifico io
la prima coppia di colonne è
CW2 ....CW500
CX2....CX500

in queste due colonne deve solo colorare
le coppie di numeri presenti nella stessa riga come da esempio
colonna cw2--cx2- cx500 --cx500

71 #N/D
#N/D 81
5 --53

la macro la faccio partire in sequenza dopo la mia
cosi non dovrebbero crearsi problemi di (selezione troppo estesa)

spero di essermi spiegato correttamente

grazie ciao

[Anthony47]

Questa lavora sulle colonne K e successiva (L):

Codice: Seleziona tutto

For Each Cell In Range("K2:K500")
If IsNumeric(Cell.Value) And IsNumeric(Cell.Offset(0, 1).Value) Then
    Cell.Range("A1:B1").Font.Color = RGB(255, 0, 0)
    Else: Cell.Range("A1:B1").Font.Color = RGB(0, 0, 0)
End If
Next Cell


Ciao

[tony61]

Grazie mile la provo subito