Este fórum está sendo desativado

[vieira120414]

Prezados, bom dia!

Solicito auxílio para resolução do seguinte caso. Eu tenho uma fórmula =SE(LIN(C2)<MÁXIMO(SE($C$2:$C$1636<C2;LIN($C$2:$C$1636);0));"Verificar";""), porém, gostaria de converter em macro! Alguém sabe me informar se isso é possível realizar esse procedimento?

Planilha contendo a fórmula segue anexa.


Aguardo retorno assim que possível.

Atenciosamente,
Marco

[Parkeless]

Olá Marco,

Segue:

Código: Selecionar todos

Sub EncontrarDatasPerdidas()

Dim Data As Date 'Data Analisada

Dim Intervalo()
Dim i As Long, j As Long

ReDim Intervalo(2 To Range("C:C").SpecialCells(xlCellTypeConstants).Count)

'Transferir dados
For i = 2 To UBound(Intervalo)
    Intervalo(i) = Cells(i, 3)
Next i

For i = 2 To UBound(Intervalo)
    If IsDate(Intervalo(i)) Then
        Data = Intervalo(i)
        For j = i + 1 To UBound(Intervalo)
            If Intervalo(j) < Data Then
                Cells(i, 4) = "Verificar"
                Exit For
            End If
        Next j
    End If
Next i

MsgBox ("Operação concluída.")

End Sub

[vieira120414]

Olá, boa tarde!

Não consegui utilizar a macro, POR FAVOR, você poderia utilizar a planilha TESTE que segue anexa?

Desde já agradeço.

Atenciosamente,
Marco.

[Parkeless]

Vieira,

Na primeira planilha que você mandou, as datas estavam na coluna C. Nessa última, estão na D.

Construí o código para buscar as datas conforme conteúdo do seu primeiro exemplo; se você pretende mudar o layout, é melhor você fazer por fórmula mesmo...

[vieira120414]

Olá, bom dia!

Eu já providenciei a correção da planilha TESTE (Datas na coluna C).

Ainda não tenho muito conhecimento em macros, peço desculpas pela falta de atenção, pois não sabia que se fosse alterado a coluna não iria funcionar.

Aguardo retorno assim que possível.
Atenciosamente,
Marco.

[Parkeless]

Boa tarde,

Sem problemas segue anexo.

[vieira120414]

olá, boa tarde, tudo bem com você?

Por favor, você poderia me informar como faço para alterar o intervalo? Pois, eu acho que terei mais numerações futuramente.

Desde já agradeço.
Atenciosamente,
Marco

[Parkeless]

Marco,

Atualmente, o código verifica todos os dados da coluna C, e retorna o resultado na coluna D, isso independente do número de linhas preenchidas.

Isso não te atende?

[vieira120414]

Olá, boa tarde!

Certo, eu consegui utilizar a função, porém ela não está funcionando como eu esperava.

Você poderia, por favor, verificar? Eu preciso de uma macro onde o Excel indique quais são as numerações que tiveram sua sequência cronológica interrompida.

Segue anexa planilha.

Atenciosamente,
Marco.

[Parkeless]

Marco,

Acho que esses status em "Verificar" são referente a dados anteriores. Sempre que for executar, apague todos os dados da coluna D antes.

Se quiser que a macro faça isso automaticamente, tecle Alt + F11 na planilha, localize o código e insira a seguinte informação logo após a declaração Sub EncontrarDatasPerdidas():

'Apagar dados anteriores
Range("D:D").ClearContents

[vieira120414]

Olá, boa tarde!

Não conseguiu realizar o procedimento, por favor, você poderia me ajudar? Nesta última planilha que enviei, eu preciso aplicar a macro, você poderia fazer para mim?


Atenciosamente,
Marco.

[Parkeless]

Marco,

Se eu fizer, quando você for tentar fazer sozinho, vai dar errado denovo

Apenas certifique-se de sempre deletar os dados da coluna D antes de rodar a macro novamente.

Faça isso, verifique se a macro funciona como o esperado, e me dê um retorno.

[vieira120414]

Olá, boa tarde!

Tentei realizar a instrução, porém não deu certo. Eu não consegui identificar o problema.

Segue anexa planilha teste. Por favor, você poderia verificar?

Desde já agradeço pela atenção.

Atenciosamente,
Marco

[DJunqueira]

vieira120414 será q o q te levou a buscar uma macro não foi uma fórmula demasiado complicada e eventualmente até mesmo lenta? Macros substituindo funções tb podem ficar bastante lentas, nesse sentido montei uma nova fórmula utilizando funções substituindo a sua anterior e certamente mais rápida e de mais fácil manutenção.

[vieira120414]

Bom dia, tudo bem?

Na verdade, eu preciso utilizar alguma ferramenta que possibilite uma conferência automatizada. Ex. eu tenho uma empresa que emiti 50 notas mês, porém eu preciso verificar quais numerações estão com data retroativa.

Você tem alguma sugestão?

Aguardo retorno assim que possível.

Atenciosamente,
Marco.

[Parkeless]

DJunqueira um poço de simpatia como sempre

Vieira, ficou bem claro seu exemplo. Fiz uma pequena modificação; os status "Verificar" agora aparecem nas células que você indicou.

Por favor, faça teste com outros dados, e veja se é isso o que precisa.

[DJunqueira]

Bom dia, tudo bem?
Na verdade, eu preciso utilizar alguma ferramenta que possibilite uma conferência automatizada. Ex. eu tenho uma empresa que emiti 50 notas mês, porém eu preciso verificar quais numerações estão com data retroativa.
Você tem alguma sugestão?
Aguardo retorno assim que possível.
Atenciosamente,
Marco.

Eu faria uma busca com a fórmula q te passei p/ os 50 próximos registros e depois filtraria na própria tabela, simples e prático.