Histórico de alterações VBA
Enviado: Qua Jun 13, 2018 10:09 am
Olá, eu estava acompanhando um conteúdo sobre histórico de alterações e queria saber se poderia me ajudar com algo mais específico. Pois este código que tenho salva qualquer alteração a qualquer momento, e eu precisava de alterações feitas as 13h, 14, 15h 16, ou seja em horários específicos. Ou seja, esta planilha atualiza sozinha o preço em real time, pois é um link RTD, mas preciso do histórico de preços em horários específicos, todos os dias.
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
If Target.Cells.Count > 1 Then
.Offset(, 3) = "Valores Alterados"
Else
.Offset(, 3) = Target.Formula
End If
End With
End Sub
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
If Target.Cells.Count > 1 Then
.Offset(, 3) = "Valores Alterados"
Else
.Offset(, 3) = Target.Formula
End If
End With
End Sub
- l.jpg (67.99 KiB) Exibido 1433 vezes