Macro para limpar

2024 - VBA & Macros

Post Recente por Suenne 9 anos atrás

3 Posts

2 Usuários

0 Reactions

958 Visualizações

RSS

Suenne

(@suenne)

Posts: 50

Trusted 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

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

Postado : 31/08/2015 11:14 am