Este fórum está sendo desativado

[GENECI]

Boa tarde.

Por favor, solicito a sua ajuda de acordo com as instruções no arquivo anexo.

Grato - Geneci.

[osvaldomp]

Olá, Geneci.

Instale uma cópia do código abaixo no módulo da planilha de interesse.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Intersect([C1:C1000], Target) Is Nothing Or Target.Value <> 0 Then Exit Sub
 Rows(Target.Row).Delete
End Sub