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
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%