Boa tarde romanholi

Conforme consta nas regras do fórum, os arquivos devem ser compactados (zipados) antes de anexar, independente do tamanho.

[]s
Patropi - Mderador

Bom dia!!

Já tentou?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Esse código deve ficar dentro do módulo de guia
    If Not Application.Intersect(Target, Range("A2:A5")) Is Nothing Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

Att

Alexandre, bom dia!

E agora para popular com o número da tarefa e a descrição quando abrir o formulário? E não permitir abrir o formulário quando não tiver uma tarefa!

Desculpa a demora! Obrigado pela AJUDA

Alexandre, bom dia!

E agora para popular com o número da tarefa e a descrição quando abrir o formulário? E não permitir abrir o formulário quando não tiver uma tarefa!

Desculpa a demora! Obrigado pela AJUDA

Boa tarde!!

Eu estou com problemas no office do trabalho, eu não consigo abrir formulários!

Mas se eu entendi, pode ser algo do tipo..

Private Sub UserForm_Initialize()
    TextBox1 = Sheets("Plan1").Range("A1")
End Sub

Att

Alexandre, boa tarde!

Não pode ser relacionado na célula A1, tem que ser na célula que será dado o duplico click!

Obrigado pela Ajuda