Página 1 de 1

Acionar macro com duplo click em célula

Enviado: 18 Out 2017 às 21:11
por Domingsp
Estou tentando acionar uma macro ao clicar 2 vezes em determinada célula da Plan3.
O mais proximo que achei foi esse código de um livro, estou tentando adpata-lo para meu objetivo . Ele usa o evento BeforeDoubleClick e deveria tornar uma celula em negrito ao clicar 2 vezes nela ou deixar sem negrito, se ela estiver em negrito.
Como posso adapta-lo(ou usando outro codigo) para acionar macro ao clicar em determinada celula?
Código: Selecionar todos
Private Sub worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Sheets("Plan3").Activate
Target.Font.Bold = Not Target.Font.Bold
Cancel = True
End Sub

Re: Acionar macro com duplo click em célula

Enviado: 18 Out 2017 às 21:34
por gfranco
Boa noite.
Veja se consegue adaptar à sua necessidade.
Funcionando de "A1:E12"
Código: Selecionar todos
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("A1:E12")) Is Nothing Then
            If Target.Font.Bold = True Then
                Target.Font.Bold = False
      
             Else
        
                Target.Font.Bold = True
        
        End If
    
    
    End If


End Sub

Re: Acionar macro com duplo click em célula

Enviado: 18 Out 2017 às 23:56
por Domingsp
Bom dia, gfranco. Obrigado pela atenção.
Aqui pra mim não funcionou ainda. Mas eu encontrei outro código que mediante 1 clique em G9, chama outra macro chamada TESTE. Ao ser chamada pela principal, ela coloca o valor de 2000 em B1, porém tambem não funciona:
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Sheets("Plan3").Range("G9").Address Then

Call teste

End If

End Sub

Sub teste()
Cells(1, 2) = 2000
End Sub

Re: Acionar macro com duplo click em célula

Enviado: 19 Out 2017 às 00:45
por gfranco
boa noite.
Vou postar mais um exemplo. Mas o ideal é você postar um modelo de sua planilha (com dados fictícios mas mesma estrutura) para uma resposta mais acertada.

Re: Acionar macro com duplo click em célula

Enviado: 20 Out 2017 às 18:31
por Domingsp
Esse ultimo exemplo funcionou, gfranco. Obrigado!