none
Registrar alterações na Planilha RRS feed

  • Pergunta

  • Pessoal, tenho um codigo para registrar as alterações feitas na plan, porem só registra o valor alterado(novo), alguem consegue ajudar com ajuste do codigo para registrar o valor antigo?

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        Dim wsHist As Worksheet, Rng As Range
        Set wsHist = Sheets("História")
        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
            .Offset(, 3) = VBA.Environ("username")
            If Target.Cells.Count > 1 Then
                .Offset(, 4) = "Valores Alterados"
            Else
                .Offset(, 4) = Target.Formula
            End If
        End With
    End Sub

    sexta-feira, 8 de março de 2019 23:26