Get the color of a cell from its hexadecimal value

[quemuenchatocha]

Ejemplo_1.xlsm
	A	B	C	D	E	F	G	H
1	Color	Hexadecimal	Color Code	RGB	R	G	B	Name Color
2		#0048BA						Absolute Zero
3		#B0BF1A						Acid green
4		#7CB9E8						Aero
5		#C0E8D5						Aero blue
6		#B284BE						African violet
7		#72A0C1						Air superiority blue
8		#EDEAE0						Alabaster
9		#F0F8FF						Alice blue
10		#C46210						Alloy orange
11		#EFDECD						Almond
12		#E52B50						Amaranth
13		#9F2B68						Amaranth (M&P)
14		#F19CBB						Amaranth pink
15		#AB274F						Amaranth purple
16		#D3212D						Amaranth red
17		#3B7A57						Amazon
18		#FFBF00						Amber
List Of Colors

Dear Best regards, in search of your best advice I am trying to obtain a function that will allow me to get the color of a cell [A2:A975] from the hexadecimal values recorded in another cell [B2:B975]. So far I have only gotten the following basic lines:

Sub SetHexCol()
Dim i As Integer, LastRow As Integer
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
    Cells(i, "A").Interior.Color = HexToRgb(Cells(i, "B"))
Next
End Sub

Function HexToRgb(HexColor As String) As Long
Dim R As String, G As String, B As String
HexColor = Replace(HexColor, "#", "")
R = CLng("&H" & Left(HexColor, 2))
G = CLng("&H" & Mid(HexColor, 3, 2))
B = CLng("&H" & Right(HexColor, 2))
HexToRgb = rgb(R, G, B)
End Function

My idea is that regardless of the cell where the hexadecimal value is located (not just in column B for my case), the function will allow me to fill a cell with the color resulting from the six-character string given to the function.

Thanking you for your valuable help and suggestions to obtain the desired result, I say goodbye

 

[Fluff]

Where would the Hex colour come from, if not a range of cells?

 

[quemuenchatocha]

Where would the Hex colour come from, if not a range of cells?

OK, excuse me, I think I was not entirely clear, I have already fixed the wording of the question so that it can be understood in a better way. What I am looking for is to create a function that, from a hexadecimal value, can obtain the fill color of a cell.

I think it's too late to edit it!

Basically I would like to find a function that when I enter any hexadecimal value (either 7 or 6 characters #XXXXXX), it will allow me to get the fill color of the cell where I specify the function

 

[Fluff]

You asked for

My idea is that regardless of the cell where the hexadecimal value is located (not just in column B for my case), the function will allow me to fill a cell with the color resulting from the six-character string given to the function.

Are you now saying that is not what you want?

 

[quemuenchatocha]

You asked for

Are you now saying that is not what you want?

Basically I would like to find a function that when I enter any hexadecimal value (either 7 or 6 characters #XXXXXX), it will allow me to get the fill color of the cell where I specify the function

 

[Fluff]

How do you want to enter the hex value?

 

[quemuenchatocha]

How do you want to enter the hex value?

The variable where the hexadecimal value is stored can contain all 7 characters (#B0BF1A), or it can also contain only 6 (B0BF1A), in either case, you can use the Replace function to determine the number of characters to define[HexColor = Replace(HexColor, "#", "")], however, I would think it would be more practical to have only 6 characters!

 

[Fluff]

That does not ansewr my question. If the Hex number is not coming from col B, where is it coming from?

 

[quemuenchatocha]

That does not ansewr my question. If the Hex number is not coming from col B, where is it coming from?

Ok, I think there has been a misunderstanding, to put it simply, following the data that is in the book, the hexadecimal values would come from the B column.

 

[Fluff]

In that case I don't understand what you are asking for. The code you supplied applies the relevant colour to col A based on the Hex code in col B