Este fórum está sendo desativado

Disponibilize o seu arquivo com a fórmula que passei instalada.

Primeiramente seleciona a célula H2 deleta a formula Basta colar a nova fórmula, como eu sugeri, não é necessário deletar a fórmula que está na célula. ... colega Os v aldo fez porem na versão de Português Brasil é desta forma abaixo ... Eu utilizo o Excel 2010 (tá fazendo hora extra aqui ... ;) ) ...

Acrescente as partes em vermelho na fórmula que está na célula 'B7' (não é necessário alterar as demais fórmulas)

=SE(E(P7<>"";P8="");P7;SEERRO( ... )));""))

Experimente esta fórmula matricial em 'B2'.

=SOMA(--(FREQUÊNCIA(SE($D$2:$D$17=A2;$E$2:$E$17);$E$2:$E$17)>0))

1. copie a fórmula daqui
2. cole em 'H2' da planilha "Resultado"
3. duplo clique no canto inferior direito daquela célula para estender a fórmula até 'H115' (ou arraste)

Experimente: =SEERRO(PROC(9,99999999999999E+307;PESQUISAR(Equivalencias!A$2:A$96;F2);Equivalencias!B$2:B$96);"-") obs. essa fórmula não aceita células vazias no intervalo, então se a extensão da lista em 'A2:A96' tende a mudar sugiro que você atribua nomes (Intervalo Dinâmico Nomeado) às l...

Olá, Henrique. Não sei se você já tentou este arranjo: colocar os comandos Unprotect e Protect, este com os parâmetros. Algo assim: Dim rng As Range ActiveSheet.Unprotect "sgqcalibracao" Set rng = ActiveSheet.AutoFilter.Range ... ... End If ActiveSheet.Protect "sgqcalibracao", Us...

Talvez estejam desativados em decorrência do compartilhamento do arquivo.

Vi que você acrescentou alguns parâmetros ao comando que eu sugeri. Experimente remover os parâmetros do comando e marque aqueles parâmetros na Caixa de Diálogo que é exibida ao proteger a planilha.

Olá, Henrique.

A mensagem de erro é acompanhada pelo botão "Depurar"? Se sim, ao clicar nele, qual a linha do código que fica destacada em amarelo?

Experimente após inserir a linha em vermelho abaixo.
...
Set rng = ActiveSheet.AutoFilter.Range
ActiveSheet.Protect "SuaSenha", UserInterfaceOnly:=True
If rng.Columns(2).SpecialCells(xlCellTypeVisible).Count - 1 = 50 Then
...

Experimente: Sub ReplicaDados() Dim LRo As Long, LRd As Long LRo = Cells(Rows.Count, 1).End(3).Row With Sheets("Dados") LRd = .Cells(Rows.Count, 1).End(3).Row .Cells(LRd + 1, 4).Resize(LRo - 7, 13).Value = Range("A8:M" & LRo).Value .Cells(LRd + 1, 1).Resize(LRo - 7, 2).Value ...

É possível também pintar os blocos de células via macro, sem coluna auxiliar, sem FC e sem sobrecarregar a planilha. Se houver interesse informe se deseja rodar a macro com disparo manual ou automático, este, ao inserir data na coluna 'A', por exemplo. Aí informe como são inseridas as datas: uma de ...

Consegue aplicar na planilha que deixei no anexo, Segue anexo o arquivo com a FC aplicada. Em uma planilha apliquei ÉIMPAR e na outra ÉPAR. tentei colocar direto na minha não deu certo e travou a planilha , Apliquei a FC até a linha 2.000, se aplicar em intervalos grandes poderá pesar pois SOMARPRO...

Experimente:

Se quiser pintar as células a partir do primeiro bloco de datas iguais utilize a primeira fórmula abaixo, ou se quiser pintar a partir do segundo bloco utilize a segunda fórmula.

=ÉPAR(SOMARPRODUTO(1/CONT.SE($A$1:$A2;$A$1:$A2)))

=ÉIMPAR(SOMARPRODUTO(1/CONT.SE($A$1:$A2;$A$1:$A2)))

" Como faço para copiar a Função SE para células adjacentes em Plan1 ! ? Essa que está puxando dados de outra planilha. " No outro tópico você queria colocar a fórmula na Plan2, e agora você quer colocar na Plan1 ??? Para estender a fórmula a um intervalo adjacente coloque o cursor no cant...

Se quiser experimentar uma solução via macro, o código abaixo pode ser um ponto de partida. Antes, coloque a relação das placas dos veículos/máquinas na coluna 'W' e as respectivas leituras dos horímetros na coluna 'X'. Talvez você queira armazenar mais de uma leitura para cada veículo/máquina, aí u...

Cole esta fórmula em 'A2' da "Plan2" e arraste para a direita.

=SE(Plan1!$C2>0;Plan1!A2;"")

O erro acontecia antes por causa da opção "ActiveCell"? Provavelmente sim. Ao utilizar o ActiveCell a célula ativa deve estar no intervalo da busca, no seu caso, a coluna 'B'. Então, se você selecionar qualquer célula daquela coluna o seu comando vai rodar sem erro. Se você quiser iniciar...

Experimente:

Range("B:B").Find(protocol, LookIn:=xlValues, lookat:=xlWhole).Activate