Ir ao conteúdo
  • Cadastre-se

GENECIOFICIAL

Membro Pleno
  • Posts

    204
  • Cadastrado em

  • Última visita

posts postados por GENECIOFICIAL

  1. agora, GENECIOFICIAL disse:

    Boa tarde!

     

    Não percebi no resultado da operação, acredito que faltou um pequeno ajuste, retornar o conteúdo da célula C1 - 365 dias

     

    A fórmula elaborada na célula E3, deverá verificar as condições anteriores, retornar o conteúdo da célula C1 - 365 dias, mais o conteúdo da célula E1.

     

    Grato.

     

  2. Boa tarde!

     

    Solicito a sua ajuda para sanar o problema.

    Na célula E3 elaborar uma fórmula com os quatro critérios. 

    Na célula C1, tenho a fórmula =Hoje()  

    Na célula E1, tenho o conteúdo:  XXXXXXXXXX

    Na célula A3 há uma data.

    Na célula C3, também haverá uma data, sempre posterior do que a data da célula A3 ambas as células não poderão esta vazia.

    A fórmula elaborada na célula E3, deverá verificar as condições anteriores, retornar o conteúdo da célula C1 - 365 dias, mais o conteúdo da célula E1.

     

    Grato.

  3. Bom dia!

    Na célula A1 tenho a data 01/01/2024, na célula B1 tenho a fórmula =hoje() por favor,  na célula C1 elaborar uma fórmula em Looping com o uso da fórmula =hoje() da célula B1, para contar 15 dias positivos e mais 15 dias negativos com o sinal de negativo.

    Após contar 15 dias  iniciando do número 1 ao 15,  iniciar a contagem regressiva iniciando do -15 ao -1 

    Observação: Os números 1 e 15 no contador constarão 2 vezes sendo:  1 e 15   -15 e -1. 

     

    Grato.

    PERG-CONTAD DO 1 AO 15 E DO -15 AO -1.xlsx

  4. Bom dia!

    Solicito a sua ajuda para resolver o problema.

    Postei a dúvida aqui no fórum e responderam-me com o código para excluir todos os arquivos da pasta, preservando apenas os 2 arquivos recentes.

    Porém o código apresentou conforme a imagem.

     

    Grato - Geneci.

     

     

    Sub PRESERVAOSDOISULTIMOSARQUIVOS()

    '

    ' Sub ManterArquivosMaisRecentes()

        Dim Pasta As String

        Dim Arquivos() As String

        Dim Arq As String

        Dim DataArq As Date

        Dim i As Long

       

        ' Especifique o diretório onde estão os arquivos

        Pasta = "E:\DADOS\VBA "

       

        ' Lista todos os arquivos no diretório

        ' Arquivos = VBA.FileSystem.Dir(Pasta)

       

        ' Inicializa a data mais recente como uma data muito antiga

        DataArq = DateSerial(1900, 1, 1)

            

            ' Extrai a data do nome do arquivo

            DataArquivo = CDate(Mid(Arq, InStrRev(Arq, "-") + 2))

           

            ' Verifica se a data do arquivo atual é maior que a data mais recente encontrada até agora

            If DataArquivo > DataArq Then

                DataArq = DataArquivo

            End If

         Next i

       

        ' Loop novamente para excluir os arquivos mais antigos

        For i = LBound(Arquivos) To UBound(Arquivos)

            Arq = Arquivos(i)

            DataArquivo = CDate(Mid(Arq, InStrRev(Arq, "-") + 2))

           

            ' Verifica se a data do arquivo é diferente da data mais recente

            If DataArquivo <> DataArq Then

                ' Exclui o arquivo

                VBA.FileSystem.Kill Pasta & Arq

            End If

        Next i

    End Sub

     

    IMAGEM-PERG-PRESERVAR-2-ARQUIVOS-RECENTES.png

  5. Muito obrigado por elaborar o código VBA, em atenção a solicitação, que resolve o problema.

    Desculpe por explorar a sua boa vontade e os sólidos conhecimentos.

     

    Considerando que um arquivo é salvo através de macro, e cada vez que é salvo gera um novo arquivo adicionando um numerador, acumulando vários arquivos.

     

    Pode ajustar o código VBA, para excluir todos os arquivos através do nome do arquivo, porém com o final diferente?

    Exemplo: Tenho os arquivos.

    Código rev 1

    Código rev 2

    Código rev 3

    Código rev 4

    Código rev 5

    Código rev 6

    Código rev 7

    A macro vai preservar apenas os arquivos:  Código rev 6

    Código rev 7

    Ou o código anterior atende a necessidade?

     

    Grato por dispor dos seus conhecimentos.

     

  6. Boa tarde!

    É possível elaborar um código vba, para excluir todos os arquivos e deixá-los apenas os dois arquivos com as datas mais recentes.

    Exemplo Tenho os arquivos: Código rev 1 - 17-10-2023        Código rev 2 - 18-10-2023        Código rev 3 - 19-10-2023       Código rev 4 - 20-10-2023                          Código rev - 5  19-10-2023

     

    A macro vai deixar apenas os 2 arquivos: Código rev 4 - 20-10-2023   Código rev - 5  19-10-2023

     

    Grato.

  7. Bom dia!

    Muito obrigado pela atenção.

    Vou fazer-me entender a minha duvida.

    noite 19-10-2023   é o nome do arquivo inicial.

    Na planilha com o código VBA, vou criar um botão com a macro elaborada para salvar o arquivo, a macro vai gerar um novo arquivo com o contador, o nome do novo arquivo será: noite 1 19-10-2023  observe que nesse arquivo abriu a contagem ao nome do arquivo.

    Quando abrir o arquivo, clico no botão com a macro,  o nome do arquivo será: noite 2 19-10-2023  observe que o contador mudou o nome do arquivo. E o arquivo inicial com o nome de: noite 19-10-2023 a macro deverá apagar excluir, de modo a ficar apenas os dois últimos arquivos anteriores.

     

    Grato.

     

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!