Este fórum está sendo desativado

[marcoenz]

Prezados, bom dia

por favor, preciso de uma ajuda para poder fazer um loop para zerar valores, hoje eu faço isso com a função SE, porém quero fazer isso via vba.

eu estou deixando o exemplo da minha planilha para melhor entendimento.


desde já agradeço pela ajuda

[osvaldomp]

Cole uma cópia do código no módulo da planilha.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column <> 4 Or Target.Value <> "produzido" Then Exit Sub
 Cells(Target.Row, 7) = ""
End Sub

#
funcionamento - o código irá limpar G se for inserido manualmente o texto produzido em D.