Notifications

Clear all

Execultar um comando ao Clicar na celula tres vezes

2024 - VBA & Macros

Post Recente por sforni 9 anos atrás

5 Posts

3 Usuários

0 Reactions

796 Visualizações

RSS

sforni

(@sforni)

Posts: 6

Active 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

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

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

Postado : 07/01/2016 4:33 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed 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.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 07/01/2016 5:30 pm