Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao Antonino,
dipende dal formato della cella. Visto il contenuto mi aspettavo di trovare un formato testo per tutte le celle mentre per la cella E12, ma anche per altre, trovo impostato un formato numerico e quindi la macro causa un errore di overflow.
Ho modificato la macro in modo che imponga il formato testo per ogni cella del range in colonna E.
Sub mRgb()
Dim sh As Worksheet
Dim rng As Range
Dim lRiga As Long
Dim arrColor As Variant
Dim byRed As Byte
Dim byGreen As Byte
Dim byBlue As Byte
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
lRiga = .Range("E" & .Rows.Count).End(xlUp).Row
For Each rng In .Range("E2:E" & lRiga)
rng.NumberFormat = "@"
rng.Value = Replace(rng.Value, " ", "")
arrColor = Split(rng.Value, ",")
byRed = arrColor(0)
byGreen = arrColor(1)
byBlue = arrColor(2)
rng.Offset(0, 1).Interior.Color = RGB(byRed, byGreen, byBlue)
Next rng
End With
Set sh = Nothing
Set rng = Nothing
End Sub
David