Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Automatizar Botão
 
Notifications
Clear all

Automatizar Botão

 
2024 - VBA & Macros
Post Recente por andrekioto 11 anos atrás
5 Posts
3 Usuários
0 Reactions
678 Visualizações
RSS
 andrekioto
(@andrekioto)
Posts: 4
New Member
Topic starter
 

Prezados,

Utilizei esse código para registrar, através de um clique no botão, o horário de um determinado evento observado. Acontece que tenho que lançar também as iniciais do evento e isso gera a necessidade de interagir três vezes na planilha: 1 para clicar no botão e registrar o horário; 1 para registrar o evento e outra para registrar as iniciais do evento, por isso gostaria de saber se é possível incluir algum comando para registrar o horário assim que lançar o evento ou mesmo as iniciais do evento (que lanço ao lado do horário).

Segue o código:

Private Sub CommandButton1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub CommandButton1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub CommandButton1_Click()
Cells(28, 34).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton10_Click()
Cells(12, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton11_Click()
Cells(13, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton12_Click()
Cells(14, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton13_Click()
Cells(15, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton14_Click()
Cells(16, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton15_Click()
Cells(17, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton16_Click()
Cells(18, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton17_Click()
Cells(19, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton18_Click()
Cells(20, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton19_Click()
Cells(21, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton20_Click()
Cells(22, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton21_Click()
Cells(23, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton22_Click()
Cells(24, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton23_Click()
Cells(25, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton24_Click()
Cells(26, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton25_Click()
Cells(27, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton26_Click()
Cells(28, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton27_Click()
Cells(29, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton28_Click()
Cells(30, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton29_Click()
Cells(31, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton30_Click()
Cells(32, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton31_Click()
Cells(33, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton32_Click()
Cells(34, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton33_Click()
Cells(35, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton34_Click()
Cells(36, 46).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton35_Click()
Cells(4, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton36_Click()
Cells(5, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton37_Click()
Cells(6, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton38_Click()
Cells(7, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton39_Click()
Cells(8, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton40_Click()
Cells(9, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton41_Click()
Cells(10, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton42_Click()
Cells(11, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton43_Click()
Cells(12, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton44_Click()
Cells(13, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton45_Click()
Cells(14, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton46_Click()
Cells(15, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton47_Click()
Cells(16, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton48_Click()
Cells(17, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton49_Click()
Cells(18, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton50_Click()
Cells(19, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton51_Click()
Cells(20, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton52_Click()
Cells(21, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton53_Click()
Cells(22, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton54_Click()
Cells(23, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton55_Click()
Cells(24, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton56_Click()
Cells(25, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton57_Click()
Cells(26, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton58_Click()
Cells(27, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton59_Click()
Cells(28, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton60_Click()
Cells(29, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton61_Click()
Cells(30, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton62_Click()
Cells(31, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton63_Click()
Cells(32, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton64_Click()
Cells(33, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton65_Click()
Cells(34, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton66_Click()
Cells(35, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton67_Click()
Cells(36, 52).Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton2_Click()
Cells(4, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton3_Click()
Cells(5, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton4_Click()
Cells(6, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton5_Click()
Cells(7, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton6_Click()
Cells(8, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton7_Click()
Cells(9, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton8_Click()
Cells(10, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton9_Click()
Cells(11, 46).Value = Format(Time, "hh:mm:ss")
End Sub

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton2_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)

End Sub

Private Sub CommandButton2_GotFocus()

End Sub

Private Sub CommandButton2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Grato,

Kioto

 
Postado : 24/04/2014 7:07 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu não entendi muito bem, como assim evento? detalhe melhor.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/04/2014 7:22 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

Ainda sou inexperiente , mas creio que uma planilha com o codigo aplicado e dados fictícios, aceleraria a resolução do seu problema.

como são comando independentes não sei se daria para cria um loop de ação e simplificar essa lista.
tenta postar uma planilha com os botões de comando aplicados e um exemplo do que vc quer, vai facilitar e muito.

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 24/04/2014 7:30 pm
 andrekioto
(@andrekioto)
Posts: 4
New Member
Topic starter
 

Boa noite!!

Eu não entendi muito bem, como assim evento? detalhe melhor.

Att

Os eventos referem-se à jogos de basquete então lançamos por exemplo - Cesta de Três (Ct), Cesta de Dois(Cd), Falta etc...

Então registro assim:

No grande quadrado que representa a Quadra eu marco o local aproximado onde o evento aconteceu. Depois ao lado do quadrado eu clico no botão para registrar a hora e ao lado da hora eu lanço as iniciais do lance para associar ao tempo.

 
Postado : 25/04/2014 12:38 pm
 andrekioto
(@andrekioto)
Posts: 4
New Member
Topic starter
 

Ainda sou inexperiente , mas creio que uma planilha com o codigo aplicado e dados fictícios, aceleraria a resolução do seu problema.

como são comando independentes não sei se daria para cria um loop de ação e simplificar essa lista.
tenta postar uma planilha com os botões de comando aplicados e um exemplo do que vc quer, vai facilitar e muito.

Eu também não sou experiente com macros - esse código eu consegui recortar de outro e adaptar ao que fazemos que é registrar os lances de jogos de Basquete: Os eventos referem-se à jogos de basquete então lançamos por exemplo - Cesta de Três (Ct), Cesta de Dois(Cd), Falta etc...

No grande quadrado que representa a Quadra eu marco o local aproximado onde o evento aconteceu. Depois ao lado do quadrado eu clico no botão para registrar a hora e ao lado da hora eu lanço as iniciais do lance para associar ao tempo.

O que eu gostaria era lançar no quadrado grande o lance e através de uma fórmula SE ativar o botão para registrar o horário. Não sei se é possível através da fórmula, mas se for possível através de outra forma seria excelente.

grato,

 
Postado : 25/04/2014 12:42 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico