Copie a cor do plano de fundo da planilha mestre para a planilha - não o conteúdo

Question

Eu me pergunto se alguém pode ajudar, eu sou um noob quando se trata de excel. Eu tenho que criar uma planilha que será usada no gerenciamento de Datacenter e rastreamento de hardware, então o que eu fiz foi criar uma planilha mestre e uma folha por rack, o que eu preciso alcançar é quando uma célula na planilha mestre é preenchida com um cor de fundo (cinza), em seguida, altera a cor na planilha correspondente. Não tenho certeza de quanto sentido isso faz:)

Mestre B2: B25 para a planilha 1 B4: B27 .. Mestre D2: D25 para a planilha 2 B4: B27 .. Mestre E2: E25 para a planilha 3 B4: B27..etc

Eu não posso usar copiar porque copia o conteúdo da célula, o que eu não quero, apenas a cor de fundo.

    

Answer 1

O VBA não possui uma alteração de evento de cor que possa ser capturada para torná-lo totalmente automático.

Eu decido fazer um duplo clique . Você clica duas vezes em uma célula e a cor é copiada para a célula correspondente em outra planilha:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    total_sheets = wkb.Worksheets.Count
    aff_row = Target.Row
    aff_column = Target.Column
    sheet_used = (aff_column / 2) + 2
    If aff_column > 1 Then
        If Int(sheet_used) = sheet_used Then
            If sheet_used <= total_sheets Then
                wkb.Sheets(sheet_used).Cells(aff_row + 2, 2).Interior.Color = Target.Interior.Color
            End If
        End If
    End If
End Sub

Abra macros / VBA clique duas vezes na coluna da esquerda Folha2 , cole o código no lado direito

Quando você alterar a cor de uma célula, clique duas vezes nela e ela será alterada desta forma:

Folha2 ColunaB - > Folha3 ColunaB

Folha2 ColunaD - > Folha4 ColunaB

Folha2 ColunaF - > Folha5 ColunaB

Sempre duas linhas abaixo da linha original.

    

Answer 2

Como você se considera um noob, vou começar pelas trilhas certas ...

1. Copiar célula com estilo original: Ctrl + c

2. Selecione a célula de destino e cole o especial: Alt + e + s + v

3. Selecione a opção de formatos para colar somente formatos de célula copiada: t + Digite

Answer 3

Se você selecionar todas as planilhas (segure a tecla Shift e clique em cada guia), então você poderá formatar todas elas simultaneamente - qualquer alteração feita na planilha de origem será espelhada no restante. Mas isso só faz sentido se você está falando sobre a configuração inicial da sua planilha.

Se você quiser que mudanças como essa ocorram de forma mais regular e automática em toda a vida da pasta de trabalho, isso só pode ser resolvido usando VBA ( Visual Basic for Applications , que é incorporado na maioria das versões modernas do Office padrão). Nesse caso, você precisaria adicionar algum código ao evento Worksheet_Change ():

1. Lembre-se da cor de fundo da sua seleção atual

   Dim myColor As Integer myColor = Selection.Interior.ColorIndex

2. Selecione a nova área para aplicar a cor; isso deve selecionar seu intervalo atual em todas as planilhas visíveis.

   Worksheets.Select

3. Aplique a cor de fundo original à sua nova seleção

   Selection.Interior.ColorIndex = myColor

4. Selecione novamente apenas a guia em que você estava trabalhando. (Eu estou supondo que sua guia Mestre é a primeira folha)

   Worksheets(1).Select

NB: sem nenhuma modificação, este código espelha TODAS as alterações de cor de TODAS as folhas para TODAS as outras, sempre que ALGUMA célula é alterada, o que é um exagero. A solução poderia ser muito mais eficiente, conforme necessário.