Hexadecimal

Boa tarde Klarc28,

A conversão neste caso não seria para Decimal, mais sim para o tipo Long. Segue o exemplo abaixo de uma cor em Hexadecimal para Long.

Hexadecimal | Long
F3EDB3 | 11791859

Obrigado pela ajuda.

Estou tentando executar o código macro e não estou conseguindo?

Obrigado pela duvida.

..............

rgdsjunior, experimente esta funcao

Function HexToLongRGB(sHexVal As String) As Long
    Dim lRed As Long
    Dim lGreen As Long
    Dim lBlue As Long

    lRed = CLng("&H" & Left$(sHexVal, 2))
    lGreen = CLng("&H" & Mid$(sHexVal, 3, 2))
    lBlue = CLng("&H" & Right$(sHexVal, 2))

    HexToLongRGB = vba.RGB(lRed, lGreen, lBlue)

End Function

O link que vc me enviou não deu certo na minha planilha a conversão.

Poderia me enviar a planilha com esta macro com a função.

Obrigado.

klarc28 muito obrigado ajuda, vou ver com o parceiro acima.

Boa tarde Basole,

Executei a macro e não trouxe resultado na minha planilha, voce poderia colocar na planilha e me enviar.

Obrigado pela ajuda.

Eu já tinha encontrado essa do Basole, mas estava dando erro.
Aí coloquei a linha:

On error resume next

Aí deu certo.
Basole, desculpe qualquer coisa que eu tenha feito errado.
Não tive má intenção.
Anexo

Muito obrigado Klarc28 e Basole por me ajudarem.

Deus lhes abençoe.
Grato.