Postada em 20/07/2017 12:30 hs
Boa tarde!
Pessoal, preciso de uma ajudinha!
Tenho o código abaixo, preciso implementa-la de maneira que ao deletar dados das células da coluna "J", delete também os dados das coluna "15" e "17".
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J92:J5000")) Is Nothing And Target.Value = "AT002" Then
Cells(ActiveCell.Row, 15) = 2
Cells(ActiveCell.Row, 17) = 10
End If
End Sub
Obrigado.
|
