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

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 »

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%


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: 206
Registrado em: Ter Dez 04, 2012 8:57 am

Re: LOG DE ALTERAÇÃO

Mensagem por PRMPOKER »

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!


Responder