Luks Skywalker

2 anos e ainda nenhuma solução?

Tentei usar o seguinte código que encontrei, mas não tive sucesso. Option Explicit Public Function ContaCelulaColoridaFormatCond(rngColorInfo As Range, Intervalo As Range) As Long Dim rConta As Range For Each rConta In Intervalo.Cells If RetornaCorDeFundoCondicional(rConta) = rngColorInfo.Interior.ColorIndex Then ContaCelulaColoridaFormatCond = ContaCelulaColoridaFormatCond + 1 End If Next End Function Public Function RetornaCorDeFundoCondicional(ByVal rngCelula As Range) As Long Dim FormatCondition As FormatCondition RetornaCorDeFundoCondicional = -1 For Each FormatCondition In rngCelula.FormatConditions If StatusDoFormatoCondicional(FormatCondition) Then If Not IsNull(FormatCondition.Interior.ColorIndex) Then RetornaCorDeFundoCondicional = FormatCondition.Interior.ColorIndex End If Exit For End If Next FormatCondition End Function Public Function StatusDoFormatoCondicional(ByVal FormatCondition As FormatCondition) As Boolean Dim FormulaTransformada As String Dim Operator As Long Dim Formula1 As String Dim Formula2 As String Dim Cell As Range Dim CellValue As String Application.Volatile FormulaTransformada = FormatCondition.Formula1 Set Cell = FormatCondition.Parent On Error Resume Next Operator = FormatCondition.Operator On Error GoTo 0 If Operator > 0 Then Formula1 = FormatCondition.Formula1 On Error Resume Next If Left(Formula1, 1) = "=" Then Formula1 = Mid(Formula1, 2) Formula2 = FormatCondition.Formula2 On Error GoTo 0 If Left(Formula2, 1) = "=" Then Formula2 = Mid(Formula2, 2) If VarType(Cell.Value) = vbString Then CellValue = """" & Cell.Value & """" Else CellValue = CDbl(Cell.Value) End If Select Case Operator Case xlBetween: FormulaTransformada = "AND(" & Formula1 & "<=" & CellValue & "," & CellValue & "<=" & Formula2 & ")" Case xlNotBetween: FormulaTransformada = "OR(" & Formula1 & ">" & CellValue & "," & CellValue & ">" & Formula2 & ")" Case xlEqual: FormulaTransformada = CellValue & "=" & Formula1 Case xlNotEqual: FormulaTransformada = CellValue & "<>" & Formula1 Case xlGreater: FormulaTransformada = CellValue & ">" & Formula1 Case xlLess: FormulaTransformada = CellValue & "<" & Formula1 Case xlGreaterEqual: FormulaTransformada = CellValue & ">=" & Formula1 Case xlLessEqual: FormulaTransformada = CellValue & "<=" & Formula1 End Select Else 'Caso a formatação condicional seja uma fórmula FormulaTransformada = FormatCondition.Formula1 FormulaTransformada = Replace(FormulaTransformada, ";", ",") 'Traduzindo a função SE para o inglês FormulaTransformada = Replace(FormulaTransformada, "SE(", "IF(") 'Adicione traduções para as funções que você usar 'Exemplos: 'FormulaTransformada = Replace(FormulaTransformada, "MÉDIA(", "AVG(") 'FormulaTransformada = Replace(FormulaTransformada, "SOMA(", "SUM(") 'FormulaTransformada = Replace(FormulaTransformada, "SOMASE(", "SUMIF(") 'FormulaTransformada = Application.ConvertFormula(FormulaTransformada, xlA1, xlR1C1, , ActiveCell) 'FormulaTransformada = Application.ConvertFormula(FormulaTransformada, xlR1C1, xlA1, xlAbsolute, Cell) FormulaTransformada = Application.ConvertFormula(FormulaTransformada, xlA1, xlR1C1, xlRelative, FormatCondition.AppliesTo.Resize(1, 1)) FormulaTransformada = Application.ConvertFormula(FormulaTransformada, xlR1C1, xlA1, xlRelative, Cell) End If StatusDoFormatoCondicional = Application.Evaluate(FormulaTransformada) End Function

Já pensou na possibilidade de transformar tudo numa única tabela e com os filtros e utilizando a função subtotal você pode ver quais componentes podem ser comprados? segue modelo em anexo. Modelo proposto.xls

Saudações! Estou utilizando o Excel 2016 e estou com uma dificuldade para desenvolver um código para que quando alguma célula dentro do range (L9:BG258) fique na cor vermelha (cód. 3) devido a uma formatação condicional previa, seja inserido automaticamente o valor "N" dentro da célula colorida.

Minha dúvida é parecida com o caso citado... no meu caso quando a cor da célula dentro de uma tabela l9:bg258 fica vermelha padrão (devido a uma formatação condicional), gostaria que nas células que ficassem em vermelho padrão (excel 2016) fosse adicionado o valor "N" na célula.

Está compartilhada nome: "dummy" adicionado 58 minutos depois Bom eu mesmo arrumei uma solução. Fiz uma macro: Seleciono as células que desejo copiar (que vêm de uma tabela onde as informações são tratadas), colo em outro lugar somente valores (no caso uma planilha oculta), com elas selecionadas uso o substituir 0 para "", copio e colo no local indicado. Assim não entra em conflito com a formatação condicional no local. Ainda assim gostaria de um auxilio no que se refere no caso da formatação condicional me apresentar a cor vermelha, automaticamente seja inserido o valor "N" na celula.

Bom dia pessoal, gostaria de uma ajuda, já que não encontrei nenhuma outra solução e não entendo de VBA ainda, vou deixar aqui um modelo de exemplificação. 1- Necessidade: Tenho uma planilha que faz o controle de treinamentos do pessoal, em uma parte da tabela, tenho o resultado do comparativo entre dois controles considerando apenas os valores exclusivos. Porém ao copiar as informação das colunas HD9: IY258 e tentar colar nas colunas L9:BG258 (que são campos editáveis sem formulas, porém com form. condicional), mesmo utilizado o copiar e colar especial apenas valores da seleção ela dá erro na formatação condicional por considerar as células vazias. 2-Necessidade: Algum código que se dentro da tabela (considerando apenas as celulas L9:BG258) aparecer cor vermelha (que vem de uma formatação condicional) seja inserido o valor "N" na célula colorida. Desde já agradecido. Link do modelo abaixo: DUMMY.xlsx