Como Criar checklist de acompanhamento de tarefa semanal no Excel

🔥 No Excel o limite é a sua imaginação.
✅ Aprenda a Criar checklist de acompanhamento de tarefa semanal interativo no Excel.

👉 Neste Vídeo vou te mostrar de forma simples e do zero, Como Criar checklist de acompanhamento de tarefa semanal com gráfico dinâmico no Excel.

📈 O melhor desse formato é que ele também é um Checklist com Barras interativas para medir o andamento das suas Tarefas semanais.

👍 Bom pessoal, espero que tenha gostado deste vídeo, não esqueça de:
Se gostou, não esqueça de clicar em Gostei 👍
e não deixe de compartilhar o vídeo 😃

Tags: tutoriais,tutoriais passo a passo,automação de escritório,Como Criar checklist de acompanhamento de tarefa semanal,acompanhamento de tarefa semanal no Excel,checklist de acompanhamento de tarefa semanal interativo no Excel,Checklist com Barras interativas,gráfico dinâmico no Excel,barras de progresso no excel,vba,excel,minigraficos,gráficos no excel,barras de progresso interativas,Checklist, macro no excel,joabe Souza,tutoriais gratuitos,

[barbaranorman]

Ei turma! Compartilhando um aprimoramento que fiz no codigo VBA para que a alteração nao seja feita com apenas um clique mas sim com dois (por aqui o pessoal sem querer clicava sobre as celulas da area de check list e marcava ou desmarcava sem eles perceberem). Então coloquei para mudar apenas quando desse um duplo clique (ao inves de apenas um) e ainda avisa o usuario quando passou de marcado (com check) para desmarcado (quadrado em branco). Antes de mais inserir o codigo VBA que vou deixar abaixo, note que no minuto 9:20 do video ele pede para voce selecionar a opção "Worsksheet" e para fazer deste jeito que escolhi voce deve também selecionar, no campo que tem logo em frente ao lado direito (que está escrito "Delcaração"), a opção BeforeDobleClick (para PC em ingles) ou AntesDuploClique (para sistema configurado em PT). Feito isso, digite o seguinte codigo:

*Nota: meu intervalo de checklist era da coluna D linha 9 (D9) até a Coluna AL linha 25. adapte o codigo a seguir conforme sua necessidade

On Error GoTo Erro_Codigo

If Not Intersect(Target, Range("D9:AL25")) Is Nothing Then

If Target.Value = "þ" Then
Target.Value = "o"

MsgBox "Desmarcado com sucesso."

ElseIf Target.Value = "o" Then
Target.Value = "þ"

MsgBox "Marcação realizada."


End If

End If


Erro_Codigo:

[matheussilva-bumm]

Parabéns Dica valiosa ajudou muito 👏👏👏👏

[julianemoura]

nao deu certo o codigo comigo, o que pode seR?

[julianemoura]

coloquei o mesmo codigo >> Private Sub Target As Range)


If Not Intersect(Target, Range("B6:AC32")) Is Nothing Then

If Target.Value = "o" Then
Target .Value = "þ"
ElseIf Target.Value = "þ" Then
Target .Value = "o"
End If

End Sub