Obter codigo da cor da celula atual

[igorumeda]

Estou com uma lista de mais de 100mil itens em que em algumas linhas estão com o fundo amarelo, gostaria de criar uma coluna que retorne 1 caso a linha for amarela e 0 caso não.
Existe alguma formula que eu consiga obter o código da cor da celula escolhida?
Tentei =COR(A1) mas não dá certo.

[schiavinatto]

O Autofiltro reconhece cor, tente usa-lo.

[mrkalvin]

o único problema do filtro por cor, é que ele não retorna o resultado quando exsiste uma cor de fundo (ex: amarelo) e a celula está vazia.

[schiavinatto]

Ola @mrkalvin , partindo do fato que esta em uma planilha, existe diversas maneiras de encontrar o desejado, desde que use as funções e formulas certas para montar a planilha, e não pinturas, feitas manualmente.

Infelizmente @igorumeda , não informou porque estão em amarela, qual a condição para tal fato.

[koyotak]

00_LO-CALC_countstyle-extension.ods (17.7 KB)

[WBastos]

@igorumeda , segue uma sugestão:

Sub ComparaCor
	Dim ws As Object
	Dim corPadrao As Double
	Dim rng As Object   
	Dim i As Integer  

	ws = Thiscomponent.sheets.getByName("Capa")
	corPadrao = ws.getCellRangeByName("D2").CellBackColor
	
	rng = ws.getCellRangeByName("A2:A" & UltimaLinha(ws))
	
	For i= 2 to UltimaLinha(ws)
		If ws.getCellRangeByName("A" & i).CellBackColor = corPadrao Then
			ws.getCellRangeByName("B" & i).String = 1
		Else
			ws.getCellRangeByName("B" & i).String = 0
		End If	
	Next 
End Sub

'-----------------------------------------------------------
Function UltimaLinha( oPlan )
	Dim oCursor As Object
	
	oCursor = oPlan.createCursor
	oCursor.gotoEndOfUsedArea(True)
	UltimaLinha = oCursor.Rows.Count 
End Function

valida-cor.ods (858.6 KB)