ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

LOG DE ALTERAÇÃO

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
filipeborelli
Colaborador
Colaborador
Mensagens: 10
Registrado em: Seg Dez 26, 2016 3:14 pm

LOG DE ALTERAÇÃO

Mensagem por filipeborelli » Sex Jul 19, 2019 1:19 pm

Preciso de um código que me de o log de uma celula especifica.

Código: Selecionar todos

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim wsHist As Worksheet, Rng As Range
    Set wsHist = Sheets("TOTAIS")
    If Sh Is wsHist Then Exit Sub
    Set Rng = wsHist.Range("L" & Rows.Count).End(xlUp).Offset(1)
    With Rng
        .Value = Now
        If Target.Cells.Count > 1 Then
        Else
            .Offset(, 1) = Target.Formula
        End If
    End With
End Sub

Atualmente estou com esse codigo , mas ele me da o log de todas as alterações nas planilhas, eu preciso de um antes de depois de uma celula especifica.

Exemplo
Tinhamos: R$ 109.604,82 <-- quando esse valor for alterado manualmente ele me dar o antes e o depois.
Total: R$ 109.604,82
Evolução: R$ 0,00
%: 0%

Boletos Pagos: R$ 36.221,80
% Pagos Hoje: 33%


"A inovação é o que distingue um Líder de um Seguidor."
~ Steve Jobs

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.


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 200
Registrado em: Ter Dez 04, 2012 8:57 am

Re: LOG DE ALTERAÇÃO

Mensagem por PRMPOKER » Sex Jul 19, 2019 2:27 pm

Prezados, Boa tarde!
Caro filipiborelli, tudo certo?

Vocẽ tem leitura técnica de inglês? Vou deixar aqui dois belos exemplos de como trabalhar com LOGs. Dá uma olhadinha se te ajuda.

https://www.vitoshacademy.com/vba-creat ... c-actions/

https://www.ozgrid.com/forum/forum/help ... s-of-range

Um abraço!



Paulinho Monteiro
VBA - Front/BackEnd Developer

Email: falecom@paulinhomonteiro.com
falecompaulinhomonteiro@gmail.com
Whatsapp (54) 9925 340 85
www.paulinhomonteiro.com

Responder