Boa tarde a todos.
Estou precisando de uma grande ajuda, estou fazendo uma planilha de pedido de compra, consegui configurar alguns campos obrigatórios antes de gravar a planilha ( segue um exemplo ), mas tenho alguns botões de opção que não consigo fazer isso. Alguém pode me ajudar.
código que uso para serem obrigatórios na: EstaPasta_de_trabalho:
'NÃO GRAVA SEM OS CAMPOS ESTAREM PREENCHIDOS
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'campo produto
If Range("B15") = "" Then
MsgBox "PRODUTO" & vbCrLf & vbCrLf & "Você Tem Que Inserir No Mínimo Um Produto Antes De Gravar. ", vbCritical, " Campo Obrigatório "
Range("B15").Select
Cancel = True
Exit Sub
End If
End Sub
Postado : 08/02/2017 1:13 pm