Come Ottenere lo stesso risultato senza sfruttare il termine Target in VBA

[A.MaurizioPartecipante A.Maurizio]

Ciao a tutti mi chiamo Maurizio e il mio problema e questo .
Provando e Riprovando sono  riuscito a trovare una soluzione ad un mio problema hrazie anche ad un vostro piccolo aiuto.

Devo dire che la cosa funziona benissimo , però mi stavo chiedendo arrivati a questo punto , se non fosse possibile ottenere la stessa cosa ; Senza essere strettamente legati al Fatitico (Target / Intercet).

Il Listato e questo :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim uF&, i&

If Not Intersect(Target, Range("I1:R51")) Is Nothing Then
uF = Range("B" & Rows.Count).End(xlUp).Row

For i = 3 To uF

If Cells(i, 2) >= Target - 1 And Cells(i, 2) <= Target Then

Target.Interior.Color = RGB(192, 0, 0)
Target.Font.Color = RGB(255, 255, 255)

Else

Target.Interior.Color = RGB(204, 255, 255)
Target.Font.Color = RGB(0, 0, 0)

End If
Next i
End If
End Sub

Tutto qui !
Attendo vostre delicidazioni in merito grazie
Saluti da Maurizio

Allegati:

You must be logged in to view attached files.

[A.MaurizioPartecipante A.Maurizio]

Ciao a tutti ; Eccomi di nuovo qui !
Credetemi non lo fatto Apposta a proporvi questa Domanda

Ma come per intuito ho voluto provare una variante che conoscevo giù ; E adesso funziona a meraviglia.

La mia Variante al tema e Questa :

Sub Evidenzia_Cella_Matrice()
On Error GoTo 1
For Each A In Range("D1:M26")
If Application.CountIf(Range("B3:B29"), A) >= 1 Then 
A.Interior.Color = RGB (204,255,255)
A.Font.Color = RGB (0,0,0)
Next
1:
End Sub

E Questo e quanto ho fatto.
Vi prego di scusarmi per aver inserito una domanda poi ritrattata.
Saluti Sinceri da Maurizio

[Autore]

Articoli