Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Mudança de valor em qualquer célula da Coluna A

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Mudança de valor em qualquer célula da Coluna A

Mensagem por Mauro Coutinho »

Troque a rotina pela a abaixo e veja se é isto.
Uma obs, se o Valor digitado for o mesmo que já estava, por padrão não é feito recalculo, então a data e horário permanecem os que estavam da primeira alteração e/ou digitação.

Código: Selecionar todos

Private Sub Worksheet_Calculate()
    Dim myRange As Range
    Dim CellAddr As String
    Dim sValor As String
    Dim sLin As String
    
    sValor = ActiveCell.Offset(-1, 0)
    sLin = ActiveCell.Offset(-1, 0).Row
    
    Set myRange = Sheets("Plan1").Range("A" & sLin)
            
            'Se o valor digitado for igual ao que já estava
            'não é armazenado e colocado data e horário
            If myRange.Value = sValor Then
                CellAddr = CellAddr & "," & myRange.Address(0, 0)
            End If

    CellAddr = Mid(CellAddr, 2)

    If Len(Trim(CellAddr)) <> 0 Then
        Range(CellAddr).Offset(0, 2).Value = Now
    End If
    
End Sub
[]s


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Re: [RESOLVIDO] Mudança de valor em qualquer célula da Coluna A

Mensagem por Mathmatic »

tópico RESOLVIDO.

Muito obrigado sr. Mauro,

Fechou certinho, éh isso mesmo que eu buscava !

mais uma vez, Parabéns pelo seu conhecimento !


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Mudança de valor em qualquer célula da Coluna A

Mensagem por Mauro Coutinho »

Mathmatic escreveu:tópico RESOLVIDO.

Muito obrigado sr. Mauro,

Fechou certinho, éh isso mesmo que eu buscava !

mais uma vez, Parabéns pelo seu conhecimento !
Mauro Coutinho
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder