André_Arruda

Deixe me ver. Você tem vários emails numa coluna correto? Dessa forma você não conseguirá. Lembre-se que você está tentando fazer com que o VBA entenda uma range como se fosse um valor. Tem de inseri-lo em um laço de repetição. como fiz no exemplo acima. https://diarioexcel.com.br/2018/07/03/estruturas-de-repeticao/ ou poste seu código, de repente posso te ajudar

Isso porque você não pode comparar uma Range com um valor. São dimensões diferentes; O que você pode fazer é comparar o Valor (PervVel) com o valor de cada célula da sua Range. Private Sub Worksheet_Calculate() For i = 1 to 100 If Range("A" & i).Value <> PrevVal Then MsgBox "Algo mudou!" PrevVal = Range("A"& i).Value Goto Fim End If Next i Fim: End Sub

Sim. Crie uma tablea dinâmica com base nesses dados. https://support.office.com/pt-br/article/criar-uma-tabela-dinâmica-para-analisar-dados-da-planilha-a9a84538-bfe9-40a9-a8e9-f99134456576

posta a planilha pfv

1. Selecione a tabela de dados > vá até Pagina Inicial > Formatar como tabela 2. Vá até inserir > segmentação de dados > Selecione Data e Lotes 3. insira em qualquer lugar essa fórmula : =SUBTOTAL(9;L:L) 4. Faça o filtro como desejar Pasta1.xlsx

explique melhor o que voce quer fazer por favor

=cont.ses(tabela2[[#tudo];[ano]];geral!$c$4;tabela2[[#tudo];[mês]];geral!$c$5;tabela2[[#tudo];[unidade]];geral!$c$6)

Segue minha contribuição: =INDIRETO("A" & MENOR(LIN(A1:A17);LIN());1)

pegando carona no código do amigo Osvaldo, insira isso para colorir: basta apagar a ultima linha ( Application.ScreenUpdating = True) do codigo dele e inseri no lugar o codigo abaixo: 'colorir For Each celula In Range("D2:D" & LR) Select Case celula.Value Case Is = "" Resume Next Case Is <> "" If celula.Value <> celula.Offset(-1, 0).Value Then If celula.Offset(-1, 0).Interior.ColorIndex = 15 Then celula.Interior.ColorIndex = 36 celula.Offset(0, 1).Interior.ColorIndex = 36 Else celula.Interior.ColorIndex = 15 celula.Offset(0, 1).Interior.ColorIndex = 15 End If End If If celula.Value = celula.Offset(-1, 0).Value Then celula.Interior.ColorIndex = celula.Offset(-1, 0).Interior.ColorIndex celula.Offset(0, 1).Interior.ColorIndex = celula.Offset(-1, 0).Interior.ColorIndex End If End Select Next Application.ScreenUpdating = True Unitizar.rar

Inseri uma formatação condicional por cor pra toda vez que o cliente estiver repetido. sendo assim basta filtrar "por cor" no menu de filtro. ai copia os dados e cola onde quiser Unitizar.xlsx

Sub add_new_sheets() On Error Resume Next Dim ws As Worksheet Dim rng As Range Set ws = Sheets("Resumo") Set rng = ws.Range("A2:A" & ws.Range("A" & Rows.Count).End(xlUp).Row) Debug.Print ws.Name, rng.Address For Each celula In rng If celula.Value <> "" Then Sheets.Add ActiveSheet.Name = celula.Value End If Next End Sub

tente adaptar assim: =se(sua fórmula aqui=0; "";sua fórmula aqui) ficando assim: =se(se(s7-hoje()>60;"vigente";se(s7=hoje();"hoje";se(s7hoje();"vencido";se(s7-hoje()60;"alerta - menos de 60 dias";se(s7-hoje()45;"atenção - menos de 45 dias")))))=0;"";se(s7-hoje()>60;"vigente";se(s7=hoje();"hoje";se(s7hoje();"vencido";se(s7-hoje()60;"alerta - menos de 60 dias";se(s7-hoje()45;"atenção - menos de 45 dias"))))))

=SE(DATAM(Q7;R7)=0;"";DATAM(Q7;R7)) O excel entende datas a partir da data "01/01/1900" onde 1 = "01/01/1900", 2 = "02/01/1900", 3 = "03/01/1900" até o dia de hoje (43699). Está aparecendo desse jeito porque a coluna S está formatada como Data. E como o valor da célula S8 por exemplo é igual a 0 (zero), logo a formatação de data retornará "00/01/1900". Na fórmula acima eu peço pra que a formula retorne Vazio se o resultado de DATAM(Q7;R7) for igual a 0 (zero).

Sim. porém poste sua planilha para darmos uma olhada

=se(an11="";0;se(écél.vazia(an11);;an11-am11))

poderia postar sua fórmula?

Crie uma condicional com essa fórmula: =ÉNÚM($L4) Segue exemplo em anexo... Filtrar somente numeros 2.xlsx

Qual é o problema?

Postei uma solução alternativa lá no fórum Luz https://forum.luz.você/t/duvida-em-como-colocar-a-hora-e-a-data-automatica/2632 Abrç!

Selecione as tres primeiras linhas dessa tabela e arraste para baixo. O excel vai mudar o nº de parcela e o mês do vencimento automaticamente.

Tente mudar essa linha : Sheets("teste2").Cells(iCtr, 1).Delete xlShiftUp para : Sheets("teste2").Cells(iCtr, 1).EntireRow.Delete

Veja se atende: Planilhas e Graficos de CSM - Caixa - 2017 12 em adequação.xls

Tentei fazer com formatação condicional mas ficou meio complicado. Ai resolvi fazer por VBA mesmo. Veja se é isso: Devedores (1).rar

Segue: Devedores.xlsx

Uma sugestão: Porque você não insere essa mesma macro também no botão da Userform? Ou seja, assim que clicar no botão e o dado for para a planilha, ao mesmo tempo, a macro em questão será executada...