Este fórum está sendo desativado

[JaimeBezerra]

Bom dia!!

Preciso que ao clicar duas vezes em uma área específica da planilha seja executada uma determinada macro, o problema é que tenho duas áreas distintas que deverão executar macros distintas.

Com o doubleclick consigo acionar a macro em apenas uma área, no exemplo anexo área ("B4:B" & Lastrow), ocorre que preciso utilizar a área ("C4:C" & Lastrow) para executar outra macro.

Já tentei utilizar SELECT CASE com o Doubleclick e não funcionou, meu conhecimento de VBA é limitado e não sei como resolver este caso.

Utilizei o Doubleclick por pura analogia de necessidade, clicar duas vezes em uma área específica para acionar outra macro, mas se para o meu caso a solução for outra agradeço se me orientarem.

Grato

[osvaldomp]

Experimente o código abaixo.

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("B4:B" & Cells(Rows.Count, 2).End(3).Row)) Is Nothing Then
  MsgBox "você aplicou duplo clique em uma célula da coluna 'B' da tabela"
  'se o resultado for o esperado substitua a linha acima pelo nome da Macro1
  Cancel = True
 ElseIf Not Intersect(Target, Range("C4:C" & Cells(Rows.Count, 3).End(3).Row)) Is Nothing Then
  MsgBox "você aplicou duplo clique em uma célula da coluna 'C' da tabela"
  'se o resultado for o esperado substitua a linha acima pelo nome da Macro2
  Cancel = True
 End If
End Sub

[gfranco]

Bom dia.
Veja o anexo se atende.
AT.
Gfranco