Postada em 21/07/2017 12:56 hs
Pessoal boa tarde!
Preciso que exiba um botão de opção 1 e 2, ao preencher a celula J, E AO SELECIONAR A INFORMAÇÃO SEJA INSERIDA NAS CELULAS 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.
|
