Pessoal, bom dia.
Tenho um fluxograma desenhado no Excel de atividades do meu setor, e eu gostaria de utiliza-lo para fazer o acompanhamento das atividades.
Como seria esse acompanhamento. Quando o usuário terminar uma tarefa, ele clica em cima da mesma e ela fica amarela e grava no banco de dados o nome da tarefa, a data e a hora que foi realizada.
Será que existe uma forma de fazer isso com as formas do Excel.
Deixei um arquivo de exemplo do que eu preciso anexo.
Obrigado
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Alterar Cor Forma (Fluxo Atividades)
Re: Alterar Cor Forma (Fluxo Atividades)
Pessoal, veja se da forma abaixo dá para me ajudar.
Veja que eu gravei uma macro da forma como eu preciso alterar, ou seja, quando eu clico num Shape (Forma) muda a cor para amarelo.
O que eu gostaria é que a macro entendesse que sempre que eu clicar num Shape ele fique amarelo, e se clicar novamente ele volta para o azul por exemplo.
Da forma como eu fiz abaixo, terei que fazer uma macro para cada Shape e também não consigo fazer ela voltar para outra cor se clicado pela seguinda vez.
Me ajuda galera, por favor, preciso muito desta macro.
Veja a macro gravada:
Veja que eu gravei uma macro da forma como eu preciso alterar, ou seja, quando eu clico num Shape (Forma) muda a cor para amarelo.
O que eu gostaria é que a macro entendesse que sempre que eu clicar num Shape ele fique amarelo, e se clicar novamente ele volta para o azul por exemplo.
Da forma como eu fiz abaixo, terei que fazer uma macro para cada Shape e também não consigo fazer ela voltar para outra cor se clicado pela seguinda vez.
Me ajuda galera, por favor, preciso muito desta macro.
Veja a macro gravada:
Código: Selecionar todos
Sub Muda_Quadrado_Etapa_01()
ActiveSheet.Shapes.Range(Array("Etapa_01")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
Range("H8").Select
End Sub
Sub Muda_Quadrado_Etapa_02()
ActiveSheet.Shapes.Range(Array("Etapa_02")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
End Sub
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Alterar Cor Forma (Fluxo Atividades)
Experimente:... ou seja, quando eu clico num Shape (Forma) muda a cor para amarelo..
Código: Selecionar todos
Sub clicou()
ActiveSheet.Shapes.Range(Array(Application.Caller)).Select
With Selection.ShapeRange.Fill
If .ForeColor.RGB = 13998939 Then
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
Else
.ForeColor.RGB = 13998939
End If
Range("E6").Select
End With
End Sub
- Anexos
-
- Cópia de Fluxo_Tarefas.zip
- (13.71 KiB) Baixado 267 vezes