Para salvar informações de acordo com o tempo que nós definir beleza pessoal então vamos para o VBA guia desenvolvedor Visual Basic eu.
Vou fazer a macro em um módulo então menu inserir módulo e dentro do módulo primeiro passo é definir uma variável do tipo Public Public eu vou chamar esta.
Variável de iniciar as buan variáveis do tipo buano podem receber true ou false na sequência precisamos fazer a nossa macro sub eu vou chamar esta macro de.
Salvar abre e fe fe parênteses e pressiona enter próximo passo é colocar um sistema de tratamento de erro on error go to.
Duplas vírgula VB Critical vírgula abre aspas duplas título da mensagem salvar e fecha as aspas duplas por enquanto deixem desativado o sistema de tratamento de erro próximo.
Passo é definir as variáveis da nossa macro din linha as Double do tipo número din data as date vírgula e eu quero salvar também a hora também do tipo.
Date na sequência precisamos capturar data e hora podem copiar a variável data e a variável data vai ser igual a vdate pega a variável.
Hora e a variável hora vai ser igual a VBA PN para capturar a hora do momento próximo passo é colocar um if para verificar se a variável iniciar é igual a true podem copiar a variável.
Iniciar if se a variável iniciar igual true if Se entrou nest if nós vamos salvar os registros para a planilha no entanto antes de salvar eu vou atualizar a planilha colocando.
Veja Também:
- Planilha de Acompanhamento de Vendas e Clientes em Excel 6.0
- Pacote de Planilhas para Coaches
- Configurar Carteirinha ,posicionando Foto e Dados Pessoais, Planilha cadastro de Membros completa
Comando
Workbook pon refresh All para atualizar tudo na sequência precisamos referenciar a guia da planilha no meu caso o nome da guia é.Dados mas eu preciso referenciar o nome interno do VBA da Guia que é este planilha um fora dos parênteses em Então dentro do if it no meu caso planilha 1 e para.
Fechar Wi end Wi e dentro deste Wi Primeiro passo é localizar a próxima linha vazia podem copiar a variável linha e a variável linha vai ser igual a.
Uma função work fun para contar quantas células esterci abre e fe pares e dentro dos.
Pares pto Range abre e fea parênteses e dentro dos parênteses do Range abre e fecha aspas duplas e dentro das aspas duplas precisamos referenciar a área da planilha.
Excel então acessem a planilha no meu caso eu vou fazer a contagem na coluna h no entanto tem um detalhe eu preciso somar também as células vazias acima do cabeçalho e somar mais um para cair na.
Próxima linha vazia então no meu caso para cair na próxima linha vazia eu preciso somar mais dois de volta no VBA dentro das aspas duplas no meu caso coluna H dois.
Pontos H fora dos parênteses mais do já sei a próxima linha vazia já posso salvar as informações então ponto cus abre e fecha.
Parênteses e dentro dos parênteses variável linha vírgula em qual coluna que eu vou salvar a informação no meu caso primeira.
Informação que eu vou salvar é na coluna
H no entanto eu preciso referenciar a coluna pelo número então vamos ver coluna a coluna 1 B2 C3 D4 E5.F6 G7 coluna H coluna 8 de volta no VBA coluna 8 fora dos parênteses ponto value igual e agora eu vou salvar a data no entanto eu quero definir o formato da.
Data então VBA Format abre e fecha parênteses e dentro dos parênteses do Format nós vamos colocar a variável data podem copiar e colar vírgula abre e fecha aspas duplas e dentro das aspas.
Duplas nós vamos definir o formato eu quero salvar no formato dia 2D para o dia barra mm para o mês barra 4 Y para o ano na sequência eu vou salvar a hora para facilitar podem Copiar esta linha.
De código mas lembra de alterar a coluna no meu caso agora vai ser a coluna nove pega a variável or coloca dentro dos parênteses do.
Format e o formato da hora vai ser H dois pontos mm para os minutos 2is pontos SS para os segundos e na próxima coluna eu vou salvar a cotação do dólar para facilitar.
Podem Copiar esta parte Altera a coluna e agora pessoal no meu caso eu tenho a cotação do dólar na célula C3 mas eu preciso referenciar a célula pela.
Numeração Então vai ser linha 3 col de volta no VBA depois do sinal de iG ponto c abre e fea pares e dentro dos parênteses linha 3 ví coluna 3 fora dos parênteses.
Ponto desta forma já estamos salvando as informações para a planilha Excel agora depois que fechar o it nós precisamos definir o tempo de execução da nossa macro então.
Application P One Time onetime espaço VBA PN para capturar a hora do momento mais VBA PT value abre e fecha parênteses e dentro dos.
Parênteses abre e fecha aspas duplas e dentro das aspas duplas 0 dois pontos 0 para os minutos 2 pontos 04 porque no meu caso eu quero Executar a macro a cada 4.
Segundos vírgula e abre e fecha aspas duplas e dentro das aspas duplas vai o nome da nossa macro podem copiar o nome da macro e.
Colar dentro das aspas duplas beleza galera fizemos a macro próximo passo é acionar a nossa macro na planilha Excel.
Acessa o Excel no meu caso eu vou colocar dois botão de comando um botão de comando para acionar a macro e outro para parar Então guia desenvolvedor menu inserir controles Active x botão de.
Comando redimensiona para o tamanho que você deseja Clica com o botão direito do Mouse sobre o objeto e vai em propriedades propriedade caption este.
Vai ser o botão iniciar bcor seta paleta pode ser este Azul fecha as propriedades duplo clique no botão de.
Comando e agora nós precisamos passar o parâmetro true para vari então variável iniciar iG próximo passo é acionar a nossa macro.
Que nós fizemos no módulo 1 então módulo 1 ponto E já apareceu o nome da macro salvar volta no Excel e agora para facilitar podemos copiar Bot contol c contol v coloca Onde você.
Deseja Clica com botão direito do mouse sobre o objeto propriedades Cap este vai ser o botão parar bcor seta paleta cor de preenchimento pode ser em.
Vermelho fecha as propriedades clique no botão de comando e agora nós vamos colocar a variável iniciar como sendo false V copiar e colar e alterar o true para.
False deixa eu dar uma organizada para ficar melhor volta no Excel retira do modo design salva as alterações precis salar a planilha habilit para.
Macro do Excel Bele vamos testar primeiro eu atualizar a planilha atualizar tudo clicando no botão iniciar salvou a primeira informação no.
Me caso vai salvar a cotação do dólar a cada 4 Segundos E olha que show pessoal automaticamente a macro está salvando os registros para a planilha Excel a cada 4 Segundos parar como não aconteceu erro o.
Nosso código podemos ativar o sistema de tratamento de erro guia desenvolvedor Visual Basic módulo 1 ATIV o sistema de tratamento de erro salva as alterações está feito a nossa macro para.
