Notifications
Clear all

Execultar um comando ao Clicar na celula tres vezes

5 Posts
3 Usuários
0 Reactions
776 Visualizações
(@sforni)
Posts: 0
New Member
Topic starter
 

Boa tarde a todos.

Tenho esse código que abre um calendário quando clico em qualquer célula duas vezes. Porem gostaria que o mesmo só fosse acionado ao clicar na célula TRES vezes é possível?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'----------------------------------
' Open DatePicker
Set DatePickerForm.Target = Target.Cells(1, 1)
DatePickerForm.Show vbModal
Cancel = True
'----------------------------------

End Sub

Se puderem me ajudar ficaria grato...
Atenciosamente
Edson Sforni

 
Postado : 07/01/2016 4:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Até onde sei não há essa propriedade triplo click

 
Postado : 07/01/2016 4:33 pm
(@mprudencio)
Posts: 0
New Member
 

Tb ate onde sei nao existe essa possibilidade.

Agora por mera curiosidade, qual o motivo de nao executar apenas com 2, Se for apenas na intenção de usar apenas em uma coluna (como eu imagino)

Faça um teste if

If ActiveCell.Column = 1 Then

' Open DatePicker
Set DatePickerForm.Target = Target.Cells(1, 1)
DatePickerForm.Show vbModal
Cancel = True

End If

Neste caso so vai funcionar na coluna A se for usar em outra coluna troque 1 pelo numero da coluna

A = 1
B = 2
C = 3

E assim por diante.

 
Postado : 07/01/2016 5:30 pm
(@mprudencio)
Posts: 0
New Member
 

Tb ate onde sei nao existe essa possibilidade.

Agora por mera curiosidade, qual o motivo de nao executar apenas com 2, Se for apenas na intenção de usar apenas em uma coluna (como eu imagino)

Faça um teste if

If ActiveCell.Column = 1 Then

' Open DatePicker
Set DatePickerForm.Target = Target.Cells(1, 1)
DatePickerForm.Show vbModal
Cancel = True

End If

Neste caso so vai funcionar na coluna A se for usar em outra coluna troque 1 pelo numero da coluna

A = 1
B = 2
C = 3

E assim por diante.

 
Postado : 07/01/2016 5:30 pm
(@sforni)
Posts: 0
New Member
Topic starter
 

Bom dia Marcelo!
Muito obrigado pela ajuda, resolveu meu problema.
Eu tinha optado pelos três cliques pois não estava conseguindo delimitar uma coluna especifica, mas com a sua alteração ficou perfeito.

Valew...

 
Postado : 08/01/2016 8:40 am