Ir ao conteúdo
  • Cadastre-se
Giancarlo de Oliveira

EXCEL Horario fixo

Recommended Posts

Boa noite,

 

Caros é possível ao inserir um texto dentro da célula A1, na celular B1 seja mostrado o horário

em que o texto foi inserido, onde mesmo que eu altere ou apague o conteúdo de A1 a hora registrada

em B1 não seja apagada ou atualizada ? Preciso que essa rotina não dependa de um botão.

 

Estou a semanas procurando uma forma de fazer essa rotina, naveguei algumas postagens aqui 

do fórum, na internet já diversas abordagens, mas não encontrei nada que resolvesse isso.

 

Nas soluções que tentei a hora sempre acaba sendo atualizada, ou o registro da fica condicionado

ao uso de botão.

 

Fiquem com Deus

Abraço

Giancarlo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Experimente esse codigo

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub

If Range("A" & Target.Row).Value <> "" Then
   Range("B" & Target.Row).Value = Time
  
End If

End Sub

 

 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vou tentar aqui e já digo se deu certo.

Mas muito obrigado adiantado

adicionado 12 minutos depois
Em 01/05/2017 às 11:22, CasaDoHardware disse:

Experimente esse codigo

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub

If Range("A" & Target.Row).Value <> "" Then
   Range("B" & Target.Row).Value = Time
  
End If

End Sub

 

 

 

Casa do Hardware,

 

Seu código já atendeu 50% da minha situação :thumbsup:

Ainda preciso que se um usuário altere ou exclua o valor já digitado em qualquer célula da coluna A,

a hora mostrada na coluna B, não seja atualizada ou deixe de ser mostrada.

 

você acha possível algo desse tipo ?

 

Super, mega obrigado por enquanto irmão.

 

 

adicionado 16 minutos depois

Ah...

Eu disse que atendeu 50% do problema, por que seu código já está fazendo a parte de na coluna B

mostrar a hora ao inserir um valor em qualquer célula da coluna A. Falta essa parte que comentei, onde

se um usuário alterar ou excluir algum valor de células da coluna A, a hora que ficou registrada nas

células coluna B não sejam alteradas ou perdidas.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mas o codigo faz isso.

 

 

O que esta acontecendo de diferente?

 

Se você inserir dados a celula registar a hora se apagar a hora permanece sem alteração.

 

Os testes que fiz aqui funcionaram dessa forma.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Compartilhar este post


Link para o post
Compartilhar em outros sites
19 horas atrás, CasaDoHardware disse:

Mas o codigo faz isso.

 

 

O que esta acontecendo de diferente?

 

Se você inserir dados a celula registar a hora se apagar a hora permanece sem alteração.

 

Os testes que fiz aqui funcionaram dessa forma.

Usei o código em uma planilha em branco (nova) e também na versão em que estou trabalhando,

mas nos dois casos acontece o mesmo. Quando digito algum valor em qualquer célula da coluna A, 

surge o horário na célula ao lado, ou seja coluna B. Até aí beleza.

 

Mas se apagar ou modificar o conteúdo da célula em que a pouco digitei algo, a hora mostrada na

coluna B é atualizado. Tentei uma porção de vezes, mas em todos casos sempre ocorre a atualização 

da hora.

 

Posso estar fazendo de errado, mesmo estando em uma planilha em branco (nova) ?

Você tem alguma planilha com esse função funcionando de forma que a hora mostrada

na coluna B não seja recalculada quando a valor da célula ao lado é alterado ?

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Experimente este

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim li As Long

li = ActiveCell.Row

If Cells(li, 2).Value <> "" Then Exit Sub

If Target.Column <> 1 Then Exit Sub
If Range("A" & Target.Row).Value <> "" Then
   Range("B" & Target.Row).Value = Time
  
End If

End Sub
 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

CasaDoHardware funcionou :thumbsup::thumbsup::thumbsup::thumbsup:

Percebi algo que não sei se você havia reparado também

 

Se eu digitar algo em A3, em B3 surge a hora atual, até aí beleza...

Mas se eu acessar A3 novamente sem ter digitado nada em outra

célula e alterar o valor de A3 a hora é atualizada.

 

A hora só fica congelada como eu preciso se:

Apos digitar algo em A10 (por exemplo) a hora vai surgir em B10, beleza...

Em seguida eu devo digitar algo em qualquer outra célula da coluna A, por

exemplo A15, agora sim, se eu voltar para A10 e mudar o valor contido

nessa célula a hora que está em B10 não é mais atualizada.

 

Apesar desse pequeno detalhe, a função ficou show. Vai servir para minha

planilha numa boa.

 

Mega obrigado pelo código, quase desisti de conseguir...rs

Ótimo final de semana. 

Fique com Deus.

 

Att.

Gian 

 

 

adicionado 3 minutos depois

Patropi,

 

Vou testar mais a noite e dou um retorno.

Eu dei uma lida no código e parece que vai servir sim, muito obrigado pelo Link.

 

Obrigado pela parceria.

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Patropi

Estou usando sua sugestão de código :thumbsup:

Minha planilha complementar, precisou de um modelo muito parecido ao código que você sugeriu,

nem precisou de muita mudança...:)

Muito grato pela ajuda.

 

Ótima semana. 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite,

 

Amigos usei o seguinte código do @CasaDoHardware

Private Sub Worksheet_Change(ByVal Target As Range)
Dim li As Long

li = ActiveCell.Row

If Cells(li, 2).Value <> "" Then Exit Sub

If Target.Column <> 1 Then Exit Sub
If Range("A" & Target.Row).Value <> "" Then
   Range("B" & Target.Row).Value = Time
  
End If

End Sub

 

Mas queria expandir o uso desse código para utiliza-lo referenciado em outras 

colunas da minha planilha.

Nessa versão ele já funciona referenciado nas colunas A e B, onde ao inserir

algum valor em células da coluna A, na célula ao lado (coluna ) surge a hora.

 

Tentei  alterar alguns parâmetros desse código para que ele também faça essa

função referenciado por exemplo:

ao inserir algum dado em células da H, na mesma e na coluna M apareça a hora.

É possivel ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia Giancarlo

 

Experimente este código que adaptei para uma dúvida em outro fórum, que faz o seguinte:

-Quando digito alguma coisa na coluna A, aparece a hora automaticamente na coluna B

- Quando digito alguma coisa na coluna C, aparece a hora automaticamente na coluna D

- Quando digito alguma coisa na coluna E, aparece a hora automaticamente na coluna F

- Quando digito alguma coisa na coluna G, aparece a hora automaticamente na coluna H

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A100,C1:C100,E1:E100,G1:G100")) Is Nothing Then
        If Target.Value <> 0 Then
            Target.Offset(0, 1) = Str(Time)
        End If
    End If
End Sub

é só você adaptar as colunas que você deseja e também ao numero de linhas

 

Dê retorno.

 

[]s

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite,

 

Patropi, o código atende metade da premissa. 

Com esse código consegui alterar as referencias de coluna e isso já é muito bom :D

Mas quando alteramos os valores de alguma célula que eu já tenha inserido algum dado

a hora acaba sendo atualizada. 

 

No meu caso preciso que após a hora surgir pela 1º vez ela não se atualize mais, mesmo

mudando o valor de alguma célula que já foi preenchida. 

 

Tenho um outro projeto que esse código já está me ajudando :thumbsup:

Já agradeço de qualquer forma.

Abraço irmão.

 

 

Att.

Gian

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×