Claro! Adicione um botão (ActiveX) e insira no código: Private Sub CommandButton1_Click() On Error Resume Next ActiveSheet.PivotTables(1).P...

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...