Página 1 de 1

loop para zerar valores

Enviado: 20 Jul 2021 às 05:04
por 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 :)

Re: loop para zerar valores

Enviado: 20 Jul 2021 às 09:24
por 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.