Vai no Editor do VBA (Alt+F11), seleciona a planilha que contém a tabela dinãmica e adiciona o seguinte código: Private Sub TextBox1_Change() On Erro...

Então, é que você menciona três intervalos de três colunas cada. É para aplicar a regra a cada um desses intervalos ou a todos? Certo creio que vá da...

Os outros intervalos de coluna seguem a regra ou são regras independentes? Tô pensando em jogar tudo pra uma coluna, contar, e retornar as células pra...

E se quiser remover a célula e subir as outras células, troque o "ClearContents" por "Delete Shift:=xlUp" =)

Na sua planilha de exemplo, a partir da célula F2: =ÍNDICE($B$2:$C$6;CORRESP(E2;$C$2:$C$6;0);1)

Tenta assim: Sub removetexto() Dim i As Long, j As Long i = Range("A" & Rows.Count).End(xlUp).Row For j = i To 2 Step -1...

Veja se te atende! CorLin.zip

Ter como, tem sim. Basta definir um critério. Qual o critério para que determinada célula seja colorida?

Tinha colocado a primeira box porque pensei que seria algum específico, por vez. Esse agora pega todos os repetidos e aplica seu parâmetro. Foi Gol? F...

Veja se a solução a seguir te atende! FormataCols.xlsm

Podia postar um exemplo da planilha que você utiliza? Para melhor visualização.

Com base no demonstrado, modifiquei algumas coisas. O código se encontra na planilha. Em resumo, ele copia a planilha com a qual você vai trabalhar (...

Disponha! Muito do que eu aprendi foi vendo códigos prontos. Dois sites que gosto muito são o VBAExpress.com e o Ozgrid.com (ambos em inglês). Aprendo...

Desenvolvi o código a seguir com base no que entendi. Veja se atende! Sub Preenche() Dim ncol As Long Dim ulinha As Long Dim acell As Range Set ace...

Um If logo depois de End With, talvez? If CaixaDialogo = vbNullString Then Exit Sub Ou um GoTo, para logo depois do Else (caso queira continuar a s...