Este fórum está sendo desativado

Você quer pintar as células AM4:AR30 de preto, é isso?
Se sim, acrescente a segunda linha abaixo.

...
...
Columns("AM:AR").ClearContents
Range("AM4:AR30").Interior.Color = vbBlack
...
...

Editei o meu post anterior e marquei as linhas do seu código que devem servir como referências para você acrescentar as linhas de código que eu sugeri.

... ... Celula.Interior.Color = vbYellow ~~~> PROCURE ESTA LINHA NO SEU CÓDIGO E INSIRA AS 3 LINHAS LOGO ABAIXO DELA '########## If (Target.Column < 42 And Celula.Column >= 80) Or (Target.Column > 41 And Celula.Column <= 4) Then Cells(Celula.Row, Celula.Column + Desloc - 1).Interior.Color = vbRed E...

Em D2, arraste até E2, arraste ambas par baixo.

=SE($C2="FINANCEIRO";"FINANCEIRO";"")

Sub ReplicaDados() Dim a As String a = Application.InputBox("INSIRA O NÚMERO DA LINHA INICIAL E O NÚMERO" & vbLf _ & "DA LINHA FINAL NO FORMATO XXXX" & vbLf & "exemplo: 0520 para copiar da linha 5 até a 20") On Error Resume Next Range("S" &...

O que eu queria mesmo era eliminar a linha onde está o objecto. Sub ExcluiOuInsereLinha() If Left(ActiveSheet.Shapes(Application.Caller).Name, 3) = "Rec" Then Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Delete ElseIf Left(ActiveSheet.Shapes(Application.Caller).Name, 3) = ...

Em A2 e arraste para baixo:

=SE(B2="";"";INT((LIN()+1)/3))

Funciona com qualquer valor >=1. Então funciona com 1, com 1,1 com 1,2 ... , 10, ..., 20, ...com 500, ... Porém já li comentários que o 1 não funciona em todas as versões do Excel (não sei se é real ou se é folclore ...), pois nessas versões a função retorna o primeiro "match", como o PROC...

Experimente:

substitua a parte em vermelho
=PROC($A1;1/('[2 CONTROLE.xlsm]envios'!$A$1:$A$1000=$A1);'[2.xlsm]envios'!$B$1:$B$1000)

altere para
=PROC(2;1/('[2 CONTROLE.xlsm]envios'!$A$1:$A$1000=$A1);'[2.xlsm]envios'!$B$1:$B$1000)

1. se você quer inserir a fórmula na planilha utilizando macro (resultado em F1 ): ActiveCell.FormulaArray = "=SUM(1/COUNTIF($D$5:$D$25,$D$5:$D$25))" 2. se você quer contar os conteúdos únicos no intervalo D5:D25 utilizando macro: Sub ContaÚnicos() [F1] = Evaluate("=SUM(1/COUNTIF($D$5...

Infelizmente não posso mexer na estrutura da planilha, Osvaldo. A sugestão que passei não mexe com a estrutura da planilha, apenas utiliza uma coluna qualquer vazia. A planilha original possui mais de 31000 linhas e 88 colunas. Não vejo problemas quanto ao tamanho da tabela. Eu preciso que essa con...

Uma forma de contornar seria puxar a data da planilha Nascimentos para a planilha Plan1 . Por exemplo em W11 colocaria =PROCV(AA11;Nascimentos!A$1:B$11;2;0) Aí em AC11 ~~~> =SE( OU(W11=0 ;V11="");"";SEERRO... Em seguida você pode simplificar a fórmula em AC11 substituindo os 3 PR...

Experimente:

ActiveSheet.AutoFilterMode = False

Tem alguma forma de alterar os valores ja existente 1. em uma célula vazia insira o número 1 e aperte Ctrl+c 2. selecione o intervalo que contém as horas / clique com o direito sobre a seleção / Colar Especial / marque Adição / OK 3. clique novamente com o direito sobre a seleção / Formatar células...

substitua esta linha 'Me.ComboBox10.List = WST.ListObjects("bd_DPL_N").ListColumns(1).DataBodyRange.Value por estas Dim rng As Range For Each rng In Sheets("DPL_N").Range("A2:A" & Sheets("DPL_N").Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisi...