Excel Limpar dados de várias celulas, Excel 2007

[Bikke]

Boa noite

 

Venho solicitar ajuda no sentido de: após eu alterar os dados numa determinada célula de uma Aba, os dados que estejam em outras Abas e em determinadas células, sejam apagados.

 

Exemplo:

Quando se alterar os dados que estejam na Célula GC48 da Aba ESCALA

Os dados da Aba TARDE, células Q54 e Q56, deverão ser apagados

Os dados da Aba NOITE, células Q53 e Q55, deverão ser apagados

Os dados da Aba DISTRIBUIÇÃO, células B42 e F42, deverão ser apagados

Os dados da Aba DISTRIBUIÇÃO, células B46 e F46, deverão ser apagados

 

Obrigado pela atenção

 

Cumps

 

 

Junho 2019_V1.xls

[Bikke]

Já me resolveram o problema, fica aqui o código VBA para quem precisar.

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    If Target.Count > 1 Then
        Application.ScreenUpdating = True
        Application.EnableEvents = True
        Exit Sub
    End If
    
    If Target.Address(False, False) = "GC48" Then
        If Target.Value <> "" And IsNumeric(Target.Value) Then
            Sheets("TARDE").Range("Q54").Value = ""
            Sheets("TARDE").Range("Q56").Value = ""
            Sheets("NOITE").Range("Q53").Value = ""
            Sheets("NOITE").Range("Q55").Value = ""
            Sheets("DISTRIBUIÇÃO").Range("B42").Value = ""
            Sheets("DISTRIBUIÇÃO").Range("B46").Value = ""
            Sheets("DISTRIBUIÇÃO").Range("F42").Value = ""
            Sheets("DISTRIBUIÇÃO").Range("F46").Value = ""
        End If
    End If
        
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Um resto de boa semana para todos.

Cumps