Guru do Excel e Power BI

Pessoal que manja de VBA...tenho um codigo parar gerar o log das alterações, mas precisava registrar tb o valor antes da alteração
Segue codigo que estou utilizando


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wsHist As Worksheet, Rng As Range
Set wsHist = Sheets("LogPlan")
If Sh Is wsHist Then Exit Sub
Set Rng = wsHist.Range("A" & Rows.Count).End(xlUp).Offset(1)
With Rng
.Value = Now
.Offset(, 1) = Sh.Name
.Offset(, 2) = Target.Address
If Target.Cells.Count > 1 Then
.Offset(, 3) = "Valores Alterados"
Else
.Offset(, 3) = Target.Formula
End If
End With
End Sub

Nao adianta fazer 2, 3 topicos sobre o mesmo assunto.

Assim que alguem souber vai responder.

JorgeLuisNeves escreveu:Pessoal ...

Você abriu o tópico do link abaixo, abandonou, e agora abriu este com a mesma questão e com título diferente

viewtopic.php?f=12&t=7999&p=37554#p37554