Código deixa de funcionar ao deletar célula

2024 - VBA & Macros

Post Recente por Glaudemir 8 anos atrás

3 Posts

2 Usuários

0 Reactions

815 Visualizações

RSS

Glaudemir

(@glaudemir)

Posts: 42

Eminent Member

Topic starter

Amigos, o código da planilha anexa funciona perfeitamente.

Entretanto, se o usuário apagar os dados de duas células simultaneamente, o código deixa de funcionar e só volta a funcionar quando o excel é reiniciado.

Vocês entenderão melhor o problema observando a planilha anexa.

Obrigado.

Código para de funcionar se deletar duas células simultaneamente.zip

Postado : 05/08/2016 9:09 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Troque por esta:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
     
     If Target.Count > 1 Then
        Application.EnableEvents = True
     Exit Sub
     
     End If
     
     If Target.Column = 8 Then
          Select Case Target.Value
               Case "Lançar"
                    Call MacroLançar
               Case "Deletar"
                    Call MacroDeletar
          End Select
     End If
    Application.EnableEvents = True
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/08/2016 9:20 am