Colocar Data e Hora Automaticamente em Célula de Planilha ao Digitar via Excel VBA

Поделиться
HTML-код
  • Опубликовано: 5 дек 2024

Комментарии • 276

  • @CanalSGP
    @CanalSGP  4 года назад +4

    Formulário de Cadastro de Clientes completo em apenas uma aula:ruclips.net/video/FDwGgMQo3JM/видео.html

    • @suzukix222
      @suzukix222 2 года назад

      Muito bom, tentei de diversas formas, queria poder fazer isso direto no Excel.
      Então, fiz uma planilha igual a sua para testar, porém não sei onde estou errando.
      Na minha planilha eu usar, quando digito algo em A, B apareça a hora e travada. Por favor se puder me ajudar.

  • @Elias_Lima1
    @Elias_Lima1 2 года назад +2

    Pra quem quer só o mês exemplo: "Dez"
    Planilha1.Cells(i, 2).Value = Date
    Planilha1.Cells(i, 2).Value = Format(Planilha1.Cells(i, 2).Value, "mmm")
    Ou só o dia em número
    Planilha1.Cells(i, 1).Value = Date
    Planilha1.Cells(i, 1).Value = Format(Planilha1.Cells(i, 1).Value, "dd")
    Aprendi muito com essa aula, PARABENS, excelente trabalho!

    • @CanalSGP
      @CanalSGP  2 года назад

      Bom dia, obrigado.

  • @whandersonlima5350
    @whandersonlima5350 3 года назад +1

    Ótimo aula, vou usar o código e fazer alguns alteração para fazer um banco de hora automatizado, no lugar dos número 1,2,3 etc vou usar uma tag Rfid e um leitor

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, obrigado, sucesso em seus estudos.

    • @pedroratto
      @pedroratto 2 года назад

      Olá, nesse caso eu tentei usar o RFID e não funcionou. Também identifiquei que usando o ENTER após digitar o código, também não funciona. Só está funcionando usando o TAB ou as teclas seta esquerda ou direita. Sabem o motivo, poderiam me ajudar? Obrigado

  • @edsonjg
    @edsonjg 4 года назад +5

    Mandou super bem amigo, muito obrigado por compartilhar!!

    • @CanalSGP
      @CanalSGP  4 года назад

      Boa tarde, obrigado.

  • @lucasgodoy5356
    @lucasgodoy5356 2 года назад +1

    Excelente aula! vai me ajudar muito.
    Gostaria de saber como que eu faço pra por a DATA e também a HORA automaticamente cada uma em sua respectiva coluna. No seu vídeo explica como colocar um ou outro mas não os 2 juntos

    • @CanalSGP
      @CanalSGP  2 года назад +1

      Boa tarde, pode alterar a coluna que deseja colocar a hora, no lugar do três colocar o número da coluna que deseja inserir a hora.
      Planilha1.Cells(i, Coluna da hora).Value = vba.Time
      Planilha1.Cells(i, Coluna da hora).Value = vba.Format(Planilha1.Cells(i, Coluna da hora).Value, "hh:mm:ss")

  • @geraldomajelagurgel4038
    @geraldomajelagurgel4038 2 года назад +1

    Excelente Vídeo Professor. Muito bem explicado e detalhado sua Aula, me ajudou muito na minha planilha de Lançamentos Contábeis. Aproveitando, queria saber se é possível também digitar (Na minha Planilha2 na Coluna C digitar o Código da Conta e aparecer na Coluna D a Descrição desta Conta buscando está descrição na Planilha1?). As Planilhas estão na mesma Pasta de Trabalho.

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, é possível, mas não fiz vídeo neste sentido ainda, vou verificar para fazer algo relacionado.

  • @humbertolimaferreira2587
    @humbertolimaferreira2587 3 года назад +1

    Obrigado ppo compartilha conhecimento
    estava a procura sobre datas automatica e achei ufa

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, de nada.

  • @geraldomajelagurgel4038
    @geraldomajelagurgel4038 3 года назад +1

    Boa noite! Bacana os códigos. Queria saber se é possível buscar na coluna da Planilha1 (Plano de Contas Ex:(Caixa)) ao digitar em uma célula na coluna da Planilha2 (Lacto Contábil) e trazer está Descrição. Como se estivesse usando a Função Procv mas, em VBA?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, obrigado, não fiz algo assim ainda, mas acredito que seja possível.

  • @jeancoelho1813
    @jeancoelho1813 2 года назад +1

    Melhor explicação simples e passo-a-passo...

  • @ericayuko
    @ericayuko 2 года назад +1

    Valeu!

  • @mariomarino2
    @mariomarino2 3 года назад +2

    Excelente. Funciona perfeitamente! Obrigado!

    • @CanalSGP
      @CanalSGP  3 года назад

      Obrigado.

    • @suzukix222
      @suzukix222 2 года назад

      Olá, beleza? voce conseguiu fazer igual a do exemplo? poderia me ajudar por favor? eu não sei onde estou errando se tiver o modelo do codigo e for permitido ficaria muito agradecido

  • @Madruga12.
    @Madruga12. 4 года назад +1

    Muito bom, é que precisava. tenho uma duvida, se puder me ajudar agradeço: como faço para somar frase exemplo ( Sim ) e (Não), tipo contabilizar quantas vezes foi utilizado. Conforme vou preenchendo a coluna com (Sim), que possa ir contabilizando.

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Bom dia, obrigado, vou estudar essa necessidade se é possível no VBA, mas se deseja fazer a contagem via fórmula no Excel, pode utilizar a função conte-se.

    • @Madruga12.
      @Madruga12. 4 года назад

      @@CanalSGP Bom dia, obrigado pelo retorno. A função Conte-se ela funciona somente contar os caracteres? Exemplo (sim= 3 ). Minha planilha é um controle rural, onde eu necessito contar quantos animais apresentou o (Sim), e quantidade de quantos apresentou o (Não).10 animais (sim) e 5 animais (Não). Pra depois eu dividir a quantidade de (sim) pela quantidade que passou que será a soma dos dois, 10/15.

  • @denisalves3396
    @denisalves3396 3 года назад +2

    Amigo do canal preciso muito da sua ajuda. Eu tenho uma planilha de ações onde na coluna C eu digito o nome da ação e na coluna B já aparece automaticamente a data. Fiz conforme seu vídeo, alterando para minhas condições e funcionou perfeitamente. Só que preciso fazer exatamente o mesmo nesta planilha também na coluna F e G, ou seja, quando digito o código da ação na coluna G deve preencher a data automaticamente na coluna F. Vc poderia me ajudar como devo fazer para que na mesma planilha eu consiga fazer o que lhe expliquei? Agradeço se puder me ajudar.

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, vai precisar replicar o if da variável coluna e todos os códigos dentro deste if, fazendo alteração para referenciar as novas colunas.

    • @denisalves3396
      @denisalves3396 3 года назад +1

      @@CanalSGP Boa tarde amigo. Eu tentei fazer e não consegui, pois dá erro. Acredito que é porque eu não tenho muito conhecimento em VBA. Seria possível eu lhe enviar a planilha para vc dar uma olhada? Acho que deve ser algo bem simples para arrumar. Se puder me ajudar agradeço muito, pois só falta isso para terminar minha planilha.

    • @suzukix222
      @suzukix222 2 года назад

      olá, poderia me ajudar? eu estou tentando fazer igual o modelo e num sei onde erro, vou continuar tentaando aqui

  • @janiotruculo760
    @janiotruculo760 5 лет назад

    Muito bom mesmo. Meu caro, dá para aplicar este código em textbox de userfom? Se eu preencher qqr elemento do userfom, ou abri-lo, determinado textbox é preenchido com a data/hora.

  • @AGB1992
    @AGB1992 11 месяцев назад

    Boa tarde. Uma dúvida, se eu fazer esses ajustes na planilha, nas novas que eu abrir, esses ajuste vai manter ou somente nessa planilha que fiz os ajustes ?

    • @CanalSGP
      @CanalSGP  11 месяцев назад

      Bom dia, macro vai rodar somente na guia que fez a macro.

  • @giancarlocalherani5854
    @giancarlocalherani5854 3 года назад +2

    Excelente video, obrigado!!! Aproveitando surgiu uma questão, se eu quisesse que, como exemplo que duas coluna tivessem suas informação automatizada, (Coluna A informação "manual imputada" - Coluna B Data "automatizada" e Coluna C Hora "automatizada", deste modo seria possível tudo ao mesmo tempo. Como proceder se sim.

    • @CanalSGP
      @CanalSGP  3 года назад +2

      Boa tarde, pode definir a coluna que deseja alterando o número dentro do parênteses:
      Planilha1.Cells(i, 2).Value = VBA.Date
      Planilha1.Cells(i, 3).Value = vba.Time

    • @giancarlocalherani5854
      @giancarlocalherani5854 3 года назад

      @@CanalSGP muito obrigado pelo feedback, vou testar aqui... e continue com este trabalho maravilhoso.

    • @CanalSGP
      @CanalSGP  3 года назад

      @@giancarlocalherani5854 Obrigado.

  • @Freeedih
    @Freeedih 2 года назад +1

    Muito bacana o video, o código funcionou perfeitamente! Porem tenho uma dúvida: A situação acima obriga você a escrever e apertar ENTER ou TAB. Na minha situação especifica, a minha coluna "Numero" são dados salvos, que engloba: "Cliente Ativo" / "Cliente Inativo". Se esse cliente inativar ou reativar, teria a data da atualização dessa situação. Dito isso, quando eu seleciono o botão ao lado da celula para escolher entre ativo ou inativo, a data não atualiza, acredito eu que porque o excel fica na mesma celula talvez? Caso eu escreva novamente e aperte para ir para baixo ou para o lado ele vai, porem selecionando os dados não. Poderia me ajudar a solucionar essa questão?

    • @CanalSGP
      @CanalSGP  2 года назад

      Bo tarde, pode testar outros eventos para o código também, talvez no evento selectionchange, que vai acionar o código sempre que selecionar.

    • @suzukix222
      @suzukix222 2 года назад

      olá vc conseguiu executar igual o exemplo? to tentando mas não sei onde estou errando...

  • @ThiagoCuna-b1e
    @ThiagoCuna-b1e 11 месяцев назад

    Ótima aula oq eu quero e parecido mas invez de colocar data e hora preciso que coloque o mesmo número que eu digitar são três tipo de sequência e cada sequência tem que ir para determinada coluna teria como fazer isso?

    • @CanalSGP
      @CanalSGP  11 месяцев назад

      Bom dia, obrigado, pode tentar alterar a linha de código a seguir.
      Planilha1.Cells(i, 4).Value = VBA.Time
      Para
      Planilha1.Cells(i, 4).Value = Planilha1.Cells(i, 2).Value

  • @agostinhoaraujo9145
    @agostinhoaraujo9145 Год назад

    Boa tarde. Excelente vídeo, sigo em Portugal seu canal, com excelentes aulas de excel..................no entanto segui todas instruções só não está funcionando quando é apagado o valor da célula A5 não apaga a célula C5, mas se apagar valor de A6 ele apaga C5, ou seja pelo que entendo anda uma linha abaixo na coluna A em relação à C. Pode me ajudar a detetar o erro? Obrigado.

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, obrigado, confirme se os código foram inseridos no evento correto da guia da planilha.

    • @agostinhoaraujo9145
      @agostinhoaraujo9145 Год назад

      @@CanalSGP Obrigado pela rápida resposta, os códigos estão corretamente inseridos (excel em PT-PT) Folha1, e o código está a funcionar, no entanto como referi apaga valores sempre uma linha abaixo A5 não apaga nada, A6 apaga C5; A7 apaga C6, e assim consecutivamente.

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.

  • @NAVEGADOR05
    @NAVEGADOR05 3 года назад +2

    Muiiiiiito bom amigo!
    Ajudou muito, to panhando aqui em uma fórmula parecido com essa.
    Queria;
    ( digitando na coluna A aparecesse a data na coluna C e que essa data não mudasse fosse fixa. E se eu não digitar nada na coluna A não aparecesse nada tb na coluna C)
    Estou tentando com =hoje() mas, a data muda🤦🏻‍♂️

    • @CanalSGP
      @CanalSGP  3 года назад +2

      Boa noite, somente via código para fazer isso, mas precisaria colocar condições if para definir quando alterar, mas é procedimento semelhante ao da vídeo aula, experimente fazer exemplo igual do vídeo, depois que funcionar tenta adaptar para sua planilha.

    • @iurisaraiva6837
      @iurisaraiva6837 3 года назад +2

      para data fixa, vc pode criar a seguinte function:
      Function DateTime()
      DateTime = Now
      End Function
      Aí, acredito que seja só vc chamar a função dentro do código

    • @suzukix222
      @suzukix222 2 года назад

      amigo, beleza? e vc conseguiu? não consigo aplicar as mesmas nem nessa do exemplo, do jeito que vc falou...

  • @cesarcorreia5161
    @cesarcorreia5161 Год назад

    professor, vc é top, so descobri que era possivel fazer isso com seus videos, ja to seguindo!
    Seria possivel bloquear as celulas pra nao ser possivel apagar após a entrada dos dados?

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, pode colocar no código para retirar a senha e colocar depois de alterar. Segue link de vídeo sobre senha com vba. ruclips.net/video/63Ocl6v6b6o/видео.html

  • @dreze3438
    @dreze3438 8 месяцев назад

    Fala, meu querido, tudo bem?
    Há alguma maneira de fazer com que esta macro reconheça os valores que foram colados?
    Fiz a macro, e ao colar os dados, não foram adicionadas a data/hora, apenas quando digitei o valor.

    • @CanalSGP
      @CanalSGP  8 месяцев назад

      Bom dia, não tentei ainda para inserir data ao colar, mas vou estudar o tema.

  • @raquelmachado3128
    @raquelmachado3128 3 года назад

    Olá caro professor tem uma função de só em clicar na célula sem digitar ela fazer e a função? Ou só escrevendo nela ?

    • @CanalSGP
      @CanalSGP  3 года назад +1

      Boa tarde, pode tentar mudar de evento na planilha, verifique para colocar o código no evento change da planilha, que vai ser acionado sempre que selecionar.

  • @juniorwanderley4241
    @juniorwanderley4241 2 года назад

    Bom dia professor! Primeiramente parabéns pela aula.
    Sabe me dizer como chego no desenvolvedor para aplicar essa fórmula no WPS OFFICE (excel do Linux)?

    • @CanalSGP
      @CanalSGP  2 года назад

      Bom dia, obrigado, no linux não sei dizer, não usei ainda.

  • @PauloHenrique-jm7tk
    @PauloHenrique-jm7tk 10 месяцев назад

    Boa noite, tem algum vídeo com CORREÇÃO de horas?
    Um exmplo, tem uma coluna com várias horas erradas do que foi passado pela empresa, para eu não corrigir um por um, tem algum vídeo explicando como corrigir tudo automaticamente?

    • @CanalSGP
      @CanalSGP  10 месяцев назад

      Boa noite, infelizmente neste sentido não tenho vídeo.

  • @Fernando_MF
    @Fernando_MF 3 года назад

    Muito bom. Você sabe como utilizo esse evento Change para dispara uma Macro em uma Planilha no On Drive com varias pessoas acesando a planilha. Exemplo: Quando o Evento Change ativar gostia que executasse a macro para todos usuarios que estivesse online na planilha, tem como fazer isso?

    • @CanalSGP
      @CanalSGP  3 года назад +1

      Bom dia, obrigado, no ano drive não tentei fazer, mas acredito que no Excel online não tem suporte para o vba

    • @Fernando_MF
      @Fernando_MF 3 года назад

      @@CanalSGP então eu utilizo o Excel desktop mesmo porém com atualização automática nas planilhas, quando algum outro usuário adubar um produto já aparece para todos, porém queria fazer um sistema onde caso alguém já esteva com o userform aberto o sistema avisa q já está aberto e se gostaria de derrubar a outra pessoa do userform dela

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, o que pode fazer é bloquear abrir a planilha se for no modo somente leitura, com um if no evento open da planilha.

  • @lydupromo6993
    @lydupromo6993 Год назад +1

    Show de bola. Poderia fazer com zoom na tela. Pois não dar pra ver os comandos

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, vídeos mais atualizados tem zoom melhor.

  • @geraldomajelagurgel4038
    @geraldomajelagurgel4038 3 года назад

    Bom dia! Você tem alguma demonstração desse tipo?

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, não entendi exatamente sua dúvida.

  • @BrunoLima-pe9ur
    @BrunoLima-pe9ur Год назад

    Olá, boa tarde professor! Como fazer para aparecer as datas se, por exemplo, copiarmos e colarmos números em massa ao invés de digitar um por um, e da mesma forma como excluir e fazer desaparecer as datas em massa também?

    • @BrunoLima-pe9ur
      @BrunoLima-pe9ur Год назад

      É possível também, a exclusão pelo botão Delete individualmente e em massa?

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, não tentei fazer procedimento para copiar e colar ainda, mas acredito que vai ser um pouco complexo.

  • @mescobar2755
    @mescobar2755 3 года назад +1

    Olá, boa tarde.
    Será que você poderia me ajudar?
    Eu estou tentando copiar o valor da coluna P, linha aleatória (ex. P5), mas, desde que a "O5" esteja vazia. Caso seja ""; "".
    Se "O5 = ""; copia a "P5" e cola na "O10" por exemplo.

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, pode tentar com um if, para verificar as condições, mas não tenho exemplo semelhante em vídeo ainda.

    • @mescobar2755
      @mescobar2755 3 года назад

      @@CanalSGP Bom dia.
      Já tentei com "If", mas não funcionou. Devo ter cometido algum erro. Tentei várias vezes.

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, segue link de vídeo explicativo sobre utilização de if. ruclips.net/video/O4K9UED1_L8/видео.html

  • @RodrigoSouza-hd5cs
    @RodrigoSouza-hd5cs 4 года назад

    Muito bom mesmo agora eu estava querendo saber como deixar dentro do txtbox o formato de horas para eu digitar a hora e depois eu somar essas horas de maneira automático vc tem algum vídeo mostrando?

    • @CanalSGP
      @CanalSGP  4 года назад

      Boa tarde, segue exemplo de soma de horas, quem sabe ajude:
      ruclips.net/video/dr4Oeyk64nA/видео.html

  • @rafaelbarbosa8835
    @rafaelbarbosa8835 2 года назад

    Boa noite ei consigo aplicar essa mesma condição usando o access como banco de dados?

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, direto no Access não tentei ainda.

  • @luki6347
    @luki6347 Год назад

    Boa tarde meu querido! Otimo video.
    Mas queria saber, como posso fazer pra duplicar esse codigo? Por exemplo ali tu digita na coluna A para sair na coluna C.
    Mas eu queria que alem de sair o horario dessa, tambem quando eu digitasse na coluna D saisse o horario na coluna E tambem... Seria possivel?

    • @CanalSGP
      @CanalSGP  Год назад +1

      Boa noite, obrigado, precisa replicar os ifs.
      On Error Resume Next
      If Planilha1.Cells(i, 4).Value "" Then
      If Planilha1.Cells(i, 5).Value = "" Then
      If C 3 Then
      If i > 5 Then
      'COLOCAR HORA
      Planilha1.Cells(i, 5).Value = VBA.Time
      Planilha1.Cells(i, 5).Value = VBA.Format(Planilha1.Cells(i, 5).Value, "hh:mm:ss")
      'COLOCAR DATA
      Planilha1.Cells(i, 5).Value = VBA.Date
      End If
      End If
      End If
      End If

    • @luki6347
      @luki6347 Год назад

      @@CanalSGP muito obrigado pelo retorno! Funcionou perfeitamente!!!
      Abraço! +1 inscrito

    • @CanalSGP
      @CanalSGP  Год назад +1

      Que bom.

  • @lucivalb
    @lucivalb 3 года назад +1

    Valeu a aula. 👏👏👏

  • @fernandasimas-l1g
    @fernandasimas-l1g Год назад

    Boa noite, Tentei aplicar mas esta constando o seguinte erro (Erro de compilação: Somente comentários podem aparecer após End Sub, End Function, ou End Property) Sinalizando a parte Private Sub Worksheet_Change(ByVal Target As Range), Como seria possivel corrigir o erro? Desde já agradeço.

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, pode ser erro de digitação do código, pode estar faltando fechar um end sub, end if ou talvez end with.

  • @TVDESAFIOS
    @TVDESAFIOS Год назад

    Uso uma planilha de controle de entrada de veículos e nessa planilha eu quero automatizar hora e data ao digitar a placa do veículo, tem algum vídeo que pode me ajudar nesse sentido?

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, exatamente nesta necessidade não tenho exemplo.

  • @philipemanhaes2
    @philipemanhaes2 Год назад

    Olá.
    Uma dúvida.
    Já criei a planilha e gostaria de aplicar no meu trabalho, porém as formulas utilizadas não funcionam no SharePoint. Existe uma forma de usar esse arquivo de forma compartilhada sem perder essas alterações?

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, que eu saiba não tem como, o vba funciona apenas no Excel desktop.

  • @danyllojonathas5183
    @danyllojonathas5183 3 года назад

    Olá bom dia amigo , eu segui os passos aqui mas não consegui automatiza minha planilha para por a hora em uma linha e a data em outra, seria possível fazer as duas automatizada de forma que se eu digitar em uma coluna C a coluna B recebe a hora e a coluna A recebe a data?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, é possível, mas vai precisar adequar a lógica, melhor fazer um exemplo igual ao da aula primeiro, depois tenta adaptar.

  • @alex.oliveira.consultor
    @alex.oliveira.consultor 4 года назад

    Bom dia, parabéns pelo Canal. Me inscrevi e vou adquirir suas planilhas. Deixe eu lhe perguntar. Caso que faça este comando no Excel, ao migrar para o Google Sheet, pois preciso compartilhar esta planilha com minha equipe... sabe se eu perco a função?

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Boa noite, perde a função, porque os códigos VBA não são suportados pelo Google Planilhas. Mas tem macros em script no Google Planilhas, segue link de vídeo aula com o mesmo procedimento com javascript: ruclips.net/video/SX3q_waJYD4/видео.html

  • @eduardo87636
    @eduardo87636 2 года назад

    Consigo colocar data automaticamente na cédula, quando a minha planilha receber(transferência) automaticamente de dados de outra planilha ?

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, este procedimento funciona apenas para a digitação, copiar e colar não funciona.

  • @jacksonsudre9601
    @jacksonsudre9601 4 года назад

    Boa noite!
    Muito obrigado pelo vídeo nota 10!
    Pode me ajudar toda vez que eu abro a planilha preciso digitar o código eu gostaria de abrir a planilha e começar a digitar e aparecer a data automaticamente tipo um controle de entrada e saída quero registrar a saída com data para depois somar a quantidade de saída.
    Obrigado mais uma vez pelo apoio

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, obrigado, não entendi exatamente sua dúvida, mas se o seu código está sendo apagado, é porque não salvou a planilha habilitada para macro. Depois de colocar seu código na planilha, vai arquivo, Salva como e na janela de salvar, em tipo, altere para segunda opção, pasta de trabalho habilitada para macro.

  • @Limonetto
    @Limonetto 4 года назад

    Olá! Será que consigo fazer isso no Calc do LibreOffice? Eu não sei se o Calc aceita VBA.

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, infelizmente não tenho conhecimento sobre LibreOffice.

  • @951hebert
    @951hebert 4 года назад

    Excelente vídeo...
    Seria possível fazer esse procedimento?
    Toda vez que eu atualizasse o valor na célula A1, o valor antigo fosse "empurrado pra celular A2", e assim consequentemente?
    Exemplo:
    Hoje
    A1 = 10...
    Amanhã vou atualizar...
    A1= 32... A2=10
    Depois de amanhã vou atualizar novamente...
    A1 = 23... A2 = 32
    ....

    • @CanalSGP
      @CanalSGP  4 года назад

      Boa tarde, acredito ser possível, mas até o momento não tenho procedimento neste sentido, vou estudar se é possível fazer algo. Se obtiver sucesso posto no canal.

  • @rodrigogladson
    @rodrigogladson 4 года назад

    Adorei este código limpo, só uma uma dúvida: eu sei que quando eu apago por carácter na coluna A, eu apago na C, mas quando eu apago direto na A não funciona na C diretamente.

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Bom dia, vou verificar essa necessidade.

  • @leandrolamindepaulapereira9485
    @leandrolamindepaulapereira9485 3 года назад

    professor, If i > 5 Then
    esse item se refere ao cabeçalho ?

    • @CanalSGP
      @CanalSGP  3 года назад +1

      Bom dia, se refere se a linha em questão for maior que a linha 5 da planilha.

  • @philipemanhaes2
    @philipemanhaes2 Год назад

    Boa tarde.
    Uma duvida... quero que saia tanto a data como hora na mesma célula.
    Coloquei desta forma aqui, mas a data e o mês estão saindo invertidos. Pode me ajudar?
    Planilha1.Cells(i, 4).Value = Date & Space(3) & Time

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, precisa definir que se trata de data, por exemplo:
      Dim Data As Date
      Data = vba.Date
      Planilha1.Cells(i, 4).Value = Data & Space(3) & Time

    • @philipemanhaes2
      @philipemanhaes2 Год назад

      @@CanalSGP Em qual parte eu coloco esta informação? Me ajudaria muito se resolvesse este problema.
      Muito obrigado!
      Private Sub Worksheet_Change(ByVal Target As Range)
      Application.EnableEvents = False
      Application.ScreenUpdating = False
      Dim i As Integer
      Dim C As String
      C = ActiveCell.Column
      If C = 1 Then
      i = ActiveCell.Row - 1
      Else
      i = ActiveCell.Row
      End If
      On Error Resume Next
      If Planilha1.Cells(i, 1).Value "" Then
      If Planilha1.Cells(i, 3).Value = "" Then
      If C 3 Then
      If i 4 Then
      Planilha1.Cells(i, 3).Value = Date & Space(3) & Time
      End If
      End If
      End If
      End If
      If C = 1 Then
      If Planilha1.Cells(i, 1).Value = "" Then
      Planilha1.Cells(i, 3).Value = ""
      End If
      End If
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub

    • @CanalSGP
      @CanalSGP  Год назад

      Private Sub Worksheet_Change(ByVal Target As Range)
      Application.EnableEvents = False
      Application.ScreenUpdating = False
      Dim i As Integer
      Dim C As String
      C = ActiveCell.Column
      If C = 1 Then
      i = ActiveCell.Row - 1
      Else
      i = ActiveCell.Row
      End If
      On Error Resume Next
      If Planilha1.Cells(i, 1).Value "" Then
      If Planilha1.Cells(i, 3).Value = "" Then
      If C 3 Then
      If i 4 Then
      Dim Data as Date
      Data = vba.Date
      Planilha1.Cells(i, 3).Value = Data & Space(3) & Time
      End If
      End If
      End If
      End If
      If C = 1 Then
      If Planilha1.Cells(i, 1).Value = "" Then
      Planilha1.Cells(i, 3).Value = ""
      End If
      End If
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub

  • @BrunoSharkGames
    @BrunoSharkGames Год назад

    Bom dia eu quero fazer essa macro mais em colunas diferente da coluna A pra H o que eu preciso mudar agradeço se responder!

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, onde tem 3 precisa colocar 8 para referenciar a coluna H.

  • @mescobar2755
    @mescobar2755 4 года назад

    Muito bom, Top
    Fiz e deu muito certo.
    Só uma dúvida:
    Como faço para usar esse mesmo código duas vezes na mesma planilha?
    Ex. Você usou a coluna "A" e a coluna "C". Como usar também nas Colunas, ex., "E" e "G"?
    Já usei, e deu muito certo, nas colunas "B" e "G"; gostaria de usar, também, nas colunas "J" e "M".
    Como proceder?
    Desde de já agradeço.

    • @mescobar2755
      @mescobar2755 4 года назад

      Gostaria de agradecer. Consegui.
      Foi só copiar a partir de "Dim G As String" e mudar as colunas.

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Bom dia, que bom, sucesso em seus estudos.

  • @adrianomagalhaes9315
    @adrianomagalhaes9315 5 лет назад

    Muito toooper, show
    Obrigado por compartilhar!
    Uma dúvida, nessa mesma estrutura, é possível a célula ser bloqueada 10 segundos após a digitação?

    • @CanalSGP
      @CanalSGP  5 лет назад +2

      Olá, obrigado, não vi nada parecido ainda, mas vou estudar, se obtiver sucesso, gravo vídeo explicativo.

    • @ehuvine
      @ehuvine 4 года назад

      Caraio baita estudo

  • @mescobar2755
    @mescobar2755 4 года назад

    Olá! boa tarde, professor !
    Acompanho o seu canal já há algum tempo, gosto muito dos seus vídeos.
    Trabalho com controle de estacionamento. E com suas dicas automatizei minha planilha de trabalho, ficou muito boa.
    Gostaria de mais uma ajuda sua, se possível. Na coluna "K", da minha planilha, é digitado a placa do veículo e são preenchidas automaticamente as colunas "L", "M" e "N". As colunas "L" e "M" são reservadas para a identificação do motorista. Na coluna "N" é o horário de entrada do veículo. Na coluna "O", que não é automatizada, é o horário de saída. A cada novo dia de trabalho, através de um botão de comando, é adicionada uma nova planilha. Na primeira linha desta, nas colunas "K", "L", "M", "N" e "O", é colocado a data e o dia da semana (sendo que as colunas "K", "L" e "N" ficam vazias, na coluna "M" é a data e na "O" é o dia da semana). Ela, a primeira linha, tem apenas o contorno sem divisões entre as colunas, parecendo mescladas ainda que não sejam.nas linhas subsequentes é o registro dos veículos como descrito acima. O meu pedido de ajuda é o seguinte: às vezes determinados veículos entram e não saem no mesmo dia, ficando em aberto a saída (coluna "O") e três dias depois, mais ou menos, quando ele sai, digita-se a placa na coluna "K" e na coluna "N"é preenchido automaticamente o horário de entrada, mas ele não está entrando e sim saindo. O que eu gostaria de fazer? Gostaria, que ao digitar uma placa (na célula K20, por exemplo), o Excel verificasse se no último registro desta placa, está o horário de entrada (coluna "N") e o de saída (coluna "O"). Se verdadeiro, então, na célula "N20" coloque o horário de entrada do dia em que está sendo digitado, como já faz. Se falso, ou seja, se a saída (coluna "O") estiver em aberto, então, verifique qual é a data desse último registro copie e cole na célula "N20" em vez de colocar o horário de entrada. Digamos que o último registro esteja na linha "10", então, na célula "O10", que deveria ser colocado o horário de saída, mas que está em aberto porque o veículo pernoitou, coloque-se a data do dia do novo registro. Que essa Makro seja ativada condicionada a digitação da placa do veículo na coluna "K".

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Boa tarde, obrigado, infelizmente até o momento não tenho procedimento neste sentido, vou estudar se é possível fazer algo, mas é bem complexo o que deseja.

  • @kevinsantos5112
    @kevinsantos5112 2 года назад

    Boa tarde, a minha nao esta funcionando, não aparece nenhuma mensagem de erro mas também nao acontece nada quando eu digito, assisti o video algumas vezes não consegui identificar onde errei, a planilha não esta bloqueada, funciona normal, é como se o código não rodasse (esta em Worksheet e como change)

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, teste colocar um ponto de interrupção no código e ir executando linha por linha de código com a tecla F8.

  • @leandrolamindepaulapereira9485
    @leandrolamindepaulapereira9485 3 года назад

    seria possível colocar variáveis para usuário que tenha um pouco de conhecimento só alterar as colunas?, tipo para usar o mesmo código para outras planilhas

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, talvez retirar a proteção apenas das colunas desejada, mas não testei se o código vai rodar.

    • @andreluizmoisesdelima4826
      @andreluizmoisesdelima4826 6 месяцев назад

      @@CanalSGP Não roda se incluir proteção de planilha.

    • @CanalSGP
      @CanalSGP  6 месяцев назад

      Boa tarde, acredito que não.

  • @EdifícioOlympic
    @EdifícioOlympic Год назад

    Boa tarde
    Na parte:
    If A = 2 Then
    i = ActiveCell.Row - 1
    Else
    i = ActiveCell.Row
    End If
    a data está aparecendo na linha anterior por causa do -1
    \uso uma lista de escolha e gostaria de quando escolhe um item da lista a data aparecesse na mesma linha e não na linha anterior.
    Poderia me ajudar com exemplo???
    Obrigado

    • @CanalSGP
      @CanalSGP  Год назад

      Boa noite, teste retirar o -1 para ver.

  • @doma-show
    @doma-show 3 года назад

    CAra eu estou tendo um problemão, talvez vc possa me ajudar.
    As minhas informações vem de um bloco de notas e por isso o código vba não funciona, como vc fazer?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, talvez trabalhar com um loop para colocar a data posteriormente. Sobre loop tenho outra aula, mas vai precisar adaptar para sua necessidade, segue link.ruclips.net/video/CaBMdrIWFp4/видео.html

  • @GustavoSilva-tc3gm
    @GustavoSilva-tc3gm 3 года назад

    Oiii no caso eu quero fazer dois botões para colocar 2 horários em diferentes lugar, como eu poderia prosseguir??

    • @CanalSGP
      @CanalSGP  3 года назад +1

      Bom dia, para colocar a hora em célula com botão, pode utilizar o código a seguir:
      Por exemplo:
      Planilha1.Range("A1").Value = vba.time

  • @luizhenrique-pg6in
    @luizhenrique-pg6in 3 года назад

    Muito boa a explicação, porém eu gostaria de saber mais uma coisa, tem como eu limitar essa funcionalidade até um certo número de linha.
    Exemplo:
    A funcionalidade se aplica da linha 5 até a linha 10 da coluna C

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, obrigado, pode alterar a condição if a seguir:
      If i > 5 and i < 10 Then

  • @jorgericardorzatki7654
    @jorgericardorzatki7654 Год назад

    Fiz a macro e funcionou beleza porém, quando protejo as células alteradas o VBA não altera mais essas células. Tem como liberar isso?

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, talvez se retirar a senha via código no inicio da macro e colocar novamente no final.

    • @jorgericardorzatki7654
      @jorgericardorzatki7654 Год назад

      @@CanalSGP deixei sem senha para evitar qualquer problema...deve ter alguma restrição no excel ... tô procurando mas, ainda não achei.

    • @CanalSGP
      @CanalSGP  Год назад

      ok.

  • @AuditoriasMKT
    @AuditoriasMKT 3 месяца назад

    Olá! Consegui adicionar, mas o calendário me mostra tudo a zero e não mostra o dia. Se clico passa corretamente na tabela, mas não consigo ver o número nos dois cliques.

    • @CanalSGP
      @CanalSGP  3 месяца назад

      Bom dia, teste aumentar o tamanho das label do formulário.

  • @btisonia
    @btisonia 3 года назад

    e se toda vez que eu adicionar essa linha, eu quero que ela já venha com a primeira coluna "data" com a data do dia preenchida, como faz?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, a macro precisa de uma célula para disparar, porque se colocar por exemplo no evento change da planilha, toda vez que selecionar a planilha a macro vai ser disparada.

  • @Pedro19893
    @Pedro19893 3 года назад

    Por favor me ajude! Tenho um ficheiro excel com data e horas. O que eu quero fazer é automatizar de tal maneira que sempre que eu coloque como hora de entrada ou saida, meia noite em diante, a data some automaticamente um dia, como se de um relogio se tratasse. Nao estou conseguindo fazer isso.

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, não fiz código assim ainda, o mais próximo disso é a soma de dias a uma data e gerar nova data. ruclips.net/video/S3sfj2WTBD4/видео.html

    • @Pedro19893
      @Pedro19893 3 года назад +1

      @@CanalSGP Muito obrigado pela rapida resposta e ajuda ! Bem haja amigo

  • @inaciofilho117
    @inaciofilho117 4 года назад

    Tem como colocar a data em uma determinada coluna quando copio os dados de uma planilha com varias coluna e colo em outra planilha , quero que na planilha de destino em determinada coluna preencha com a data atual da forma que está este vba não consigo com que a data funcione em todas as linhas que foram coladas somente na primeira linha traz a data atual.

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, experimente colocar os códigos dentro de um loop, parecido ao da vídeo aula no link a seguir:
      ruclips.net/video/NBCP0LDxLf8/видео.html

  • @GabrielNascimentogfn
    @GabrielNascimentogfn 4 года назад +1

    Funciona no aplicativo do excel para celular?

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, não testei, mas acredito que não.

  • @rosecosta2824
    @rosecosta2824 4 года назад

    Muito legal! Vou testar!
    Como devo fazer para colocar critérios de resposta na coluna 1. Exemplo: se for status "finalizado", registrar a hora ou a data?

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Bom dia, obrigado, experimente colocar uma condição a mais antes de registrar a data.
      If Planilha1.Cells(i, 1).Value = "finalizado" Then
      Planilha1.Cells(i, 3).Value = VBA.Date
      End If

    • @rosecosta2824
      @rosecosta2824 4 года назад +1

      @@CanalSGP Vou testar! Muito obrigada!

    • @CanalSGP
      @CanalSGP  4 года назад

      De nada.

  • @edilsonmoraisofc
    @edilsonmoraisofc Год назад

    Da pra fazer pelo celular?

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, não é possível.

  • @komandoforte1206
    @komandoforte1206 3 года назад

    Olá. Gostaria muito de fazer essa planilha mais no OpenOffice da empresa mais esse código vba não funciona. Já tentei de tudo. Pode né ajudar por favor.
    Tipo mudar esse código de vba abaixo pra OpenOffice.
    Private Sub Worksheet_Change(ByVal Alvo As Range) Dim limite_maximo As Integer limite_maximo = 1000 ' altere aqui para limitar a última linha If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub ' faz nada se mais de uma célula modificada ou se deu delete If Alvo.Column = 1 And Alvo.Row

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, infelizmente não tenho ideia de como resolver essa questão.

  • @wellyntonsouza5045
    @wellyntonsouza5045 3 года назад

    E se eu precisar colocar na coluna C linha 18 a informação e a data eu preciso que ela apareça na coluna G linha 7 teria como?

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, não entendi exatamente o que deseja fazer.

  • @andremagalhaes9865
    @andremagalhaes9865 8 месяцев назад

    Preciso de ajuda não consigo resolver isso a dias
    Trabalho viajando e sempre fazemos uma manutenção
    Tenho uma coluna com a Data e hora
    Fiz uma coluna ao lado pra marcar que toda vez que eu colocar o horário atual automaticamente nessa coluna apareça uma pausa que é equivalente a 20 minutos, sendo que vou fazer a soma de todas as paradas pra descontar no fim de viagem
    Como eu consigo a resolver isso?
    Isso é possível
    Deixa seu WhatsApp pra mim tentar resolver… so falta isso pra concluir a minha planilha

    • @CanalSGP
      @CanalSGP  8 месяцев назад

      Bom dia, talvez fazer uma célula menos a outra de forma normal no Excel. Sobre somar horas, se for via código vai ser um pouco complexo, mas somando diretamente na planilha é soma normal.

    • @andremagalhaes9865
      @andremagalhaes9865 8 месяцев назад

      @@CanalSGP pode passar seu WhatsApp?
      Pra você me da uma luz
      Usuário recente de um excel

  • @g-techautomacao317
    @g-techautomacao317 3 года назад

    É possível fazer no Google Sheets?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, é possível, segue link de vídeo aula neste sentido. ruclips.net/video/SXiQJEKSY60/видео.html

  • @priscilasantossantana7546
    @priscilasantossantana7546 4 года назад

    Fiz tudo como no vídeo mas com referencias coluna 8 para as datas na coluna 7 a partir da linha 5 e não funcionau e pediu depuração na linha: 'If .Planilhal.Cells(i, 8).Value "" Then

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Bom dia, provavelmente tem erro na escrita da linha de código:
      'If .Planilhal.Cells(i, 8).Value ""
      If Planilha1.Cells(i, 8).Value ""

    • @priscilasantossantana7546
      @priscilasantossantana7546 4 года назад +1

      @@CanalSGP Obrigado

    • @CanalSGP
      @CanalSGP  4 года назад

      @@priscilasantossantana7546 De nada.

  • @muniz7943
    @muniz7943 4 года назад

    Toda vez que eu abrir a planilha tenho que ativar essa opção? Ou fica automatico

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Boa tarde, se a planilha está configurada para aceitar a execução de macros, vai ficar automático.

    • @muniz7943
      @muniz7943 4 года назад

      @@CanalSGP e se caso e precisar abrir outra planilha que não precise dessa opção, desabilito a macro?

    • @CanalSGP
      @CanalSGP  4 года назад

      Não vai ter a macro em outra planilha.

  • @gilbertodossantosfilho7028
    @gilbertodossantosfilho7028 4 года назад

    podemos fzer esse comndo em mais de duas colunas na mesma celula?

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, se refere a alterar mais colunas de acordo com a linha, sim é possível.

  • @anunakfilm73
    @anunakfilm73 3 года назад

    Não está funcionando se a célula tiver validação de dados, mesmo que a mesma esteja "Vazia", tem alguma forma de resolver a questão?

    • @CanalSGP
      @CanalSGP  3 года назад +1

      Bom dia, vou estudar essa falha.

    • @anunakfilm73
      @anunakfilm73 3 года назад

      @@CanalSGP Consegui resolver a questão da validação de dados, porém quando eu protejo a planilha para que outra pessoa não selecione as células onde irá aparecer a DATA e Hora, ela simplesmente deixa de funcionar... Funciona somente com a célula desbloqueada kkkk Tem como resolver esse problema?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, pode retirar a senha ao iniciar o código e colocar novamente no final do procedimento. ruclips.net/video/eQX9rpWNreg/видео.html

  • @hugao958
    @hugao958 4 года назад

    O produto de uma célula é um número variável. Como copiar esse número que é variável para diferentes células, toda vez que eu quiser inserir ele em nova célula já será um número que variou

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Boa tarde, vou estudar essa necessidade, se é possível fazer algo.

    • @hugao958
      @hugao958 4 года назад

      CANAL SGP obrigado

  • @rafaelgbaum
    @rafaelgbaum 3 года назад

    Precisava colocar em outra celula na mesma linha para aparecer na celula ao lado - No exemplo ai é da coluna a para c. queria que fosse da a para c e da f para g por exemplo.. Nao estou conseguindo
    Obrigado

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, mas vai mudar as referência ao número das colunas, se for trabalhar com duas colunas.
      If Coluna = 3 or Coluna = 4 then

  • @lucasotavio1964
    @lucasotavio1964 Год назад

    Eu queria que inserisse automaticamente a data e hora na célula ao lado, quando o a condição da célula anterior *[=SE(ÉERROS(D2);"";"DESMONTADO")]* fosse igual a falso *("Desmontado")*
    Já tentei de várias formas e não consigo.

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, com fórmula não sei se vai dar certo esta macro.

  • @CaipiradoBHZ
    @CaipiradoBHZ Год назад

    Tenho um desafio. Eu tenho uma planilha que tem a hora de entrada e de saida de pessoas (por ex)quando ela chega eu consigo o preenchimento automatico, porem pra sair não. isso no Excel on line.

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, no Excel online não fiz código ainda.

  • @DiegoSilvaVP
    @DiegoSilvaVP 3 года назад

    No meu caso não funcionou de jeito nenhum, só que no caso quero digitar na coluna 4 e a data aparecer na coluna 1 fiz todo. Passo a passo invertendo os números das colunas, no final de tudo simplesmente não acontece nada. Habilitei tudo mas não funciona. HELLP

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, confirme se está no evento correto da planilha, talvez seja isso.

  • @dayanesuderio485
    @dayanesuderio485 4 года назад

    Muito boa explicação !! Tenho uma dúvida, que não achei em nenhum lugar a resposta.
    Eu consigo fazer mais de uma VBA na mesma a aba da planilha ? No meu caso essa macro, utilizei para me informar o horário inicial de um processo(assim que digito algo na coluna 1, automaticamente me vem a hora na coluna 3. Exemplo inicio as 17h), preciso agora que ela me de o hora final final desse processo (assim que eu digitar algo na coluna 4, vem o horário automático na coluna 5), exemplo 19h. Depois eu faço uma subtração para saber o tempo entre inicio e fim. Me ajudaria muito essa informação, obrigada

    • @CanalSGP
      @CanalSGP  4 года назад

      Boa noite, obrigado, vou estudar essa necessidade.

    • @dayanesuderio485
      @dayanesuderio485 4 года назад

      @@CanalSGP Muito Obrigada, estou no aguardo.

    • @fernandoramalho2786
      @fernandoramalho2786 4 года назад

      @@CanalSGP OLA, você conseguiu estudar esta possibilidade?

    • @CanalSGP
      @CanalSGP  4 года назад

      @@fernandoramalho2786 Boa tarde, ainda não foi possível desenvolver lógica para para fazer o cálculo entre as horas.

  • @VANTRIP
    @VANTRIP Год назад

    não consigo acionar a opção de desenvolvedor no meu excel, oque poderia estar ocasionando isso? tentei varias formas mas nada faz acionar esta opção

    • @CanalSGP
      @CanalSGP  Год назад +1

      Boa tarde, talvez seja uma versão que não está liberado esta opção.

    • @VANTRIP
      @VANTRIP Год назад

      Consegui aqui thanks 🙏

    • @CanalSGP
      @CanalSGP  Год назад

      Que bom.

  • @silviosjfsilvio1
    @silviosjfsilvio1 3 года назад

    Fiz o procedimento acima mas não funciona. Nem erro dá! O que pode ser? Pode me orientar?

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, talvez seja referência as colunas. Deixe seu e-mail que envio a planilha da aula.

  • @nilsondossantos7978
    @nilsondossantos7978 5 лет назад

    Boa Tarde
    Parabens, seria possivel a cada alteração na coluna A a fata ser acrescida nas colunas D E F G.... e assim sucessivamente montando um historico?

    • @CanalSGP
      @CanalSGP  5 лет назад +1

      Boa tarde, é possível, mas precisar ser ajustado com loop de localização de célula vazia.
      Do
      If Not (IsEmpty(ActiveCell)) Then
      ActiveCell.Offset(0, 1).Select
      End If
      Loop Until IsEmpty(ActiveCell) = True

  • @2delegaciadepoliciacivilde203
    @2delegaciadepoliciacivilde203 2 года назад

    Professor, boa tarde. Como eu coloco a data e hora?

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, deseja colocar data e hora na mesma célula?

    • @thalesbreno9121
      @thalesbreno9121 2 года назад

      @@CanalSGP Boa tarde professor, estou com a mesma dúvida. Gostaria que aparecesse automaticamente a data e a hora na mesma célula, como proceder?

    • @CanalSGP
      @CanalSGP  2 года назад +1

      Boa tarde, pode junta as duas informações. Data & " " & Hora

  • @rafaelribeiro7451
    @rafaelribeiro7451 3 года назад

    Se eu quisesse colocar mais uma coluna, coluna de horas e coluna de data, como ficaria?

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, pode fazer da seguinte forma por exemplo:
      Planilha1.Cells(i, 2).Value = VBA.Date
      Planilha1.Cells(i, 3).Value = vba.Time

  • @Assisrocha1000
    @Assisrocha1000 2 года назад +1

    Excelente

  • @RafaelSantos-my7dp
    @RafaelSantos-my7dp 2 года назад

    Consigo fazer com que a data fosse imputada na coluna 1 em vez da 3

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, sim, basta alterar o número da coluna nos códigos.

  • @tatianyarraislopes2619
    @tatianyarraislopes2619 10 месяцев назад

    O que fazer quando a planilha ficar dando problemas para salvar após colocar esse código?

    • @CanalSGP
      @CanalSGP  10 месяцев назад

      Boa tarde, qual problema.

    • @tatianyarraislopes2619
      @tatianyarraislopes2619 10 месяцев назад

      @@CanalSGP Problemas com salvamento

    • @CanalSGP
      @CanalSGP  10 месяцев назад

      Qual mensagem retorna.

    • @tatianyarraislopes2619
      @tatianyarraislopes2619 10 месяцев назад

      @@CanalSGP nenhuma . Na hora da coleta de dados tudo ok. Daí eu salvo o arquivo. E simplesmente some tudo que fiz .

    • @CanalSGP
      @CanalSGP  10 месяцев назад

      Bom dia, se está perdendo a macro, precisa salvar a planilha habilitada para macro do Excel.

  • @suzukix222
    @suzukix222 2 года назад

    Olá pessoal, sei que já tem algum tempo. Por favor se alguém puder me ajudar. Fiz uma planilha do exemplo do Professor, mas não consigo identificar o erro. Por favor se alguém puder me ajudar, muito grato

    • @CanalSGP
      @CanalSGP  2 года назад

      Bom dia, retorna alguma mensagem de erro?

  • @priscilasantossantana7546
    @priscilasantossantana7546 4 года назад

    Boa tarde! eu corrigir mas nenhum efeito:
    coluna h p/data automática e coluna h p/preencher.
    Segue dados:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Dim i As Integer
    Dim C As String
    C = ActiveCell.Column
    If C = 8 Then
    i = Active.cell.Row - 1
    Else
    i = Active.cell.Row
    End If
    On Error Resume Next
    If Plan1.Cells(i, 8).Value "" Then
    If Plan1.Cells(i, 7).Value "" Then
    If C 7 Then
    If i 5 Then
    'OUT2020.Cells(i, 7).Value = Time
    'OUT2020.Cells(i, 7).Value = Format(OUT2020.Cells(i, 3).Value, "hh:mm:ss")
    Plan1.Cells(i, 7).Value = Date
    End If
    End If
    End If
    End If
    If C = 8 Then
    If Plan1.Cells(i, 8).Value = "" Then
    Plan1.Cells(i, 7).Value = ""
    End If
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End Sub

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, deixe seu e-mail que envio a planilha para que possa comparar.

    • @priscilasantossantana7546
      @priscilasantossantana7546 4 года назад

      @@CanalSGP joevaldo1@hotmail.com

    • @priscilasantossantana7546
      @priscilasantossantana7546 4 года назад

      outra coisa: quero saber, se a coluna que eu quero a data automática vem antes da celula não vazia. esse codigo seria o correto?

    • @priscilasantossantana7546
      @priscilasantossantana7546 4 года назад

      desde já agradeço!

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, código para colocar data ou hora, precisa estar dentro das condições if que estabelecer.

  • @gelsonluis2877
    @gelsonluis2877 4 года назад

    tem como disponibilizar a planilha com o código?

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, deixe seu e-mail nos comentários.

    • @kissmyledgun
      @kissmyledgun 4 года назад

      huengers@gmail.com

    • @priscilasantossantana7546
      @priscilasantossantana7546 4 года назад

      tambem quero: joevaldo1@hotmail.com pois ainda não chegou!

    • @DaniloFarooficial
      @DaniloFarooficial 3 года назад

      @@CanalSGP danilo.o.santos@hotmail.com
      eu não consegui ai queria comparar pra ver onde eu to errando.

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa noite, planilha da vídeo aula enviada.

  • @tarcisvictordasilva6420
    @tarcisvictordasilva6420 2 года назад

    Boa tarde
    Quando faço filtro não funciona, alguém sabe me dizer como ajusto?

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, esta lógica funciona somente em uma linha por vez, no momento da edição.

  • @andfer1539
    @andfer1539 4 года назад

    Dá pra fazer o mesmo com a data?

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Boa tarde, não entendi sua dúvida, neste vídeo abordamos também a data.

    • @emersonlima2997
      @emersonlima2997 4 года назад

      E

  • @mlsgbbrasil9006
    @mlsgbbrasil9006 4 года назад

    nao entendo nada de logica de programação, se eu quiser q em uma célula aparecesse a data e a outra a ora como eu faria?
    Private Sub CommandButton1_Click()
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End Sub
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Dim i As Integer
    Dim c As String
    c = ActiveCell.Column
    If c = 1 Then
    c = ActiveCell.Column
    If c = 1 Then
    i = ActiveCell.Row - 1
    Else
    i = ActiveCell.Row
    End If
    On Error Resume Next
    If Planilha1.Cells(i, 1).Value "" Then
    If Planilha1.Cells(i, 3).Value = "" Then
    If c 3 Then
    If i 5 Then
    'Planilha1.Cells(i, 3).Value = Time
    'Planilha1.Cells(i, 3).Value = Format(Planilha1.Cells(i, 3).Value, "hh,mm,ss")
    Planilha1.Cells(i, 3).Value = Date
    End If
    End If
    End If
    End If
    End If
    If c = 1 Then
    If Planilha1.Cells(i, 1).Value = "" Then
    Planilha1.Cells(i, 3).Value = ""
    End If
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End Sub

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Boa noite, altere a coluna, onde tem o 3.

    • @mlsgbbrasil9006
      @mlsgbbrasil9006 4 года назад

      @@CanalSGP ^^

  • @celiareginagagoserpa8917
    @celiareginagagoserpa8917 3 месяца назад

    Como fazer isso no planilhas google?

    • @CanalSGP
      @CanalSGP  3 месяца назад

      Boa tarde, segue link de vídeo sobre planilhas Google. ruclips.net/video/SX3q_waJYD4/видео.html

  • @aquelamikaela
    @aquelamikaela 2 года назад

    fiz tudo mas não deu certo, não aparece nenhuma mensagem de erro

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.

  • @mlsgbbrasil9006
    @mlsgbbrasil9006 4 года назад

    o meu ta dando erro no primeiro evento ...
    Private Sub CommandButton1_Click()
    Aplication.EnableEvents = True

    • @CanalSGP
      @CanalSGP  4 года назад +1

      Bom dia, está faltando um p no Aplication.EnableEvents = True
      Correto é: Application.EnableEvents = True

    • @mlsgbbrasil9006
      @mlsgbbrasil9006 4 года назад

      a valeu obrigado. feliz natal agora deu certo falta de atenção minha

    • @CanalSGP
      @CanalSGP  4 года назад

      @@mlsgbbrasil9006De nada.

  • @JordaniaVeras
    @JordaniaVeras 2 года назад

    boa tarde eu foz todo os tetes nao funciona isso ai nao boa tarde

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, alguma mensagem de erro?

  • @priscilasantossantana7546
    @priscilasantossantana7546 4 года назад

    O script não funcionou no meu excel 2013.

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, verifique se colocou os códigos no evento correto da planilha.

  • @mlsgbbrasil9006
    @mlsgbbrasil9006 4 года назад +1

    Muito BOmmmmmmmmmmmmmmmmmmmmmmmmm

    • @CanalSGP
      @CanalSGP  4 года назад

      Obrigado.

    • @mlsgbbrasil9006
      @mlsgbbrasil9006 4 года назад

      @@CanalSGP eu to precisando de outo bem parecido tem como eu fazer tipo quando clicar no botão tanto o botão o mesmo botão baixa-se junto com uma determinada quantidade de linhas? clicando no botão e não na célula

    • @CanalSGP
      @CanalSGP  4 года назад

      Bom dia, neste sentido não tenho procedimento ainda.

  • @giscardesoares6572
    @giscardesoares6572 5 лет назад +1

    Top...

  • @mtdasilva1
    @mtdasilva1 3 года назад

    E copiando e colando, pois só está ativando a primeira célula

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, não entendi exatamente sua dúvida

    • @mtdasilva1
      @mtdasilva1 3 года назад

      @@CanalSGP Exemplo: se eu selecionar os números 1,2,3,4 e copia e colar, só a primeira celula selecionada irá trazer a data, o restante não. Ex2. Se eu pegar nomes de outra planilha né colar, só vai aparecer a data do primeiro nome

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, sim, somente a primeira.