Transforme uma célula do Excel em um botão inteligente (Checklist automático)

No vídeo de hoje eu mostrei como criar um checklist inteligente dentro do próprio Excel, sem usar botões de formulário.
Você simplesmente clica numa célula… e ela vira um botão funcional: marca a tarefa com um ✔, pinta a linha de verde e grava automaticamente a data e hora da conclusão.

Essa técnica é perfeita para quem quer agilizar rotinas, controlar tarefas, organizar demandas e deixar a planilha com uma cara mais profissional.

Aqui no post eu deixo o passo a passo e também o código pra você copiar e usar na sua planilha.

Como funciona?

Nós usamos o evento BeforeDoubleClick da planilha.
Ou seja: quando você dá um duplo clique em uma célula da coluna B, o Excel identifica e executa a ação que programamos.

A lógica é simples:

  • Se a tarefa estiver marcada → ele limpa tudo
  • Se não estiver → ele coloca o ✔️, pinta a linha e adiciona a data/hora

Sem fórmulas, sem controles ActiveX, sem botão arrastado da guia Desenvolvedor.
Simples, direto e eficiente.

🧩 Estrutura da planilha

Use três colunas:

D → Data/Hora de conclusão
B → Check
C → Descrição da tarefa

🧠 Pega o Código! 


Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Celula As Range
    Cancel = False

    ' Coluna do checklist (B6:B100)
    If Not Intersect(Target, Me.Range("B6:B100")) Is Nothing Then
        Cancel = True
        Set Celula = Target

        With Celula
            If .Value = ChrW(&H2705) Then ' ✔️ desmarcar
                .Value = ""
                Me.Range("B" & .Row & ":D" & .Row).Interior.Color = RGB(242, 242, 242)
                Me.Range("D" & .Row).ClearContents
            Else ' marcar
                .Value = ChrW(&H2705)
                Me.Range("B" & .Row & ":D" & .Row).Interior.Color = RGB(146, 208, 80)
                Me.Range("D" & .Row).Value = Now
                Me.Range("D" & .Row).NumberFormat = "dd/mm/yy hh:mm"
            End If
        End With
    End If
End Sub

Resultado Final

✔️ Célula vira botão
✔️ Ação automática
✔️ Linha pintada
✔️ Data e hora registradas
✔️ Código limpo e fácil de adaptarEsse é o tipo de recurso que deixa qualquer planilha mais moderna e intuitiva.

Download Célula em Botão Inteligente

Até o próximo SelfBlog!
Fique ligado no nosso canal do Youtube para mais conteúdo de Excel VBA!

MAIS LIDAS

Carrinho de compras