Arkadaşlar selamlar..
Yabancı bir sitede dolaşırken güzel bir koda rastladım.
Kod hücre dolgu renklerinin sayısal değerlerini veriyor.
Ben denedim çalışıyor, umarım işinize yarar.
Boş bir modüle yapıştırın.
Function ColorIndex(CellColor As Range)
ColorIndex = CellColor.Interior.ColorIndex
End Function
Boş bir hücreye yapıştırın
=ColorIndex(hücre adı)
Yabancı bir sitede dolaşırken güzel bir koda rastladım.
Kod hücre dolgu renklerinin sayısal değerlerini veriyor.
Ben denedim çalışıyor, umarım işinize yarar.
Boş bir modüle yapıştırın.
Function ColorIndex(CellColor As Range)
ColorIndex = CellColor.Interior.ColorIndex
End Function
Boş bir hücreye yapıştırın
=ColorIndex(hücre adı)