none
Apagar conteudo de uma celula automaticamente RRS feed

  • Pergunta

  • Tenho uma planilha de pedidos com as seguintes colunas: CÓDIGO - PRODUTO - VALOR - QUANTIDADE

    Gostaria que quando eu apagasse o conteúdo de uma célula na coluna CÓDIGO, o valor inserido em QUANTIDADE apagasse automaticamente.

    terça-feira, 1 de novembro de 2016 22:27

Todas as Respostas

  • Boa noite.

    Você pode usar algo do tipo:

    Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim x As Range
    
    If Target.Column = 1 Then
        For Each x In Target
            If x.Value2 = vbNullString Then Cells(x.Row, 4).ClearContents
        Next
    End If
    
    End Sub
    

    Note que defini a coluna do Código como "1" e da Quantidade como "4" e considerei toda a coluna. Adeque se preciso.

    Abraço.


    Filipe Magno

    quarta-feira, 2 de novembro de 2016 00:12