Código VBA para Inserir Data e Hora ao Clicar em Checkbox no Excel

Aprenda a criar um código VBA no Excel que insere automaticamente a data e hora ao clicar em um checkbox, facilitando o rastreamento de eventos.

Veja o video de como usar o codigo 👇

Ver essa foto no Instagram

Uma publicação compartilhada por Max Andrade | codigoti 🧠 (@codigoti)

Codigo: 👇


Sub Checkbox_Click()
    Dim coluna As String
    Dim linkedCell As Range
    
    coluna = "D" 'Alterar Coluna

    Dim chkBox As CheckBox
    Set chkBox = ActiveSheet.CheckBoxes(Application.Caller)
    Set linkedCell = Range(chkBox.linkedCell)
    
    If chkBox.Value = xlOn Then
    
        Range(coluna & linkedCell.Row).Value = Date & "  " & Format(Time, "hh:mm")    
    Else
    	Range(coluna & linkedCell.Row).Value = ""
    End If
End Sub