Como a formatação condicional pode ser usada para células duplicadas em diferentes folhas?

Question

Eu configurei várias guias no excel 2013, criei um formato condicional para destacar a caixa vermelha quando informações duplicadas são inseridas. No entanto, gostaria que isso também acontecesse nas diferentes guias.

Quando copio o formato para as diferentes folhas de trabalho, as informações duplicadas estão destacadas em vermelho, mas apenas na mesma folha. Eu quero mostrar se houver duplicatas de outras planilhas também.

Eu tentei usar o pintor de formatos para as diferentes folhas, embora isso apenas copie o formato para apenas duplicar o que está em cada folha, em vez de todas as folhas.

Existe alguma maneira de fazer isso?

    

Answer 1

Para aplicar a formatação condicional em várias planilhas em uma pasta de trabalho, será necessário algum trabalho. Não há solução de "apontar e clicar" que consegui encontrar. Aqui estão algumas soluções para ajudá-lo a encontrar o seu caminho. A linha inferior; você terá que fazer algumas experiências para fazer isso funcionar para sua aplicação específica.

Usando nomes definidos - Truque de mágica do Excel 879: formatação condicional em toda a planilha (planilhas ou guias)

See how to create Conditional Formatting when Criteria is on one sheet and the Conditional Formatting must be applied on another sheet. Learn about Defined Names. See how to format an intersecting Value. See a Logical Formula that uses the AND and LOOKUP functions.

Usando o VBA - Você pode usar uma macro VBA para examinar as planilhas e destacar (formato) as duplicatas encontradas. ( source )

Sub Highlight_Duplicate()

Dim loop_sheet As Integer
Dim sheet_usedrow As Long
Dim loop_row As Long
Dim compare_value As String
Dim loop_row_first_sheet As Long
Dim first_row_count As Long
Dim column_number As Integer

column_number = 1 ' Change the column_number as the column which you want to highlight.

first_row_count = Sheets(1).UsedRange.Rows.Count

For loop_row_first_sheet = 2 To first_row_count

compare_value = Sheets(1).Cells(loop_row_first_sheet, column_number)

    For loop_sheet = 2 To 6

        sheet_usedrow = Sheets(loop_sheet).UsedRange.Rows.Count

        For loop_row = 2 To sheet_usedrow

            If Sheets(loop_sheet).Cells(loop_row, column_number) = compare_value Then

                Sheets(loop_sheet).Activate

                ActiveSheet.Cells(loop_row, column_number).Select

                With Selection.Interior

                    .Pattern = xlSolid

                    .PatternColorIndex = xlAutomatic

                    .Color = 255

                    .TintAndShade = 0

                    .PatternTintAndShade = 0

                End With

            End If

        Next

    Next

    Sheets(1).Activate

    ActiveSheet.Cells(loop_row_first_sheet, column_number).Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 255

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

Next

End Sub