Worksheet_Change para Worksheet_Calculate

0

Preciso de ajuda para reescrever minha pergunta de código original em um worksheet_calculate. Eu sou novo e estou tentando aprender, mas estou preso a este.

Quando eu uso Calculate no lugar da alteração, o código gera inúmeros erros. Eu li alguns comentários sobre adicionar uma sub rotina, mas não consigo acertar.

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("AD:AD,AB:AB"),  Target)
xOffsetColumn = -1
    If Not WorkRng Is Nothing Then
       Application.EnableEvents = False
       For Each Rng In WorkRng
    If Not VBA.IsEmpty(Rng.Value) Then
       Rng.Offset(0, xOffsetColumn).Value = Now
       Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
    Else
        Rng.Offset(0, xOffsetColumn).ClearContents
     End If
     Next
     Application.EnableEvents = True
End If
End Sub
    
por Terrib 26.02.2018 / 01:08

0 respostas