Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para limpar
 
Notifications
Clear all

Macro para limpar

 
2024 - VBA & Macros
Post Recente por Suenne 9 anos atrás
3 Posts
2 Usuários
0 Reactions
951 Visualizações
RSS
 Suenne
(@suenne)
Posts: 0
New Member
Topic starter
 

Boa tarde,

tenho a macro indicada para limpar os dados assim que uma célula é alterada, porém preciso adicionar mais um intervalo.

Como devo proceder?
Invervalo para adicionar M13:M43

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
      
    Plan1.Activate
    Range("E13:H43").Select
    'Range(Selection, Selection.End(xlToRight)).Select
    'Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    End If
End Sub
 
Postado : 31/08/2015 10:23 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Suenne, em modo mais grosseiro, seria só repetir as instruções logo apos a instrução : Selection.ClearContents

Range("M13:M43").Select
Selection.ClearContents

Ressalto que não necessitamos selecionar as celulas antes e depois limpar, então em um modo onde tiramos as instruções desnecessárias, você pode utilizar a abaixo, e se quiser é só acrescentar mais Ranges.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
         
        'Se estiver excutando na Plan1, tb não precisa esta linha
        Plan1.Activate
        
        With Worksheets("Plan1")
            Range("E13:H43,M13:M43").ClearContents
        End With
    End If
        
End Sub

[]s

 
Postado : 31/08/2015 11:14 am
 Suenne
(@suenne)
Posts: 0
New Member
Topic starter
 

Muito obrigada Mauro!

 
Postado : 31/08/2015 12:58 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico