Segue modelo para você avaliar e adaptar, que deve ser colado no módulo da planilha:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B20")) Is Nothing Then
If UCase(Target.Value) = "SIM" Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
End If
End If
End Sub
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 30/08/2016 2:40 pm