mettere cornice a unica cella particolare

[raimea]

ciao
tramite macro , nel fgl punteggiXgg,

vorrei riuscire a identificare una particolare cella
e metterle una cornice rossa grande
SENZA modificarne lo sfondo.

nel range F14:N
vorrei controllare ogni RIGA
e trovare per ogni riga, l UNICA cella
il cui valore e aumentato (indip. di quanto), rispetto
alla cella precedente di stessa colonna

a tale unica cella, vorrei venisse applicata una
grande cornice rossa

ES: nel file allegato tali celle
sono : G36 _ G42 _ i45 _ H51

vi allego il file

https://www.dropbox.com/scl/fi/bhipnadgg5mrz9swreus6/unica_cella.xlsm?rlkey=fgy42rio7wvxhqraxpo6dq0as&st=sdsrfxpe&dl=0

ciao

[Anthony47]

Ho faticato parecchio a decodificare la richiesta, che mi sono riformulata come segue:
-Esaminando le colonne F:N da riga 15 in avanti, laddove 1 sola cella della riga in esame e' superiore alla cella della riga precedente allora evidenziare con il bordo rosso spesso tale cella

Tradotto in codice:

Codice: Seleziona tutto

Sub EvidenzaUno()
Dim RCha As Long, I As Long, J As Long, LastF As Long
Dim RAA As String, RBB As String
'
LastF = Cells(Rows.Count, "F").End(xlUp).Row
'
'Reset bordi:
With Range("F14:N" & LastF).Borders
    .LineStyle = xlContinuous  'xlDouble
    .Weight = xlHairline
    .Color = 0  'xlDouble
End With
'
'Cerca celle da evidenziare:
For I = 15 To Cells(Rows.Count, "F").End(xlUp).Row
    If Cells(I, "F").Value = "-" Then Exit For
    RAA = Cells(I - 1, "F").Resize(1, 9).Address(0, 0)
    RBB = Cells(I, "F").Resize(1, 9).Address(0, 0)
    RCha = Evaluate("SUM(--(" & RBB & ">" & RAA & "))")
    If RCha = 1 Then
        For J = 6 To 14
            If Cells(I, J) > Cells(I - 1, J) Then
                Call Formatta(Cells(I, J))
'                Cells(I, J).Interior.Color = RGB(255, 0, 0)
                Exit For
            End If
        Next J
    End If
Next I
End Sub

Sub Formatta(cRan As Range)
cRan.Borders.LineStyle = xlContinuous
cRan.Borders.Weight = 4
cRan.Borders.Color = RGB(255, 0, 0)
End Sub


Va eseguito il codice della Sub EvidenzaUno.
Ho separato il codice che formatta la cella per una apertura verso una formattazione piu' complessa

Prova...

[raimea]

ciao

tutto ok
e' perfetta...

Ho faticato parecchio a decodificare la richiesta,

hai decodificato alla perfezione

grazie