Mr Ethernet's questions

Estou tentando criar um script VBA que formate condicionalmente um intervalo de células que contenha qualquer string de texto com uma cor de preenchimento de minha escolha.

Até agora, uso uma regra de formatação condicional do Excel para conseguir isso e funciona; no entanto, arrastar e soltar o conteúdo das células de uma coluna para outra faz com que as regras de formatação condicional fiquem muito fragmentadas e rapidamente se tornem uma bagunça. O que começou como duas regras de formatação condicional, uma para a coluna A e outra para a coluna B, rapidamente se torna dezenas de regras separadas à medida que o Excel altera o campo "aplica-se a" das regras a cada cópia ou movimentação dos dados da célula.

Um script VBA capaz de alcançar o mesmo que minhas regras de formatação condicional seria muito melhor, pois não seria afetado por mover ou copiar e colar dados de células. Eu seria capaz de arrastar e soltar livremente meus dados na coluna apropriada sem que o código VBA subjacente fosse afetado.

Alguém aqui com alguma experiência básica em codificação VBA tem alguma ideia para um simples trecho de código que eu poderia usar para simplesmente alterar a cor de preenchimento de qualquer célula que contenha qualquer string? Isso se aplicaria às células A1:A200.

Se você não gostar de alguma coisa sobre minha pergunta por algum motivo, como David Postill fez recentemente, por favor, diga-me em um comentário e me dê alguns minutos para atualizá-lo com qualquer informação adicional que você acha que pode ser necessária, em vez de rejeitá-lo e fugindo.

Interessado apenas em ouvir pessoas com alguma experiência básica em VBA e um desejo de ser útil. Nenhum comentário sarcástico sobre "Não vamos depurar algum script aleatório que você encontrou online para você", por favor. Eu só quero ouvir pessoas positivas e ÚTEIS.

Eu tenho uma planilha que rastreia itens e datas. Cada item tem uma data correspondente associada a ele:

Captura de tela mostrando a formatação condicional:

Se a data for igual ou inferior a 100 dias a partir da data atual, a célula de data é destacada em verde, usando esta fórmula de formatação condicional:

=TODAY()-C3:C12<120

Se a data for superior a 100 dias a partir da data atual, a célula será destacada em vermelho, usando esta fórmula de formatação condicional:

=TODAY()-C3:C12>=120

Além disso, todas as linhas são classificadas por data, em ordem crescente, e as células de data em branco não produzem formatação condicional:

=ISBLANK(C3:C12)=TRUE

O problema que estou tentando resolver é que, quando uma data é atualizada para um determinado item, todas as linhas precisam ser reorganizadas dinamicamente na nova ordem crescente de data usando o código VBA.

Na captura de tela, você notará que o Item 6 está fora do lugar. Sua linha inteira deve ser movida automaticamente para a sequência correta por ordem de data, pela macro.

Eu tentei incorporar o seguinte script que encontrei online. Infelizmente, alguns comportamentos muito estranhos se seguiram e minhas linhas foram reorganizadas de uma forma que não consegui entender direito. O cabeçalho é movido pela macro abaixo de todo o resto, não importa o que eu faça!

Alguém pode ver o que há de errado com este código VBA? Isso faz uma bagunça absoluta com meus dados assim que atualizo qualquer data.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("C3").Sort Key1:=Range("C12"), _
  Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, _
  Orientation:=xlTopToBottom
End Sub

Editar:

"Você não forneceu um link para o script"

Link para o script: https://www.extendoffice.com/documents/excel/3655-excel-auto-sort-by-date.html

"... e, mais importante, nos disse o que o script aleatório deveria realmente fazer"

O script deve classificar automaticamente as datas, quando inseridas ou modificadas, como pode ser inferido em:

"O problema que estou tentando resolver é que, quando uma data é atualizada para um determinado item, todas as linhas precisam ser reorganizadas dinamicamente na nova ordem crescente de data usando o código VBA ."

... e:

" Sua linha inteira deve ser movida automaticamente para a sequência correta por ordem de data, pela macro ."

Desculpe se não deixei claro o suficiente que o objetivo deste script é organizar dinamicamente as datas conforme elas são modificadas.

Aqui está o que acontece quando uma nova data é adicionada; o cabeçalho é movido abaixo dos dados:

O cabeçalho é classificado junto com os dados

Alguém pode ver por que o cabeçalho seria movido abaixo dos dados?