Este fórum está sendo desativado

[Legalico]

Pessoal,

Como que eu aciono uma macro ao clicar em uma específica célula?

Exemplo, se clicar na celula A1 ele abre um input box, e se eu clicar em qualquer outras células eu apago o conteúdo de um range específico?

Obrigado

[osvaldomp]

Executa ao selecionar a célula.

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$A$1" Then
  MsgBox "código InputBox"
 Else: Range("K1:M10") = ""
 End If
End Sub

ou
Executa ao aplicar duplo clique na célula.

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Address = "$A$1" Then
  MsgBox "código InputBox"
 Else: Range("K1:M10") = ""
 End If
 Cancel = True
End Sub

[Legalico]

Muito Obrigado, Exatamente o resultado que gostaria.
Abs,