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.
Link da Planilha👉onedrive.live....
👉 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:
Inscreva-se no canal 👉 / @mundoofficecomjoabesouza
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,

[@barbaranorman7640]

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:

[@bartolomeumartinslima3406]

Espetacular. Deu certinho. Valeu.🕶

[@matheussilva-bu7mm]

Parabéns Dica valiosa ajudou muito 👏👏👏👏

[@MundoOfficecomJoabeSouza]

Que ótimo!

[@danilolima8996]

Muito bom!

[@joaoluizperosini7358]

Muito bom 😃 Adorei!

[@MundoOfficecomJoabeSouza]

Obrigado 😃

[@FelipeSantos-is1xf]

Muito bom

[@MundoOfficecomJoabeSouza]

Obrigado 🤝🏻

[@cristianesantos7550]

Parabéns muito bom...

[@MundoOfficecomJoabeSouza]

Muito obrigado🤝🏻

[@julianemoura2224]

coloquei o mesmo codigo >> Private Sub Worksheet_SelectionChange(ByVal 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

[@julianemoura2224]

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

[@joaovinicius6751]

Eu ia errando nas células selecionadas, pois minha planilha é diferente da dele obviamente. Segue meu código que rodou perfeitamente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Erro_Codigo
If Not Intersect(Target, Range("D4:J128")) Is Nothing Then
If Target.Value = "R" Then
Target.Value = "£"
ElseIf Target.Value = "£" Then
Target.Value = "R"
End If
End If
Erro_Codigo:
End Sub

[@GersonValladaoTecnologia]

Segui, e não funcionou