Bom dia amigos... sou novo no forum, e estou começando com VBA. Tenho um formulário em pdf, porém está em inglês. Estou fazendo o mesmo formulário em português, no excel, porém estou com um problema: quando clico em algumas células, ela insere um marcador. Eu gostaria de limitar os marcadores para apenas uma das células da coluna ou seja, quando clico em outra célula o marcador se apaga e é inserido na nova célula que eu cliquei. estou utilizando o seguinte código, porém ele não faz o que eu quero, ele só insere o marcador, porém mantém todos, não apaga um para inserir outro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("e7:e12")) Is Nothing Then Application.EnableEvents = False If ActiveCell.Value = ChrW(&H2713) Then ActiveCell.ClearContents Else ActiveCell.Value = ChrW(&H2713) End If Cancel = True End If Application.EnableEvents = True End sub
Observação: estou fazendo uma planilha no excel, traduzida para o português, com base em um arquivo interativo em pdf... eu quero fazer na minha planilha o que faz no pdf interativo. O pdf etá nesse endereço: http://www.ergonomiesite.be/documenten/tillen/KIM-tillen-interactief.pdf
Pergunta
Dias Luiz Carlos
Bom dia amigos... sou novo no forum, e estou começando com VBA.
Editado por Dias Luiz CarlosTenho um formulário em pdf, porém está em inglês. Estou fazendo o mesmo formulário em português, no excel, porém estou com um problema: quando clico em algumas células, ela insere um marcador. Eu gostaria de limitar os marcadores para apenas uma das células da coluna ou seja, quando clico em outra célula o marcador se apaga e é inserido na nova célula que eu cliquei.
estou utilizando o seguinte código, porém ele não faz o que eu quero, ele só insere o marcador, porém mantém todos, não apaga um para inserir outro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("e7:e12")) Is Nothing Then
Application.EnableEvents = False
If ActiveCell.Value = ChrW(&H2713) Then
ActiveCell.ClearContents
Else
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application.EnableEvents = True
End sub
Observação: estou fazendo uma planilha no excel, traduzida para o português, com base em um arquivo interativo em pdf... eu quero fazer na minha planilha o que faz no pdf interativo. O pdf etá nesse endereço: http://www.ergonomiesite.be/documenten/tillen/KIM-tillen-interactief.pdf
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.