colorare le ultime 4 cifre

[raimea]

ciao

nel fgl X col F da riga 5 a UR
ci sono dei numeri

vorrei colorare di rosso le ultime 4 cifre
metterle in grassetto
e dimensione 14

alcune celle di col F potrebbero essere vuote
quindi penso si potrebbe calcolare l ultima riga con ur+1 ?


vi allego il file

https://www.dropbox.com/scl/fi/cmkv8qaca8fjsyg6ecvne/ultime4cifre.xlsm?rlkey=44s3lsliwkx9oefic6dfr5l6t&st=vutpqyqc&dl=0

ciao

[Anthony47]

nel fgl X col F da riga 5 a UR ci sono dei numeri[...]

Fortunatamente non sono numeri ma testi, quindi quello che dici si puo' fare. Prova con

Codice: Seleziona tutto

Sub RiForm()
Dim I As Long
'
For I = Cells(Rows.Count, "F").End(xlUp).Row To 2 Step -1
    If Len(Cells(I, "F")) > 5 Then
        With Cells(I, "F").Characters(Start:=Len(Cells(I, "F")) - 4, Length:=5).Font
            .Size = 14
            .Color = RGB(255, 0, 0)
        End With
    End If
Next I
End Sub

[raimea]

ciao
tutto ok

mi hanno passato il foglio dicendomi che erano numeri e non mi ero accorto del reale formato !!

meglio cosi.

grazie